annotate src/gui_xmebw.c @ 19704:9aec979e8fdd

Added tag v8.2.0408 for changeset f03357f16ffc10fe7a37b9fea95493ae47700d71
author Bram Moolenaar <Bram@vim.org>
date Thu, 19 Mar 2020 15:00:04 +0100
parents e1f4e9d78a6a
children 49d866e9b439
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 4352
diff changeset
1 /* vi:set ts=8 sts=4 sw=4 noet:
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
2 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
4 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
5 * Do ":help uganda" in Vim to read copying and usage conditions.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
6 * Do ":help credits" in Vim to see a list of people who contributed.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
7 * See README.txt for an overview of the Vim source code.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
8 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
9 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
10 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
11 * (C) 2002,2005 by Marcin Dalecki <martin@dalecki.de>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
12 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
13 * MARCIN DALECKI ASSUMES NO RESPONSIBILITY FOR THE USE OR INABILITY TO USE ANY
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
14 * OF THIS SOFTWARE . THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
15 * KIND, AND MARCIN DALECKI EXPRESSLY DISCLAIMS ALL IMPLIED WARRANTIES,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
16 * INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
17 * FITNESS FOR A PARTICULAR PURPOSE.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
18 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
19
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
20 /*
158
78423945b251 updated for version 7.0048
vimboss
parents: 147
diff changeset
21 * Enhanced Motif PushButton widget with move over behavior.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
22 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
23
158
78423945b251 updated for version 7.0048
vimboss
parents: 147
diff changeset
24 #include "vim.h"
78423945b251 updated for version 7.0048
vimboss
parents: 147
diff changeset
25
78423945b251 updated for version 7.0048
vimboss
parents: 147
diff changeset
26 #ifdef FEAT_TOOLBAR
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
27
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
28 #include <Xm/XmP.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
29 #include <Xm/DrawP.h>
147
2f5a3b881ada updated for version 7.0046
vimboss
parents: 129
diff changeset
30 #if defined(HAVE_XM_TRAITP_H) && defined(HAVE_XM_MANAGER_H) \
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 161
diff changeset
31 && defined(HAVE_XM_UNHIGHLIGHTT_H) && defined(HAVE_XM_XPMP_H)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
32 # include <Xm/TraitP.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
33 # include <Xm/Manager.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
34 # include <Xm/UnhighlightT.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
35 # include <Xm/XpmP.h>
147
2f5a3b881ada updated for version 7.0046
vimboss
parents: 129
diff changeset
36 # define UNHIGHLIGHTT
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
37 #else
15517
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
38 # ifdef HAVE_X11_XPM_H
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
39 # ifdef VMS
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
40 # include <xpm.h>
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
41 # else
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
42 # include <X11/xpm.h>
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
43 # endif
2ad5f0ffaa2e patch 8.1.0766: various problems when using Vim on VMS
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
44 # endif
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
45 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
46 #include <Xm/ManagerP.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
47 #include <Xm/Display.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
48 #include <Xm/DisplayP.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
49
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
50 #include <X11/Shell.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
51 #include <X11/ShellP.h>
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
52
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
53 #include "gui_xmebwp.h"
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
54
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
55 // Provide some missing wrappers, which are missed from the LessTif
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
56 // implementation. Also missing in Motif 1.2 and earlier.
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
57 //
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
58 // We neither use XmeGetPixmapData or _XmGetPixmapData, since with LessTif the
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
59 // pixmap will not appear in its caches properly. We cache the interesting
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
60 // values in XmEnhancedButtonPart instead ourself.
891
e6bd96f2d7b8 updated for version 7.0-017
vimboss
parents: 888
diff changeset
61 #if defined(LESSTIF_VERSION) || (XmVersion <= 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
62 # ifndef Lab_IsMenupane
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
63 # define Lab_IsMenupane(w) (Lab_MenuType(w) == (int)XmMENU_POPUP || \
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
64 Lab_MenuType(w) == (int)XmMENU_PULLDOWN)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
65 # endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
66 # define XmeClearBorder _XmClearBorder
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
67 # define XmeDrawShadows _XmDrawShadows
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
68 # define XmeDrawHighlight(a, b, c, d, e, f, g, h) \
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
69 _XmDrawHighlight(a, b, c, d, e, f, g, h, LineSolid)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
70 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
71
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
72 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
73 * Motif internals we have to cheat around with.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
74 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
75
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
76 // Hopefully this will never change...
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
77 #ifndef XmFOCUS_IGNORE
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
78 # define XmFOCUS_IGNORE 1<<1
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
79 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
80
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
81 extern Boolean _XmGetInDragMode(Widget widget);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
82 extern void _XmPrimitiveEnter(Widget wid,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
83 XEvent * event,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
84 String * params, Cardinal * num_params);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
85 extern void _XmPrimitiveLeave(Widget wid,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
86 XEvent * event,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
87 String * params, Cardinal * num_params);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
88 extern void _XmSetFocusFlag(Widget w, unsigned int mask, Boolean value);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
89 extern void _XmCalcLabelDimensions(Widget wid);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
90
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
91 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
92 * Declaration of class methods.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
93 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
94 static void Destroy(Widget w);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
95 static void Initialize(Widget rq, Widget eb, ArgList args, Cardinal *n);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
96 static Boolean SetValues(Widget current, Widget request, Widget new, ArgList args, Cardinal *n);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
97 static void Redisplay(Widget, XEvent *, Region);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
98
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
99 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
100 * Declaration of action methods.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
101 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
102 static void Enter(Widget, XEvent *, String *, Cardinal *);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
103 static void Leave(Widget, XEvent *, String *, Cardinal *);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
104 static void BorderHighlight(Widget);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
105 static void BorderUnhighlight(Widget);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
106
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
107 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
108 * 4 x 4 stipple for desensitized widgets
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
109 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
110 #define stipple_width 4
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
111 #define stipple_height 4
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
112 static char stipple_bits[] = { 0x0a, 0x05, 0x0a, 0x05 };
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
113 #define STIPPLE_BITMAP xmEnhancedButtonClassRec.enhancedbutton_class.stipple_bitmap
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
114
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
115 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
116 * Override actions.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
117 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
118 static XtActionsRec actionsList[] =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
119 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
120 {"Enter", Enter},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
121 {"Leave", Leave},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
122 };
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
123
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
124 static XtResource resources[] =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
125 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
126 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
127 XmNpixmapData, XmCPixmap, XmRString, sizeof(String),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
128 XtOffsetOf(XmEnhancedButtonRec, enhancedbutton.pixmap_data),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
129 XmRImmediate, (XtPointer) NULL
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
130 }, {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
131 XmNpixmapFile, XmCPixmap, XmRString, sizeof(String),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
132 XtOffsetOf(XmEnhancedButtonRec, enhancedbutton.pixmap_file),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
133 XmRImmediate, (XtPointer) NULL
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
134 }, {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
135 XmNspacing, XmCSpacing, XmRHorizontalDimension, sizeof(Dimension),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
136 XtOffsetOf(XmEnhancedButtonRec, enhancedbutton.spacing),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
137 XmRImmediate, (XtPointer) 2
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
138 },
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
139 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
140 XmNlabelLocation, XmCLocation, XmRInt, sizeof(int),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
141 XtOffsetOf(XmEnhancedButtonRec, enhancedbutton.label_location),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
142 XtRImmediate, (XtPointer) XmRIGHT
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
143 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
144 };
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
145
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
146 // This is needed to work around a bug in Lesstif 2, leaving the extension
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
147 // NULL somehow results in getting it set to an invalid pointer.
1026
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
148 XmPrimitiveClassExtRec xmEnhancedButtonPrimClassExtRec =
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
149 {
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
150 /* next_extension */ NULL,
2311
ccda151dde4e Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents: 1887
diff changeset
151 /* record_type */ NULLQUARK,
ccda151dde4e Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents: 1887
diff changeset
152 /* version */ XmPrimitiveClassExtVersion,
ccda151dde4e Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents: 1887
diff changeset
153 /* record_size */ sizeof(XmPrimitiveClassExtRec),
ccda151dde4e Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents: 1887
diff changeset
154 /* widget_baseline */ XmInheritBaselineProc,
1026
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
155 /* widget_display_rect */ XmInheritDisplayRectProc,
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
156 /* widget_margins */ NULL
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
157 };
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
158
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
159 XmEnhancedButtonClassRec xmEnhancedButtonClassRec =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
160 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
161 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
162 // core_class fields
856
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
163 /* superclass */ (WidgetClass) & xmPushButtonClassRec,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
164 /* class_name */ "XmEnhancedButton",
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
165 /* widget_size */ sizeof(XmEnhancedButtonRec),
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
166 /* class_initialize */ NULL,
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
167 /* class_part_initialize */ NULL,
856
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
168 /* class_inited */ False,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
169 /* initialize */ Initialize,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
170 /* initialize_hook */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
171 /* realize */ XtInheritRealize,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
172 /* actions */ actionsList,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
173 /* num_actions */ XtNumber(actionsList),
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
174 /* resources */ resources,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
175 /* num_resources */ XtNumber(resources),
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
176 /* xrm_class */ NULLQUARK,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
177 /* compress_motion */ True,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
178 /* compress_exposure */ XtExposeCompressMaximal,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
179 /* compress_enterleave */ True,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
180 /* visible_interest */ False,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
181 /* destroy */ Destroy,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
182 /* resize */ XtInheritResize,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
183 /* expose */ Redisplay,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
184 /* set_values */ SetValues,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
185 /* set_values_hook */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
186 /* set_values_almost */ XtInheritSetValuesAlmost,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
187 /* get_values_hook */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
188 /* accept_focus */ XtInheritAcceptFocus,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
189 /* version */ XtVersion,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
190 /* callback_private */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
191 /* tm_table */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
192 /* query_geometry */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
193 /* display_accelerator */ XtInheritDisplayAccelerator,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
194 /* extension */ NULL
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
195 },
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
196
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
197 // primitive_class fields
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
198 {
856
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
199 /* border highlight */ BorderHighlight,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
200 /* border_unhighlight */ BorderUnhighlight,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
201 /* translations */ XtInheritTranslations,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
202 /* arm and activate */ XmInheritArmAndActivate,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
203 /* synthetic resources */ NULL,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
204 /* number of syn res */ 0,
1026
d8af28dbfb80 updated for version 7.0-152
vimboss
parents: 891
diff changeset
205 /* extension */ (XtPointer)&xmEnhancedButtonPrimClassExtRec,
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
206 },
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
207
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
208 // label_class fields
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
209 {
856
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
210 /* setOverrideCallback */ XmInheritSetOverrideCallback,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
211 /* menuProcs */ XmInheritMenuProc,
8cd729851562 updated for version 7.0g
vimboss
parents: 819
diff changeset
212 /* translations */ XtInheritTranslations,
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
213 /* extension */ NULL,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
214 },
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
215
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
216 // pushbutton_class record
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
217 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
218 /* extension */ (XtPointer) NULL,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
219 },
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
220
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
221 // enhancedbutton_class fields
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
222 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
223 /* stipple_bitmap */ None
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
224 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
225 };
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
226
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
227
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
228 WidgetClass xmEnhancedButtonWidgetClass =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
229 (WidgetClass)&xmEnhancedButtonClassRec;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
230
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
231
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
232 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
233 * Create a slightly fainter pixmap to be shown on button entry.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
234 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
235 static unsigned short
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
236 bump_color(unsigned short value)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
237 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
238 int tmp = 2 * (((int) value - 65535) / 3) + 65535;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
239
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
240 return tmp;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
241 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
242
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
243 static int
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
244 alloc_color(Display *display,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
245 Colormap colormap,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
246 char *colorname,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
247 XColor *xcolor,
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
248 void *closure UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
249 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
250 int status;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
251
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
252 if (colorname)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
253 if (!XParseColor(display, colormap, colorname, xcolor))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
254 return -1;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
255
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
256 xcolor->red = bump_color(xcolor->red);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
257 xcolor->green = bump_color(xcolor->green);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
258 xcolor->blue = bump_color(xcolor->blue);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
259
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
260 status = XAllocColor(display, colormap, xcolor);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
261 return status != 0 ? 1 : 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
262 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
263
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
264 // XPM
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
265 static char * blank_xpm[] =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
266 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
267 // width height ncolors cpp [x_hot y_hot]
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
268 "12 12 4 1 0 0",
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
269 // colors
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
270 " s iconColor1 m black c #000000",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
271 ". s none m none c none",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
272 "X s topShadowColor m none c #DCDEE5",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
273 "o s bottomShadowColor m black c #5D6069",
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
274 // pixels
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
275 " ..",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
276 " XXXXXXXX ..",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
277 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
278 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
279 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
280 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
281 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
282 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
283 " X....... o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
284 " o.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
285 "..ooooooooo.",
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
286 "............"};
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
287
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
288 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
289 * Set the pixmap.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
290 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
291 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
292 set_pixmap(XmEnhancedButtonWidget eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
293 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
294 // Configure defines XPMATTRIBUTES_TYPE as XpmAttributes or as
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
295 // XpmAttributes_21, depending on what is in Xm/XpmP.h.
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 161
diff changeset
296 XPMATTRIBUTES_TYPE attr;
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
297 Pixmap sen_pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
298 Window root;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
299 static XpmColorSymbol color[8] = {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
300 {"none", "none", 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
301 {"None", "none", 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
302 {"background", NULL, 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
303 {"foreground", NULL, 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
304 {"bottomShadowColor", NULL, 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
305 {"topShadowColor", NULL, 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
306 {"highlightColor", NULL, 0},
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
307 {"armColor", NULL, 0}
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
308 };
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
309 int scr;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
310 Display *dpy = XtDisplay(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
311 int x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
312 int y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
313 unsigned int height, width, border, depth;
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
314 int status = 0;
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
315 Pixmap mask;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
316 Pixmap pix = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
317 Pixmap arm_pix = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
318 Pixmap ins_pix = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
319 Pixmap high_pix = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
320 char **data = (char **) eb->enhancedbutton.pixmap_data;
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
321 char *fname = (char *) eb->enhancedbutton.pixmap_file;
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
322 int shift;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
323 GC gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
324
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
325 // Make sure there is a default value for the pixmap.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
326 if (!data)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
327 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
328
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
329 gc = XtGetGC((Widget)eb, (XtGCMask)0, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
330
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
331 scr = DefaultScreen(dpy);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
332 root = RootWindow(dpy, scr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
333
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
334 eb->label.pixmap = None;
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
335
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
336 eb->enhancedbutton.pixmap_depth = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
337 eb->enhancedbutton.pixmap_width = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
338 eb->enhancedbutton.pixmap_height = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
339 eb->enhancedbutton.normal_pixmap = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
340 eb->enhancedbutton.armed_pixmap = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
341 eb->enhancedbutton.highlight_pixmap = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
342 eb->enhancedbutton.insensitive_pixmap = None;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
343
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
344 // We use dynamic colors, get them now.
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
345 motif_get_toolbar_colors(
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
346 &eb->core.background_pixel,
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
347 &eb->primitive.foreground,
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
348 &eb->primitive.bottom_shadow_color,
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
349 &eb->primitive.top_shadow_color,
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
350 &eb->primitive.highlight_color);
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
351
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
352 // Setup color substitution table.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
353 color[0].pixel = eb->core.background_pixel;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
354 color[1].pixel = eb->core.background_pixel;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
355 color[2].pixel = eb->core.background_pixel;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
356 color[3].pixel = eb->primitive.foreground;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
357 color[4].pixel = eb->core.background_pixel;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
358 color[5].pixel = eb->primitive.top_shadow_color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
359 color[6].pixel = eb->primitive.highlight_color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
360 color[7].pixel = eb->pushbutton.arm_color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
361
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
362 // Create the "sensitive" pixmap.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
363 attr.valuemask = XpmColorSymbols | XpmCloseness;
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
364 attr.closeness = 65535; // accuracy isn't crucial
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
365 attr.colorsymbols = color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
366 attr.numsymbols = XtNumber(color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
367
161
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
368 if (fname)
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
369 status = XpmReadFileToPixmap(dpy, root, fname, &pix, &mask, &attr);
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
370 if (!fname || status != XpmSuccess)
6df0106fc595 updated for version 7.0049
vimboss
parents: 158
diff changeset
371 status = XpmCreatePixmapFromData(dpy, root, data, &pix, &mask, &attr);
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
372
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
373 // If something failed, we will fill in the default pixmap.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
374 if (status != XpmSuccess)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
375 status = XpmCreatePixmapFromData(dpy, root, blank_xpm, &pix,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
376 &mask, &attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
377
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
378 XpmFreeAttributes(&attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
379
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
380 XGetGeometry(dpy, pix, &root, &x, &y, &width, &height, &border, &depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
381
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
382 // TODO: does the shift depend on label_location somehow?
3624
3ae387af405f updated for version 7.3.572
Bram Moolenaar <bram@vim.org>
parents: 2311
diff changeset
383 shift = eb->primitive.shadow_thickness / 2;
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
384
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
385 if (shift < 1)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
386 shift = 1;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
387
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
388 sen_pix = XCreatePixmap(dpy, root, width + shift, height + shift, depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
389
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
390 XSetForeground(dpy, gc, eb->core.background_pixel);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
391 XFillRectangle(dpy, sen_pix, gc, 0, 0, width + shift, height + shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
392 XSetClipMask(dpy, gc, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
393 XSetClipOrigin(dpy, gc, shift, shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
394 XCopyArea(dpy, pix, sen_pix, gc, 0, 0, width, height, shift, shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
395
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
396 // Create the "highlight" pixmap.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
397 color[4].pixel = eb->primitive.bottom_shadow_color;
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
398 #ifdef XpmAllocColor // SGI doesn't have it
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
399 attr.valuemask = XpmColorSymbols | XpmCloseness | XpmAllocColor;
1438
c7654c4db8fd updated for version 7.1-153
vimboss
parents: 1206
diff changeset
400 attr.alloc_color = alloc_color;
c7654c4db8fd updated for version 7.1-153
vimboss
parents: 1206
diff changeset
401 #else
c7654c4db8fd updated for version 7.1-153
vimboss
parents: 1206
diff changeset
402 attr.valuemask = XpmColorSymbols | XpmCloseness;
c7654c4db8fd updated for version 7.1-153
vimboss
parents: 1206
diff changeset
403 #endif
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
404 attr.closeness = 65535; // accuracy isn't crucial
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
405 attr.colorsymbols = color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
406 attr.numsymbols = XtNumber(color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
407
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
408 status = XpmCreatePixmapFromData(dpy, root, data, &pix, NULL, &attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
409 XpmFreeAttributes(&attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
410
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
411 high_pix = XCreatePixmap(dpy, root, width + shift, height + shift, depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
412
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
413 #if 1
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
414 XSetForeground(dpy, gc, eb->core.background_pixel);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
415 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
416 XSetForeground(dpy, gc, eb->primitive.top_shadow_color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
417 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
418 XSetClipMask(dpy, gc, None);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
419 XFillRectangle(dpy, high_pix, gc, 0, 0, width + shift, height + shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
420 XSetClipMask(dpy, gc, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
421 XSetClipOrigin(dpy, gc, 0, 0);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
422 XCopyArea(dpy, pix, high_pix, gc, 0, 0, width, height, 0, 0);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
423
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
424 arm_pix = XCreatePixmap(dpy, pix, width + shift, height + shift, depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
425
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
426 if (eb->pushbutton.fill_on_arm)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
427 XSetForeground(dpy, gc, eb->pushbutton.arm_color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
428 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
429 XSetForeground(dpy, gc, eb->core.background_pixel);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
430 XSetClipOrigin(dpy, gc, shift, shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
431 XSetClipMask(dpy, gc, None);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
432 XFillRectangle(dpy, arm_pix, gc, 0, 0, width + shift, height + shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
433 XSetClipMask(dpy, gc, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
434 XSetClipOrigin(dpy, gc, 2 * shift, 2 * shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
435 XCopyArea(dpy, pix, arm_pix, gc, 0, 0, width, height, 2 * shift, 2 * shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
436
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
437 XFreePixmap(dpy, pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
438 XFreePixmap(dpy, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
439
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
440 // Create the "insensitive" pixmap.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
441 attr.valuemask = XpmColorSymbols | XpmCloseness | XpmColorKey;
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
442 attr.closeness = 65535; // accuracy isn't crucial
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
443 attr.colorsymbols = color;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
444 attr.numsymbols = sizeof(color) / sizeof(color[0]);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
445 attr.color_key = XPM_MONO;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
446 status = XpmCreatePixmapFromData(dpy, root, data, &pix, &mask, &attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
447
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
448 // Need to create new Pixmaps with the mask applied.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
449
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
450 ins_pix = XCreatePixmap(dpy, root, width + shift, height + shift, depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
451
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
452 XSetForeground(dpy, gc, eb->core.background_pixel);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
453 XSetClipOrigin(dpy, gc, 0, 0);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
454 XSetClipMask(dpy, gc, None);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
455 XFillRectangle(dpy, ins_pix, gc, 0, 0, width + shift, height + shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
456 XSetClipMask(dpy, gc, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
457 XSetForeground(dpy, gc, eb->primitive.top_shadow_color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
458 XSetClipOrigin(dpy, gc, 2 * shift, 2 * shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
459 XFillRectangle(dpy, ins_pix, gc, 2 * shift, 2 * shift, width, height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
460 XSetForeground(dpy, gc, eb->primitive.bottom_shadow_color);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
461 XSetClipOrigin(dpy, gc, shift, shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
462 XFillRectangle(dpy, ins_pix, gc, 0, 0, width + shift, height + shift);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
463 XtReleaseGC((Widget) eb, gc);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
464
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
465 XpmFreeAttributes(&attr);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
466
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
467 eb->enhancedbutton.pixmap_depth = depth;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
468 eb->enhancedbutton.pixmap_width = width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
469 eb->enhancedbutton.pixmap_height = height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
470 eb->enhancedbutton.normal_pixmap = sen_pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
471 eb->enhancedbutton.highlight_pixmap = high_pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
472 eb->enhancedbutton.insensitive_pixmap = ins_pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
473 eb->enhancedbutton.armed_pixmap = arm_pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
474
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
475 eb->enhancedbutton.doing_setvalues = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
476 eb->enhancedbutton.doing_setvalues = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
477
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
478 XFreePixmap(dpy, pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
479 XFreePixmap(dpy, mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
480 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
481
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
482 #define BUTTON_MASK ( \
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
483 Button1Mask | Button2Mask | Button3Mask | Button4Mask | Button5Mask \
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
484 )
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
485
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
486 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
487 draw_shadows(XmEnhancedButtonWidget eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
488 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
489 GC top_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
490 GC bottom_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
491 Boolean etched_in;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
492
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
493 if (!eb->primitive.shadow_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
494 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
495
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
496 if ((eb->core.width <= 2 * eb->primitive.highlight_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
497 || (eb->core.height <= 2 * eb->primitive.highlight_thickness))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
498 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
499
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
500 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
501 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
502 XmDisplay dpy;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
503
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
504 dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(eb));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
505 etched_in = dpy->display.enable_etched_in_menu;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
506 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
507 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
508 etched_in = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
509 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
510 if (!etched_in ^ eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
511 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
512 top_gc = eb->primitive.top_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
513 bottom_gc = eb->primitive.bottom_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
514 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
515 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
516 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
517 top_gc = eb->primitive.bottom_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
518 bottom_gc = eb->primitive.top_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
519 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
520
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
521 XmeDrawShadows(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
522 top_gc,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
523 bottom_gc,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
524 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
525 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
526 eb->core.width - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
527 eb->core.height - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
528 eb->primitive.shadow_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
529 (unsigned)(etched_in ? XmSHADOW_IN : XmSHADOW_OUT));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
530 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
531
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
532 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
533 draw_highlight(XmEnhancedButtonWidget eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
534 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
535 eb->primitive.highlighted = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
536 eb->primitive.highlight_drawn = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
537
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
538 if (!XtWidth(eb) || !XtHeight(eb) || !eb->primitive.highlight_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
539 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
540
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
541 XmeDrawHighlight(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
542 eb->primitive.highlight_GC, 0, 0,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
543 XtWidth(eb), XtHeight(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
544 eb->primitive.highlight_thickness);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
545 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
546
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
547 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
548 draw_unhighlight(XmEnhancedButtonWidget eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
549 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
550 GC manager_background_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
551
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
552 eb->primitive.highlighted = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
553 eb->primitive.highlight_drawn = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
554
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
555 if (!XtWidth(eb) || !XtHeight(eb) || !eb->primitive.highlight_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
556 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
557
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
558 if (XmIsManager(eb->core.parent))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
559 {
147
2f5a3b881ada updated for version 7.0046
vimboss
parents: 129
diff changeset
560 #ifdef UNHIGHLIGHTT
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
561 XmSpecifyUnhighlightTrait UnhighlightT;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
562
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
563 if (((UnhighlightT = (XmSpecifyUnhighlightTrait) XmeTraitGet((XtPointer)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
564 XtClass(eb->core.parent), XmQTspecifyUnhighlight))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
565 != NULL) && (UnhighlightT->getUnhighlightGC != NULL))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
566 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
567 // if unhighlight trait in parent use specified GC...
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
568 manager_background_GC =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
569 UnhighlightT->getUnhighlightGC(eb->core.parent, (Widget) eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
570 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
571 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
572 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
573 // ...otherwise, use parent's background GC
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
574 manager_background_GC = ((XmManagerWidget)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
575 (eb->core.parent))->manager.background_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
576 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
577 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
578 manager_background_GC = ((XmManagerWidget)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
579 (eb->core.parent))->manager.background_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
580 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
581 XmeDrawHighlight(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
582 manager_background_GC,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
583 0, 0, XtWidth(eb), XtHeight(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
584 eb->primitive.highlight_thickness);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
585 if (!eb->pushbutton.armed && eb->primitive.shadow_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
586 XmeClearBorder(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
587 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
588 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
589 eb->core.width - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
590 eb->core.height - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
591 eb->primitive.shadow_thickness);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
592 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
593 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
594 XmeClearBorder(XtDisplay(eb), XtWindow(eb), 0, 0, XtWidth(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
595 XtHeight(eb), eb->primitive.highlight_thickness);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
596 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
597
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
598 static void
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
599 draw_pixmap(XmEnhancedButtonWidget eb,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
600 XEvent *event UNUSED,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
601 Region region UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
602 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
603 Pixmap pix;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
604 GC gc = eb->label.normal_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
605 int depth;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
606 Cardinal width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
607 Cardinal height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
608 Cardinal w;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
609 Cardinal h;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
610 int x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
611 int y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
612
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
613 if (!XtIsSensitive((Widget) eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
614 pix = eb->enhancedbutton.insensitive_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
615 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
616 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
617 if (eb->primitive.highlighted && !eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
618 pix = eb->enhancedbutton.highlight_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
619 else if (eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
620 pix = eb->enhancedbutton.armed_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
621 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
622 pix = eb->enhancedbutton.normal_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
623 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
624
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
625 if (pix == None || !eb->enhancedbutton.pixmap_data)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
626 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
627
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
628 depth = eb->enhancedbutton.pixmap_depth;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
629 w = eb->enhancedbutton.pixmap_width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
630 h = eb->enhancedbutton.pixmap_height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
631
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
632 gc = eb->label.normal_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
633 x = eb->primitive.highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
634 + eb->primitive.shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
635 + eb->label.margin_width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
636 y = eb->primitive.highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
637 + eb->primitive.shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
638 + eb->label.margin_height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
639 width = eb->core.width - 2 * x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
640 if (w < width)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
641 width = w;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
642 height = eb->core.height - 2 * y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
643 if (h < height)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
644 height = h;
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
645 if (depth == (int)eb->core.depth)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
646 XCopyArea(XtDisplay(eb), pix, XtWindow(eb), gc, 0, 0,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
647 width, height, x, y);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
648 else if (depth == 1)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
649 XCopyPlane(XtDisplay(eb), pix, XtWindow(eb), gc, 0, 0,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
650 width, height, x, y, (unsigned long)1);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
651 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
652
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
653 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
654 * Draw the label contained in the pushbutton.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
655 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
656 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
657 draw_label(XmEnhancedButtonWidget eb, XEvent *event, Region region)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
658 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
659 GC tmp_gc = NULL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
660 Boolean replaceGC = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
661 Boolean deadjusted = False;
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
662 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
663 XmDisplay dpy = (XmDisplay)XmGetXmDisplay(XtDisplay(eb));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
664 Boolean etched_in = dpy->display.enable_etched_in_menu;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
665 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
666 Boolean etched_in = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
667 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
668
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
669 if (eb->pushbutton.armed
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
670 && ((!Lab_IsMenupane(eb) && eb->pushbutton.fill_on_arm)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
671 || (Lab_IsMenupane(eb) && etched_in)))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
672 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
673 if (eb->label.label_type == (int)XmSTRING
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
674 && eb->pushbutton.arm_color == eb->primitive.foreground)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
675 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
676 tmp_gc = eb->label.normal_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
677 eb->label.normal_GC = eb->pushbutton.background_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
678 replaceGC = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
679 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
680 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
681
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
682 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
683 * If the button contains a labeled pixmap, we will take it instead of our
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
684 * own pixmap.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
685 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
686
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
687 if (eb->label.label_type == (int)XmPIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
688 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
689 if (eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
690 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
691 if (eb->pushbutton.arm_pixmap != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
692 eb->label.pixmap = eb->pushbutton.arm_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
693 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
694 eb->label.pixmap = eb->pushbutton.unarm_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
695 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
696 else
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
697 // pushbutton is not armed
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
698 eb->label.pixmap = eb->pushbutton.unarm_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
699 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
700
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
701 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
702 * Temporarily remove the Xm3D_ENHANCE_PIXEL hack ("adjustment") from the
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
703 * margin values, so we don't confuse Label.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
704 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
705 if (eb->pushbutton.default_button_shadow_thickness > 0)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
706 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
707 deadjusted = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
708 Lab_MarginLeft(eb) -= Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
709 Lab_MarginRight(eb) -= Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
710 Lab_MarginTop(eb) -= Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
711 Lab_MarginBottom(eb) -= Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
712 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
713
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
714 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
715 XtExposeProc expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
716
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
717 XtProcessLock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
718 expose = xmLabelClassRec.core_class.expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
719 XtProcessUnlock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
720 (*expose)((Widget) eb, event, region);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
721 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
722
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
723 if (deadjusted)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
724 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
725 Lab_MarginLeft(eb) += Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
726 Lab_MarginRight(eb) += Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
727 Lab_MarginTop(eb) += Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
728 Lab_MarginBottom(eb) += Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
729 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
730
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
731 if (replaceGC)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
732 eb->label.normal_GC = tmp_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
733 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
734
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
735 static void
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
736 Enter(Widget wid,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
737 XEvent *event,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
738 String *params UNUSED,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
739 Cardinal *num_params UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
740 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
741 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget) wid;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
742 XmPushButtonCallbackStruct call_value;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
743
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
744 if (Lab_IsMenupane(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
745 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
746 if ((((ShellWidget) XtParent(XtParent(eb)))->shell.popped_up)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
747 && _XmGetInDragMode((Widget) eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
748 {
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
749 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
750 XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(wid));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
751 Boolean etched_in = dpy->display.enable_etched_in_menu;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
752 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
753 Boolean etched_in = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
754 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
755
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
756 if (eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
757 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
758
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
759 // ...so KHelp event is delivered correctly.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
760 _XmSetFocusFlag(XtParent(XtParent(eb)), XmFOCUS_IGNORE, TRUE);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
761 XtSetKeyboardFocus(XtParent(XtParent(eb)), (Widget) eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
762 _XmSetFocusFlag(XtParent(XtParent(eb)), XmFOCUS_IGNORE, FALSE);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
763
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
764 eb->pushbutton.armed = TRUE;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
765
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
766 ((XmManagerWidget) XtParent(wid))->manager.active_child = wid;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
767
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
768 // etched in menu button
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
769 if (etched_in && !XmIsTearOffButton(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
770 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
771 XFillRectangle(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
772 eb->pushbutton.fill_gc,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
773 0, 0, eb->core.width, eb->core.height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
774 draw_label(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
775 draw_pixmap(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
776 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
777
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
778 if ((eb->core.width > 2 * eb->primitive.highlight_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
779 && (eb->core.height >
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
780 2 * eb->primitive.highlight_thickness))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
781 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
782 XmeDrawShadows(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
783 eb->primitive.top_shadow_GC,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
784 eb->primitive.bottom_shadow_GC,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
785 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
786 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
787 eb->core.width - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
788 eb->core.height - 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
789 eb->primitive.shadow_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
790 (unsigned)(etched_in ? XmSHADOW_IN : XmSHADOW_OUT));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
791 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
792
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
793 if (eb->pushbutton.arm_callback)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
794 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
795 XFlush(XtDisplay(eb));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
796
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
797 call_value.reason = (int)XmCR_ARM;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
798 call_value.event = event;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
799 XtCallCallbackList((Widget) eb,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
800 eb->pushbutton.arm_callback,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
801 &call_value);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
802 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
803 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
804 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
805 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
806 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
807 XtExposeProc expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
808
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
809 _XmPrimitiveEnter((Widget) eb, event, NULL, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
810 if (eb->pushbutton.armed == TRUE)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
811 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
812 XtProcessLock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
813 expose = XtClass(eb)->core_class.expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
814 XtProcessUnlock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
815 (*expose) (wid, event, (Region) NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
816 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
817
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
818 draw_highlight(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
819 draw_shadows(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
820 draw_pixmap(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
821 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
822 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
823
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
824 static void
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
825 Leave(Widget wid,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
826 XEvent *event,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
827 String *params UNUSED,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
828 Cardinal *num_params UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
829 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
830 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)wid;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
831 XmPushButtonCallbackStruct call_value;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
832
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
833 if (Lab_IsMenupane(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
834 {
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
835 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
836 XmDisplay dpy = (XmDisplay) XmGetXmDisplay(XtDisplay(wid));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
837 Boolean etched_in = dpy->display.enable_etched_in_menu;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
838 #else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
839 Boolean etched_in = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
840 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
841
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
842 if (_XmGetInDragMode((Widget)eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
843 && eb->pushbutton.armed
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
844 && ( // !ActiveTearOff ||
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
845 event->xcrossing.mode == NotifyNormal))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
846 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
847 eb->pushbutton.armed = FALSE;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
848
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
849 ((XmManagerWidget) XtParent(wid))->manager.active_child = NULL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
850
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
851 if (etched_in && !XmIsTearOffButton(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
852 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
853 XFillRectangle(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
854 eb->pushbutton.background_gc,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
855 0, 0, eb->core.width, eb->core.height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
856 draw_label(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
857 draw_pixmap(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
858 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
859 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
860 XmeClearBorder
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
861 (XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
862 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
863 eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
864 eb->core.width -
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
865 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
866 eb->core.height -
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
867 2 * eb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
868 eb->primitive.shadow_thickness);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
869
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
870 if (eb->pushbutton.disarm_callback)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
871 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
872 XFlush(XtDisplay(eb));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
873
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
874 call_value.reason = (int)XmCR_DISARM;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
875 call_value.event = event;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
876 XtCallCallbackList((Widget) eb,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
877 eb->pushbutton.disarm_callback,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
878 &call_value);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
879 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
880 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
881 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
882 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
883 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
884 _XmPrimitiveLeave((Widget) eb, event, NULL, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
885
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
886 if (eb->pushbutton.armed == TRUE)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
887 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
888 XtExposeProc expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
889 eb->pushbutton.armed = FALSE;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
890 XtProcessLock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
891 expose = XtClass(eb)->core_class.expose;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
892 XtProcessUnlock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
893 (*expose) (wid, event, (Region)NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
894 draw_unhighlight(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
895 draw_pixmap(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
896 eb->pushbutton.armed = TRUE;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
897 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
898 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
899 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
900 draw_unhighlight(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
901 draw_pixmap(eb, event, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
902 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
903 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
904 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
905
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
906 #define IsNull(p) ((p) == XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
907
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
908 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
909 set_size(XmEnhancedButtonWidget newtb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
910 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
911 unsigned int w = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
912 unsigned int h = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
913
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
914 _XmCalcLabelDimensions((Widget) newtb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
915
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
916 // Find out how big the pixmap is
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
917 if (newtb->enhancedbutton.pixmap_data
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
918 && !IsNull(newtb->label.pixmap)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
919 && !IsNull(newtb->enhancedbutton.normal_pixmap))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
920 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
921 w = newtb->enhancedbutton.pixmap_width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
922 h = newtb->enhancedbutton.pixmap_height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
923 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
924
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
925 /*
4352
04736b4030ec updated for version 7.3.925
Bram Moolenaar <bram@vim.org>
parents: 3624
diff changeset
926 * Please note that we manipulate the width only in case of push buttons
04736b4030ec updated for version 7.3.925
Bram Moolenaar <bram@vim.org>
parents: 3624
diff changeset
927 * not used in the context of a menu pane.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
928 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
929 if (Lab_IsMenupane(newtb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
930 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
931 newtb->label.margin_left = w + 2 * (newtb->primitive.shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
932 + newtb->primitive.highlight_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
933 + newtb->label.margin_width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
934 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
935 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
936 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
937 newtb->label.margin_left = w;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
938 newtb->core.width = w + 2 * (newtb->primitive.shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
939 + newtb->primitive.highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
940 + newtb->label.margin_width)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
941 + newtb->label.TextRect.width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
942
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
943 if (newtb->label.TextRect.width > 0)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
944 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
945 newtb->label.margin_left += newtb->label.margin_width
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
946 + newtb->primitive.shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
947 newtb->core.width += newtb->label.margin_width
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
948 + newtb->primitive.shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
949 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
950 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
951 if (newtb->label.TextRect.height < h)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
952 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
953 newtb->core.height = h + 2 * (newtb->primitive.shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
954 + newtb->primitive.highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
955 + newtb->label.margin_height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
956 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
957 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
958 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
959 // FIXME: We should calculate an drawing offset for the pixmap here to
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
960 // adjust it.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
961 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
962
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
963 #if 0
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
964 printf("%d %d %d %d %d %d - %d %d\n", newtb->enhancedbutton.normal_pixmap,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
965 h, newtb->core.height,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
966 newtb->primitive.shadow_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
967 newtb->primitive.highlight_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
968 newtb->label.margin_height,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
969 newtb->core.width,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
970 newtb->core.height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
971 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
972
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
973 // Invoke Label's Resize procedure.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
974 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
975 XtWidgetProc resize;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
976 XtProcessLock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
977 resize = xmLabelClassRec.core_class.resize;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
978 XtProcessUnlock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
979
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
980 (* resize) ((Widget) newtb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
981 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
982 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
983
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
984 static void
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
985 Initialize(Widget rq, Widget ebw, ArgList args UNUSED, Cardinal *n UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
986 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
987 XmEnhancedButtonWidget request = (XmEnhancedButtonWidget)rq;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
988 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)ebw;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
989 XtWidgetProc resize;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
990
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
991 XtProcessLock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
992 resize = xmLabelClassRec.core_class.resize;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
993 XtProcessUnlock();
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
994
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
995 // Create a bitmap for stippling (Drawable resources are cheap).
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
996 if (STIPPLE_BITMAP == None)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
997 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
998 Display *dpy = XtDisplay((Widget) request);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
999 Window rootW = DefaultRootWindow(dpy);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1000
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1001 STIPPLE_BITMAP = XCreateBitmapFromData(dpy, rootW, stipple_bits,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1002 stipple_width, stipple_height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1003 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1004 eb->enhancedbutton.doing_setvalues = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1005
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1006 // First see what type of extended label this is.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1007 if (eb->enhancedbutton.pixmap_data)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1008 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1009 XmString str;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1010 set_pixmap(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1011
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1012 // FIXME: this is not the perfect way to deal with menus, which do not
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1013 // have any string set right now.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1014 str = XmStringCreateLocalized("");
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1015 XtVaSetValues((Widget) eb, XmNlabelString, str, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1016 XmStringFree(str);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1017 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1018 eb->label.pixmap = eb->enhancedbutton.normal_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1019
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1020 if (request->core.width == 0)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1021 eb->core.width = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1022 if (request->core.height == 0)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1023 eb->core.height = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1024 set_size(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1025
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1026 (* resize)((Widget)eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1027 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1028
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1029 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1030 free_pixmaps(XmEnhancedButtonWidget eb)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1031 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1032 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1033 * Clear the old pixmaps.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1034 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1035 Pixmap norm_pix = eb->enhancedbutton.normal_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1036 Pixmap arm_pix = eb->enhancedbutton.armed_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1037 Pixmap insen_pix = eb->enhancedbutton.insensitive_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1038 Pixmap high_pix = eb->enhancedbutton.highlight_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1039
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1040 if (norm_pix != None && norm_pix != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1041 XFreePixmap(XtDisplay(eb), norm_pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1042
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1043 if (arm_pix != None && arm_pix != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1044 XFreePixmap(XtDisplay(eb), arm_pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1045
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1046 if (insen_pix != None && insen_pix != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1047 XFreePixmap(XtDisplay(eb), insen_pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1048
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1049 if (high_pix != None && high_pix != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1050 XFreePixmap(XtDisplay(eb), high_pix);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1051 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1052
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1053 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1054 Destroy(Widget w)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1055 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1056 if (!XmIsEnhancedButton(w))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1057 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1058
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1059 free_pixmaps((XmEnhancedButtonWidget)w);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1060 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1061
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1062 static Boolean
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1063 SetValues(Widget current,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1064 Widget request UNUSED,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1065 Widget new,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1066 ArgList args UNUSED,
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1067 Cardinal *n UNUSED)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1068 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1069 XmEnhancedButtonWidget cur = (XmEnhancedButtonWidget) current;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1070 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget) new;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1071 Boolean redraw = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1072 Boolean change = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1073 Display *dpy = XtDisplay(current);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1074
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1075 #define NOT_EQUAL(field) (cur->field != eb->field)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1076
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1077 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1078 * Make sure that lost sensitivity is causing the border to vanish as well.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1079 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1080 if (NOT_EQUAL(core.sensitive) && !Lab_IsMenupane(current))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1081 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1082 if (cur->core.sensitive == True)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1083 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1084 draw_unhighlight(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1085 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1086 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1087 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1088 int r_x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1089 int r_y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1090 unsigned int r_height;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1091 unsigned int r_width;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1092 unsigned int r_border;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1093 unsigned int r_depth;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1094 int root_x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1095 int root_y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1096 int win_x;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1097 int win_y;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1098 Window root;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1099 Window root_q;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1100 Window child;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1101 unsigned int mask;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1102
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1103 /*
1206
76130176cf41 updated for version 7.1b
vimboss
parents: 1026
diff changeset
1104 * Artificially let the highlight appear if the mouse is over us.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1105 */
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1106 // Best way to get the root window of object:
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1107 XGetGeometry(dpy, XtWindow(cur), &root, &r_x, &r_y, &r_width,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1108 &r_height, &r_border, &r_depth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1109 XQueryPointer(XtDisplay(cur), XtWindow(cur), &root_q, &child,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1110 &root_x, &root_y, &win_x, &win_y, &mask);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1111
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1112 if (root == root_q)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1113 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1114 if ((win_x < 0) || (win_y < 0))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1115 return False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1116
1887
fc89a4f98a8b updated for version 7.2-184
vimboss
parents: 1757
diff changeset
1117 if ((win_x > (int)r_width) || (win_y > (int)r_height))
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1118 return False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1119 draw_highlight(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1120 draw_shadows(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1121 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1122 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1123
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1124 return True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1125 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1126
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1127 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1128 * Check for changed ExtLabelString.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1129 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1130 if (NOT_EQUAL(primitive.shadow_thickness))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1131 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1132 redraw = True;
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1133 // Don't change the pixmaps
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1134 change = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1135 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1136
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1137 if (NOT_EQUAL(primitive.foreground))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1138 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1139 if (NOT_EQUAL(core.background_pixel))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1140 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1141 if (NOT_EQUAL(pushbutton.fill_on_arm))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1142 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1143 if (NOT_EQUAL(enhancedbutton.spacing))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1144 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1145 if (NOT_EQUAL(enhancedbutton.label_location))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1146 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1147 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1148 change = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1149 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1150 if (NOT_EQUAL(label._label))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1151 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1152 redraw = True;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1153 set_size(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1154 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1155
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1156 if (redraw == True)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1157 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1158 if (change)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1159 set_pixmap(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1160 if (eb->primitive.highlighted)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1161 eb->label.pixmap = eb->enhancedbutton.highlight_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1162 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1163 eb->label.pixmap = eb->enhancedbutton.normal_pixmap;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1164 if (change)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1165 set_size(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1166 redraw = False;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1167 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1168
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1169 return redraw;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1170 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1171
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1172 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1173 Redisplay(Widget w, XEvent *event, Region region)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1174 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1175 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget) w;
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
1176 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1177 XmDisplay dpy;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1178 XtEnum default_button_emphasis;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1179 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1180 XRectangle box;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1181 int dx;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1182 int adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1183 short fill = 0;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1184
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1185 if (!XtIsRealized((Widget)eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1186 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1187
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
1188 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1189 dpy = (XmDisplay)XmGetXmDisplay(XtDisplay(eb));
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1190 default_button_emphasis = dpy->display.default_button_emphasis;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1191 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1192
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1193 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1194 * Compute the area allocated to the label of the pushbutton; fill in the
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1195 * dimensions in the box.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1196 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1197
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1198 if ((eb->pushbutton.arm_color == eb->primitive.top_shadow_color)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1199 || (eb->pushbutton.arm_color == eb->primitive.bottom_shadow_color))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1200 fill = 1;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1201
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1202 if (eb->pushbutton.compatible)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1203 adjust = eb->pushbutton.show_as_default;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1204 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1205 adjust = eb->pushbutton.default_button_shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1206
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1207 if (adjust > 0)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1208 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1209 adjust = adjust + eb->primitive.shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1210 adjust = (adjust << 1);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1211 dx = eb->primitive.highlight_thickness + adjust + fill;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1212 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1213 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1214 dx = (eb->primitive.highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1215 + eb->primitive.shadow_thickness + fill);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1216
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1217 box.x = dx;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1218 box.y = dx;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1219 adjust = (dx << 1);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1220 box.width = eb->core.width - adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1221 box.height = eb->core.height - adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1222
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1223 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1224 * Redraw the background.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1225 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1226 if (!Lab_IsMenupane(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1227 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1228 GC gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1229
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1230 // Don't shade if the button contains a label with a pixmap, since
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1231 // there is no variant of the label available with the needed
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1232 // background.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1233 if (eb->pushbutton.armed && eb->pushbutton.fill_on_arm)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1234 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1235 if (eb->label.label_type == (int)XmPIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1236 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1237 if (eb->pushbutton.arm_pixmap != XmUNSPECIFIED_PIXMAP)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1238 gc = eb->pushbutton.fill_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1239 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1240 gc = eb->pushbutton.background_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1241 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1242 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1243 gc = eb->pushbutton.fill_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1244 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1245 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1246 gc = eb->pushbutton.background_gc;
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1247 // really need to fill with background if not armed ?
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1248 if (gc)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1249 XFillRectangle(XtDisplay(eb), XtWindow(eb), gc,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1250 box.x, box.y, box.width, box.height);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1251 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1252
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1253 draw_label(eb, event, region);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1254
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1255 if (Lab_IsMenupane(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1256 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1257 if (eb->pushbutton.armed)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1258 (*(((XmPushButtonWidgetClass)XtClass(eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1259 ->primitive_class.border_highlight))(w);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1260 draw_pixmap(eb, event, region);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1261 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1262 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1263 {
1757
f10fe14748e2 updated for version 7.2-055
vimboss
parents: 1438
diff changeset
1264 adjust = 0;
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1265
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
1266 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1267 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1268 * NOTE: PushButton has two types of shadows: primitive-shadow and
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1269 * default-button-shadow. If pushbutton is in a menu only primitive
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1270 * shadows are drawn.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1271 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1272 switch (default_button_emphasis)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1273 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1274 case XmEXTERNAL_HIGHLIGHT:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1275 adjust = (eb->primitive.highlight_thickness -
1757
f10fe14748e2 updated for version 7.2-055
vimboss
parents: 1438
diff changeset
1276 (eb->pushbutton.default_button_shadow_thickness
f10fe14748e2 updated for version 7.2-055
vimboss
parents: 1438
diff changeset
1277 ? Xm3D_ENHANCE_PIXEL : 0));
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1278 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1279
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1280 case XmINTERNAL_HIGHLIGHT:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1281 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1282
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1283 default:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1284 assert(FALSE);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1285 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1286 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1287 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1288
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1289 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1290 * Clear the area not occupied by label with parents background color.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1291 * Label will invoke BorderUnhighlight() on the highlight_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1292 * area, which is redundant when XmEXTERNAL_HIGHLIGHT default button
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1293 * shadow emphasis is used.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1294 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1295 if (box.x > adjust)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1296 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1297 int borderwidth =box.x - adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1298 int rectwidth = eb->core.width - 2 * adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1299 int rectheight = eb->core.height - 2 * adjust;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1300
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1301 if (XmIsManager(XtParent(eb)))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1302 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1303 XmeDrawHighlight(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1304 XmParentBackgroundGC(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1305 adjust, adjust, rectwidth, rectheight, borderwidth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1306 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1307 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1308 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1309 XmeClearBorder(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1310 adjust, adjust, rectwidth, rectheight, borderwidth);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1311 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1312
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
1313 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1314 switch (default_button_emphasis)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1315 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1316 case XmINTERNAL_HIGHLIGHT:
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1317 // The call above erases the border highlighting.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1318 if (eb->primitive.highlight_drawn)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1319 (*(((XmPushButtonWidgetClass) XtClass (eb))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1320 ->primitive_class.border_highlight)) ((Widget) eb) ;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1321 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1322
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1323 default:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1324 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1325 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1326 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1327 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1328
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1329 if (eb->pushbutton.default_button_shadow_thickness)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1330 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1331 if (eb->pushbutton.show_as_default)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1332 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1333 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1334 * - get the topShadowColor and bottomShadowColor from the
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1335 * parent; use those colors to construct top and bottom gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1336 * use these GCs to draw the shadows of the button.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1337 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1338 * - Should not be called if pushbutton is in a row column or
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1339 * in a menu.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1340 *
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1341 * - Should be called only if a defaultbuttonshadow is to be
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1342 * drawn.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1343 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1344 GC top_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1345 GC bottom_gc;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1346 int default_button_shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1347 int x, y, width, height, delta;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1348 Widget parent;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1349
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1350 if (eb->pushbutton.compatible
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1351 && (eb->pushbutton.show_as_default == 0))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1352 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1353
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1354 if (!eb->pushbutton.compatible
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1355 && (eb->pushbutton.default_button_shadow_thickness
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1356 == 0))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1357 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1358
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1359 delta = eb->primitive.highlight_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1360
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1361 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1362 * May need more complex computation for getting the GCs.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1363 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1364 parent = XtParent(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1365 if (XmIsManager(parent))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1366 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1367 // Use the parent's GC so monochrome works.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1368 bottom_gc = XmParentTopShadowGC(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1369 top_gc = XmParentBottomShadowGC(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1370 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1371 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1372 {
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1373 // Use your own pixel for drawing.
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1374 bottom_gc = eb->primitive.top_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1375 top_gc = eb->primitive.bottom_shadow_GC;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1376 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1377
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1378 if ((bottom_gc == None) || (top_gc == None))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1379 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1380
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1381
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1382 if (eb->pushbutton.compatible)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1383 default_button_shadow_thickness =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1384 eb->pushbutton.show_as_default;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1385 else
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1386 default_button_shadow_thickness =
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1387 eb->pushbutton.default_button_shadow_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1388
888
882b2fa49a2a updated for version 7.0-014
vimboss
parents: 856
diff changeset
1389 #if !defined(LESSTIF_VERSION) && (XmVersion > 1002)
48
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1390 /*
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1391 * Compute location of bounding box to contain the
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1392 * defaultButtonShadow.
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1393 */
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1394 switch (default_button_emphasis)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1395 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1396 case XmEXTERNAL_HIGHLIGHT:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1397 delta = eb->primitive.highlight_thickness;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1398 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1399
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1400 case XmINTERNAL_HIGHLIGHT:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1401 delta = Xm3D_ENHANCE_PIXEL;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1402 break;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1403
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1404 default:
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1405 assert(FALSE);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1406 return;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1407 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1408 #endif
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1409
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1410 x = y = delta;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1411 width = eb->core.width - 2 * delta;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1412 height = eb->core.height - 2 * delta;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1413
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1414 if ((width > 0) && (height > 0))
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1415 XmeDrawShadows(XtDisplay(eb), XtWindow(eb),
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1416 top_gc, bottom_gc, x, y, width, height,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1417 default_button_shadow_thickness,
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1418 (unsigned)XmSHADOW_OUT);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1419 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1420 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1421
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1422 if (eb->primitive.highlight_drawn)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1423 draw_shadows(eb);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1424 draw_pixmap(eb, event, region);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1425 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1426 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1427
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1428 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1429 BorderHighlight(Widget w)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1430 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1431 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)w;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1432
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1433 (*(xmPushButtonClassRec.primitive_class.border_highlight))(w);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1434 draw_pixmap(eb, NULL, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1435 }
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1436
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1437 static void
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1438 BorderUnhighlight(Widget w)
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1439 {
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1440 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)w;
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1441
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1442 (*(xmPushButtonClassRec.primitive_class.border_unhighlight))(w);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1443 draw_pixmap(eb, NULL, NULL);
00c35ea0c2b3 updated for version 7.0028
vimboss
parents:
diff changeset
1444 }
158
78423945b251 updated for version 7.0048
vimboss
parents: 147
diff changeset
1445
18788
e1f4e9d78a6a patch 8.1.2383: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 15517
diff changeset
1446 #endif // FEAT_TOOLBAR