Mercurial > vim
annotate src/gui_athena.c @ 26994:8d9506f3542e v8.2.4026
patch 8.2.4026: ml_get error with specific win_execute() command
Commit: https://github.com/vim/vim/commit/e664a327014f4aa8baf8549a34a4caab2f3116a3
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Jan 7 14:08:03 2022 +0000
patch 8.2.4026: ml_get error with specific win_execute() command
Problem: ml_get error with specific win_execute() command. (Sean Dewar)
Solution: Check cursor and Visual area are OK.
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Fri, 07 Jan 2022 15:15:03 +0100 |
| parents | 1435891c3fd1 |
| children | 298b32b544ae |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
7825
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * GUI/Motif support by Robert Webb | |
| 5 * Athena port by Bill Foster | |
| 6 * | |
| 7 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 8 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 9 * See README.txt for an overview of the Vim source code. | |
| 10 */ | |
| 11 | |
|
10956
90af0c60d78d
patch 8.0.0367: types in include files may be inconsistent
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
12 #include "vim.h" |
|
90af0c60d78d
patch 8.0.0367: types in include files may be inconsistent
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
13 |
| 7 | 14 #include <X11/StringDefs.h> |
| 15 #include <X11/Intrinsic.h> | |
| 16 #ifdef FEAT_GUI_NEXTAW | |
| 17 # include <X11/neXtaw/Form.h> | |
| 18 # include <X11/neXtaw/SimpleMenu.h> | |
| 19 # include <X11/neXtaw/MenuButton.h> | |
| 20 # include <X11/neXtaw/SmeBSB.h> | |
| 21 # include <X11/neXtaw/SmeLine.h> | |
| 22 # include <X11/neXtaw/Box.h> | |
| 23 # include <X11/neXtaw/Dialog.h> | |
| 24 # include <X11/neXtaw/Text.h> | |
| 25 # include <X11/neXtaw/AsciiText.h> | |
| 26 # include <X11/neXtaw/Scrollbar.h> | |
| 27 #else | |
| 28 # include <X11/Xaw/Form.h> | |
| 29 # include <X11/Xaw/SimpleMenu.h> | |
| 30 # include <X11/Xaw/MenuButton.h> | |
| 31 # include <X11/Xaw/SmeBSB.h> | |
| 32 # include <X11/Xaw/SmeLine.h> | |
| 33 # include <X11/Xaw/Box.h> | |
| 34 # include <X11/Xaw/Dialog.h> | |
| 35 # include <X11/Xaw/Text.h> | |
| 36 # include <X11/Xaw/AsciiText.h> | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
37 #endif // FEAT_GUI_NEXTAW |
| 7 | 38 |
| 39 #ifndef FEAT_GUI_NEXTAW | |
| 40 # include "gui_at_sb.h" | |
| 41 #endif | |
| 42 | |
| 43 extern Widget vimShell; | |
| 44 | |
| 45 static Widget vimForm = (Widget)0; | |
| 215 | 46 Widget textArea = (Widget)0; |
| 7 | 47 #ifdef FEAT_MENU |
| 48 static Widget menuBar = (Widget)0; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
49 static XtIntervalId timer = 0; // 0 = expired, otherwise active |
| 7 | 50 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
51 // Used to figure out menu ordering |
| 7 | 52 static vimmenu_T *a_cur_menu = NULL; |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
53 static Cardinal athena_calculate_ins_pos(Widget); |
| 7 | 54 |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
55 static void gui_athena_popup_callback(Widget, XtPointer, XtPointer); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
56 static void gui_athena_delayed_arm_action(Widget, XEvent *, String *, |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
57 Cardinal *); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
58 static void gui_athena_popdown_submenus_action(Widget, XEvent *, |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
59 String *, Cardinal *); |
| 7 | 60 static XtActionsRec pullAction[2] = { |
| 61 { "menu-delayedpopup", (XtActionProc)gui_athena_delayed_arm_action}, | |
| 62 { "menu-popdownsubmenus", (XtActionProc)gui_athena_popdown_submenus_action} | |
| 63 }; | |
| 64 #endif | |
| 65 | |
| 66 #ifdef FEAT_TOOLBAR | |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
67 static void gui_mch_reset_focus(void); |
| 7 | 68 static Widget toolBar = (Widget)0; |
| 69 #endif | |
| 70 | |
| 71 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_MENU) | |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
72 static void gui_athena_menu_colors(Widget id); |
| 7 | 73 #endif |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
74 static void gui_athena_scroll_colors(Widget id); |
| 7 | 75 |
| 76 #ifdef FEAT_MENU | |
| 77 static XtTranslations popupTrans, parentTrans, menuTrans, supermenuTrans; | |
| 78 static Pixmap pullerBitmap = None; | |
| 79 static int puller_width = 0; | |
| 80 #endif | |
| 81 | |
| 82 /* | |
| 83 * Scrollbar callback (XtNjumpProc) for when the scrollbar is dragged with the | |
| 84 * left or middle mouse button. | |
| 85 */ | |
| 86 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
87 gui_athena_scroll_cb_jump( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
88 Widget w UNUSED, |
|
7825
7898da204b98
commit https://github.com/vim/vim/commit/02fdaeaa697fb5af4ba7fee6e209b3c2c825bb4f
Christian Brabandt <cb@256bit.org>
parents:
7821
diff
changeset
|
89 XtPointer client_data, |
|
7898da204b98
commit https://github.com/vim/vim/commit/02fdaeaa697fb5af4ba7fee6e209b3c2c825bb4f
Christian Brabandt <cb@256bit.org>
parents:
7821
diff
changeset
|
90 XtPointer call_data) |
| 7 | 91 { |
| 92 scrollbar_T *sb, *sb_info; | |
| 93 long value; | |
| 94 | |
| 95 sb = gui_find_scrollbar((long)client_data); | |
| 96 | |
| 97 if (sb == NULL) | |
| 98 return; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
99 else if (sb->wp != NULL) // Left or right scrollbar |
| 7 | 100 { |
| 101 /* | |
| 102 * Careful: need to get scrollbar info out of first (left) scrollbar | |
| 103 * for window, but keep real scrollbar too because we must pass it to | |
| 104 * gui_drag_scrollbar(). | |
| 105 */ | |
| 106 sb_info = &sb->wp->w_scrollbars[0]; | |
| 107 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
108 else // Bottom scrollbar |
| 7 | 109 sb_info = sb; |
| 110 | |
| 111 value = (long)(*((float *)call_data) * (float)(sb_info->max + 1) + 0.001); | |
| 112 if (value > sb_info->max) | |
| 113 value = sb_info->max; | |
| 114 | |
| 115 gui_drag_scrollbar(sb, value, TRUE); | |
| 116 } | |
| 117 | |
| 118 /* | |
| 119 * Scrollbar callback (XtNscrollProc) for paging up or down with the left or | |
| 120 * right mouse buttons. | |
| 121 */ | |
| 122 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
123 gui_athena_scroll_cb_scroll( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
124 Widget w UNUSED, |
|
7825
7898da204b98
commit https://github.com/vim/vim/commit/02fdaeaa697fb5af4ba7fee6e209b3c2c825bb4f
Christian Brabandt <cb@256bit.org>
parents:
7821
diff
changeset
|
125 XtPointer client_data, |
|
7898da204b98
commit https://github.com/vim/vim/commit/02fdaeaa697fb5af4ba7fee6e209b3c2c825bb4f
Christian Brabandt <cb@256bit.org>
parents:
7821
diff
changeset
|
126 XtPointer call_data) |
| 7 | 127 { |
| 128 scrollbar_T *sb, *sb_info; | |
| 129 long value; | |
| 130 int data = (int)(long)call_data; | |
| 131 int page; | |
| 132 | |
| 133 sb = gui_find_scrollbar((long)client_data); | |
| 134 | |
| 135 if (sb == NULL) | |
| 136 return; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
137 if (sb->wp != NULL) // Left or right scrollbar |
| 7 | 138 { |
| 139 /* | |
| 140 * Careful: need to get scrollbar info out of first (left) scrollbar | |
| 141 * for window, but keep real scrollbar too because we must pass it to | |
| 142 * gui_drag_scrollbar(). | |
| 143 */ | |
| 144 sb_info = &sb->wp->w_scrollbars[0]; | |
| 145 | |
| 146 if (sb_info->size > 5) | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
147 page = sb_info->size - 2; // use two lines of context |
| 7 | 148 else |
| 149 page = sb_info->size; | |
| 150 #ifdef FEAT_GUI_NEXTAW | |
| 151 if (data < 0) | |
| 152 { | |
| 153 data = (data - gui.char_height + 1) / gui.char_height; | |
| 154 if (data > -sb_info->size) | |
| 155 data = -1; | |
| 156 else | |
| 157 data = -page; | |
| 158 } | |
| 159 else if (data > 0) | |
| 160 { | |
| 161 data = (data + gui.char_height - 1) / gui.char_height; | |
| 162 if (data < sb_info->size) | |
| 163 data = 1; | |
| 164 else | |
| 165 data = page; | |
| 166 } | |
| 167 #else | |
| 168 switch (data) | |
| 169 { | |
| 170 case ONE_LINE_DATA: data = 1; break; | |
| 171 case -ONE_LINE_DATA: data = -1; break; | |
| 172 case ONE_PAGE_DATA: data = page; break; | |
| 173 case -ONE_PAGE_DATA: data = -page; break; | |
| 174 case END_PAGE_DATA: data = sb_info->max; break; | |
| 175 case -END_PAGE_DATA: data = -sb_info->max; break; | |
| 176 default: data = 0; break; | |
| 177 } | |
| 178 #endif | |
| 179 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
180 else // Bottom scrollbar |
| 7 | 181 { |
| 182 sb_info = sb; | |
| 183 #ifdef FEAT_GUI_NEXTAW | |
| 184 if (data < 0) | |
| 185 { | |
| 186 data = (data - gui.char_width + 1) / gui.char_width; | |
| 187 if (data > -sb->size) | |
| 188 data = -1; | |
| 189 } | |
| 190 else if (data > 0) | |
| 191 { | |
| 192 data = (data + gui.char_width - 1) / gui.char_width; | |
| 193 if (data < sb->size) | |
| 194 data = 1; | |
| 195 } | |
| 196 #endif | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
197 if (data < -1) // page-width left |
| 7 | 198 { |
| 199 if (sb->size > 8) | |
| 200 data = -(sb->size - 5); | |
| 201 else | |
| 202 data = -sb->size; | |
| 203 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
204 else if (data > 1) // page-width right |
| 7 | 205 { |
| 206 if (sb->size > 8) | |
| 207 data = (sb->size - 5); | |
| 208 else | |
| 209 data = sb->size; | |
| 210 } | |
| 211 } | |
| 212 | |
| 213 value = sb_info->value + data; | |
| 214 if (value > sb_info->max) | |
| 215 value = sb_info->max; | |
| 216 else if (value < 0) | |
| 217 value = 0; | |
| 218 | |
|
26771
fc859aea8cec
patch 8.2.3914: various spelling mistakes in comments
Bram Moolenaar <Bram@vim.org>
parents:
24768
diff
changeset
|
219 // Update the bottom scrollbar an extra time (why is this needed??) |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
220 if (sb->wp == NULL) // Bottom scrollbar |
| 7 | 221 gui_mch_set_scrollbar_thumb(sb, value, sb->size, sb->max); |
| 222 | |
| 223 gui_drag_scrollbar(sb, value, FALSE); | |
| 224 } | |
| 225 | |
| 226 /* | |
| 227 * Create all the Athena widgets necessary. | |
| 228 */ | |
| 229 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
230 gui_x11_create_widgets(void) |
| 7 | 231 { |
| 232 /* | |
| 233 * We don't have any borders handled internally by the textArea to worry | |
| 234 * about so only skip over the configured border width. | |
| 235 */ | |
| 236 gui.border_offset = gui.border_width; | |
| 237 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
238 // The form containing all the other widgets |
| 7 | 239 vimForm = XtVaCreateManagedWidget("vimForm", |
| 240 formWidgetClass, vimShell, | |
| 241 XtNborderWidth, 0, | |
| 242 NULL); | |
| 243 gui_athena_scroll_colors(vimForm); | |
| 244 | |
| 245 #ifdef FEAT_MENU | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
246 // The top menu bar |
| 7 | 247 menuBar = XtVaCreateManagedWidget("menuBar", |
| 248 boxWidgetClass, vimForm, | |
| 249 XtNresizable, True, | |
| 250 XtNtop, XtChainTop, | |
| 251 XtNbottom, XtChainTop, | |
| 252 XtNleft, XtChainLeft, | |
| 253 XtNright, XtChainRight, | |
| 254 XtNinsertPosition, athena_calculate_ins_pos, | |
| 255 NULL); | |
| 256 gui_athena_menu_colors(menuBar); | |
| 257 if (gui.menu_fg_pixel != INVALCOLOR) | |
| 258 XtVaSetValues(menuBar, XtNborderColor, gui.menu_fg_pixel, NULL); | |
| 259 #endif | |
| 260 | |
| 261 #ifdef FEAT_TOOLBAR | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
262 // Don't create it Managed, it will be managed when creating the first |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
263 // item. Otherwise an empty toolbar shows up. |
| 7 | 264 toolBar = XtVaCreateWidget("toolBar", |
| 265 boxWidgetClass, vimForm, | |
| 266 XtNresizable, True, | |
| 267 XtNtop, XtChainTop, | |
| 268 XtNbottom, XtChainTop, | |
| 269 XtNleft, XtChainLeft, | |
| 270 XtNright, XtChainRight, | |
| 271 XtNorientation, XtorientHorizontal, | |
| 272 XtNhSpace, 1, | |
| 273 XtNvSpace, 3, | |
| 274 XtNinsertPosition, athena_calculate_ins_pos, | |
| 275 NULL); | |
| 276 gui_athena_menu_colors(toolBar); | |
| 277 #endif | |
| 278 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
279 // The text area. |
| 7 | 280 textArea = XtVaCreateManagedWidget("textArea", |
| 281 coreWidgetClass, vimForm, | |
| 282 XtNresizable, True, | |
| 283 XtNtop, XtChainTop, | |
| 284 XtNbottom, XtChainTop, | |
| 285 XtNleft, XtChainLeft, | |
| 286 XtNright, XtChainLeft, | |
| 287 XtNbackground, gui.back_pixel, | |
| 288 XtNborderWidth, 0, | |
| 289 NULL); | |
| 290 | |
| 291 /* | |
| 292 * Install the callbacks. | |
| 293 */ | |
| 294 gui_x11_callbacks(textArea, vimForm); | |
| 295 | |
| 296 #ifdef FEAT_MENU | |
| 297 popupTrans = XtParseTranslationTable( | |
| 298 "<EnterWindow>: menu-popdownsubmenus() highlight() menu-delayedpopup()\n" | |
| 299 "<LeaveWindow>: unhighlight()\n" | |
| 300 "<BtnUp>: menu-popdownsubmenus() XtMenuPopdown() notify() unhighlight()\n" | |
| 301 "<Motion>: highlight() menu-delayedpopup()"); | |
| 302 parentTrans = XtParseTranslationTable("<LeaveWindow>: unhighlight()"); | |
| 303 menuTrans = XtParseTranslationTable( | |
| 304 "<EnterWindow>: menu-popdownsubmenus() highlight() menu-delayedpopup()\n" | |
| 305 "<LeaveWindow>: menu-popdownsubmenus() XtMenuPopdown() unhighlight()\n" | |
| 306 "<BtnUp>: notify() unhighlight()\n" | |
| 307 "<BtnMotion>: highlight() menu-delayedpopup()"); | |
| 308 supermenuTrans = XtParseTranslationTable( | |
| 309 "<EnterWindow>: menu-popdownsubmenus() highlight() menu-delayedpopup()\n" | |
| 310 "<LeaveWindow>: unhighlight()\n" | |
| 311 "<BtnUp>: menu-popdownsubmenus() XtMenuPopdown() notify() unhighlight()\n" | |
| 312 "<BtnMotion>: highlight() menu-delayedpopup()"); | |
| 313 | |
| 314 XtAppAddActions(XtWidgetToApplicationContext(vimForm), pullAction, | |
| 315 XtNumber(pullAction)); | |
| 316 #endif | |
| 317 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
318 // Pretend we don't have input focus, we will get an event if we do. |
| 7 | 319 gui.in_focus = FALSE; |
| 320 } | |
| 321 | |
| 322 #ifdef FEAT_MENU | |
| 323 /* | |
| 324 * Calculates the Pixmap based on the size of the current menu font. | |
| 325 */ | |
| 326 static Pixmap | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
327 gui_athena_create_pullright_pixmap(Widget w) |
| 7 | 328 { |
| 329 Pixmap retval; | |
| 330 #ifdef FONTSET_ALWAYS | |
| 331 XFontSet font = None; | |
| 332 #else | |
| 333 XFontStruct *font = NULL; | |
| 334 #endif | |
| 335 | |
| 336 #ifdef FONTSET_ALWAYS | |
| 337 if (gui.menu_fontset == NOFONTSET) | |
| 338 #else | |
| 339 if (gui.menu_font == NOFONT) | |
| 340 #endif | |
| 341 { | |
| 342 XrmValue from, to; | |
| 343 WidgetList children; | |
| 344 Cardinal num_children; | |
| 345 | |
| 346 #ifdef FONTSET_ALWAYS | |
| 347 from.size = strlen(from.addr = XtDefaultFontSet); | |
| 348 to.addr = (XtPointer)&font; | |
| 349 to.size = sizeof(XFontSet); | |
| 350 #else | |
| 351 from.size = strlen(from.addr = XtDefaultFont); | |
| 352 to.addr = (XtPointer)&font; | |
| 353 to.size = sizeof(XFontStruct *); | |
| 354 #endif | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
355 // Assumption: The menuBar children will use the same font as the |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
356 // pulldown menu items AND they will all be of type |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
357 // XtNfont. |
| 7 | 358 XtVaGetValues(menuBar, XtNchildren, &children, |
| 359 XtNnumChildren, &num_children, | |
| 360 NULL); | |
| 361 if (XtConvertAndStore(w ? w : | |
| 362 (num_children > 0) ? children[0] : menuBar, | |
| 363 XtRString, &from, | |
| 364 #ifdef FONTSET_ALWAYS | |
| 365 XtRFontSet, &to | |
| 366 #else | |
| 367 XtRFontStruct, &to | |
| 368 #endif | |
| 369 ) == False) | |
| 370 return None; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
371 // "font" should now contain data |
| 7 | 372 } |
| 373 else | |
| 374 #ifdef FONTSET_ALWAYS | |
| 375 font = (XFontSet)gui.menu_fontset; | |
| 376 #else | |
| 377 font = (XFontStruct *)gui.menu_font; | |
| 378 #endif | |
| 379 | |
| 380 { | |
| 381 int width, height; | |
| 382 GC draw_gc, undraw_gc; | |
| 383 XGCValues gc_values; | |
| 384 XPoint points[3]; | |
| 385 | |
| 386 #ifdef FONTSET_ALWAYS | |
| 387 height = fontset_height2(font); | |
| 388 #else | |
| 389 height = font->max_bounds.ascent + font->max_bounds.descent; | |
| 390 #endif | |
| 391 width = height - 2; | |
| 392 puller_width = width + 4; | |
| 393 retval = XCreatePixmap(gui.dpy,DefaultRootWindow(gui.dpy),width, | |
| 394 height, 1); | |
| 395 gc_values.foreground = 1; | |
| 396 gc_values.background = 0; | |
| 397 draw_gc = XCreateGC(gui.dpy, retval, | |
| 398 GCForeground | GCBackground, | |
| 399 &gc_values); | |
| 400 gc_values.foreground = 0; | |
| 401 gc_values.background = 1; | |
| 402 undraw_gc = XCreateGC(gui.dpy, retval, | |
| 403 GCForeground | GCBackground, | |
| 404 &gc_values); | |
| 405 points[0].x = 0; | |
| 406 points[0].y = 0; | |
| 407 points[1].x = width - 1; | |
| 408 points[1].y = (height - 1) / 2; | |
| 409 points[2].x = 0; | |
| 410 points[2].y = height - 1; | |
| 411 XFillRectangle(gui.dpy, retval, undraw_gc, 0, 0, height, height); | |
| 412 XFillPolygon(gui.dpy, retval, draw_gc, points, XtNumber(points), | |
| 413 Convex, CoordModeOrigin); | |
| 414 XFreeGC(gui.dpy, draw_gc); | |
| 415 XFreeGC(gui.dpy, undraw_gc); | |
| 416 } | |
| 417 return retval; | |
| 418 } | |
| 419 #endif | |
| 420 | |
| 421 /* | |
| 422 * Called when the GUI is not going to start after all. | |
| 423 */ | |
| 424 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
425 gui_x11_destroy_widgets(void) |
| 7 | 426 { |
| 427 textArea = NULL; | |
| 428 #ifdef FEAT_MENU | |
| 429 menuBar = NULL; | |
| 430 #endif | |
| 431 #ifdef FEAT_TOOLBAR | |
| 432 toolBar = NULL; | |
| 433 #endif | |
| 434 } | |
| 435 | |
| 436 #if defined(FEAT_TOOLBAR) || defined(PROTO) | |
| 47 | 437 # include "gui_x11_pm.h" |
| 438 # ifdef HAVE_X11_XPM_H | |
| 439 # include <X11/xpm.h> | |
| 440 # endif | |
| 441 | |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
442 static void createXpmImages(char_u *path, char **xpm, Pixmap *sen); |
| 47 | 443 |
| 444 /* | |
| 445 * Allocated a pixmap for toolbar menu "menu". | |
| 446 * Return in "sen". | |
| 447 */ | |
| 448 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
449 get_toolbar_pixmap(vimmenu_T *menu, Pixmap *sen) |
| 47 | 450 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
451 char_u buf[MAXPATHL]; // buffer storing expanded pathname |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
452 char **xpm = NULL; // xpm array |
| 47 | 453 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
454 buf[0] = NUL; // start with NULL path |
| 47 | 455 |
| 456 if (menu->iconfile != NULL) | |
| 457 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
458 // Use the "icon=" argument. |
| 47 | 459 gui_find_iconfile(menu->iconfile, buf, "xpm"); |
| 460 createXpmImages(buf, NULL, sen); | |
| 461 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
462 // If it failed, try using the menu name. |
| 47 | 463 if (*sen == (Pixmap)0 && gui_find_bitmap(menu->name, buf, "xpm") == OK) |
| 464 createXpmImages(buf, NULL, sen); | |
| 465 if (*sen != (Pixmap)0) | |
| 466 return; | |
| 467 } | |
| 468 | |
| 469 if (menu->icon_builtin || gui_find_bitmap(menu->name, buf, "xpm") == FAIL) | |
| 470 { | |
| 471 if (menu->iconidx >= 0 && menu->iconidx | |
|
24768
7334bf933510
patch 8.2.2922: computing array length is done in various ways
Bram Moolenaar <Bram@vim.org>
parents:
21355
diff
changeset
|
472 < (int)ARRAY_LENGTH(built_in_pixmaps)) |
| 47 | 473 xpm = built_in_pixmaps[menu->iconidx]; |
| 474 else | |
| 475 xpm = tb_blank_xpm; | |
| 476 } | |
| 477 | |
| 478 if (xpm != NULL || buf[0] != NUL) | |
| 479 createXpmImages(buf, xpm, sen); | |
| 480 } | |
| 481 | |
| 482 /* | |
| 483 * Read an Xpm file, doing color substitutions for the foreground and | |
| 484 * background colors. If there is an error reading a color xpm file, | |
| 485 * drop back and read the monochrome file. If successful, create the | |
| 486 * insensitive Pixmap too. | |
| 487 */ | |
| 488 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
489 createXpmImages(char_u *path, char **xpm, Pixmap *sen) |
| 47 | 490 { |
| 491 Window rootWindow; | |
| 492 XpmAttributes attrs; | |
| 493 XpmColorSymbol color[5] = | |
| 494 { | |
| 495 {"none", "none", 0}, | |
| 496 {"iconColor1", NULL, 0}, | |
| 497 {"bottomShadowColor", NULL, 0}, | |
| 498 {"topShadowColor", NULL, 0}, | |
| 499 {"selectColor", NULL, 0} | |
| 500 }; | |
| 501 int screenNum; | |
| 502 int status; | |
| 503 Pixmap mask; | |
| 504 Pixmap map; | |
| 505 | |
| 506 gui_mch_get_toolbar_colors( | |
| 507 &color[BACKGROUND].pixel, | |
| 508 &color[FOREGROUND].pixel, | |
| 509 &color[BOTTOM_SHADOW].pixel, | |
| 510 &color[TOP_SHADOW].pixel, | |
| 511 &color[HIGHLIGHT].pixel); | |
| 512 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
513 // Setup the color substitution table |
| 47 | 514 attrs.valuemask = XpmColorSymbols; |
| 515 attrs.colorsymbols = color; | |
| 516 attrs.numsymbols = 5; | |
| 517 | |
| 518 screenNum = DefaultScreen(gui.dpy); | |
| 519 rootWindow = RootWindow(gui.dpy, screenNum); | |
| 520 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
521 // Create the "sensitive" pixmap |
| 47 | 522 if (xpm != NULL) |
| 523 status = XpmCreatePixmapFromData(gui.dpy, rootWindow, xpm, | |
| 524 &map, &mask, &attrs); | |
| 525 else | |
| 526 status = XpmReadFileToPixmap(gui.dpy, rootWindow, (char *)path, | |
| 527 &map, &mask, &attrs); | |
| 528 if (status == XpmSuccess && map != 0) | |
| 529 { | |
| 530 XGCValues gcvalues; | |
| 531 GC back_gc; | |
| 532 GC mask_gc; | |
| 533 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
534 // Need to create new Pixmaps with the mask applied. |
| 47 | 535 gcvalues.foreground = color[BACKGROUND].pixel; |
| 536 back_gc = XCreateGC(gui.dpy, map, GCForeground, &gcvalues); | |
| 537 mask_gc = XCreateGC(gui.dpy, map, GCForeground, &gcvalues); | |
| 538 XSetClipMask(gui.dpy, mask_gc, mask); | |
| 539 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
540 // Create the "sensitive" pixmap. |
| 47 | 541 *sen = XCreatePixmap(gui.dpy, rootWindow, |
| 542 attrs.width, attrs.height, | |
| 543 DefaultDepth(gui.dpy, screenNum)); | |
| 544 XFillRectangle(gui.dpy, *sen, back_gc, 0, 0, | |
| 545 attrs.width, attrs.height); | |
| 546 XCopyArea(gui.dpy, map, *sen, mask_gc, 0, 0, | |
| 547 attrs.width, attrs.height, 0, 0); | |
| 548 | |
| 549 XFreeGC(gui.dpy, back_gc); | |
| 550 XFreeGC(gui.dpy, mask_gc); | |
| 551 XFreePixmap(gui.dpy, map); | |
| 552 } | |
| 553 else | |
| 554 *sen = 0; | |
| 555 | |
| 556 XpmFreeAttributes(&attrs); | |
| 557 } | |
| 558 | |
| 7 | 559 void |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
560 gui_mch_set_toolbar_pos( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
561 int x, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
562 int y, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
563 int w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
564 int h) |
| 7 | 565 { |
| 566 Dimension border; | |
| 567 int height; | |
| 568 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
569 if (!XtIsManaged(toolBar)) // nothing to do |
| 7 | 570 return; |
| 571 XtUnmanageChild(toolBar); | |
| 572 XtVaGetValues(toolBar, | |
| 573 XtNborderWidth, &border, | |
| 574 NULL); | |
| 575 height = h - 2 * border; | |
| 576 if (height < 0) | |
| 577 height = 1; | |
| 578 XtVaSetValues(toolBar, | |
| 579 XtNhorizDistance, x, | |
| 580 XtNvertDistance, y, | |
| 581 XtNwidth, w - 2 * border, | |
| 582 XtNheight, height, | |
| 583 NULL); | |
| 584 XtManageChild(toolBar); | |
| 585 } | |
| 586 #endif | |
| 587 | |
| 588 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
589 gui_mch_set_text_area_pos( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
590 int x, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
591 int y, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
592 int w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
593 int h) |
| 7 | 594 { |
| 595 XtUnmanageChild(textArea); | |
| 596 XtVaSetValues(textArea, | |
| 597 XtNhorizDistance, x, | |
| 598 XtNvertDistance, y, | |
| 599 XtNwidth, w, | |
| 600 XtNheight, h, | |
| 601 NULL); | |
| 602 XtManageChild(textArea); | |
| 603 #ifdef FEAT_TOOLBAR | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
604 // Give keyboard focus to the textArea instead of the toolbar. |
| 7 | 605 gui_mch_reset_focus(); |
| 606 #endif | |
| 607 } | |
| 608 | |
| 609 #ifdef FEAT_TOOLBAR | |
| 610 /* | |
| 611 * A toolbar button has been pushed; now reset the input focus | |
| 612 * such that the user can type page up/down etc. and have the | |
| 613 * input go to the editor window, not the button | |
| 614 */ | |
| 615 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
616 gui_mch_reset_focus(void) |
| 7 | 617 { |
| 618 XtSetKeyboardFocus(vimForm, textArea); | |
| 619 } | |
| 620 #endif | |
| 621 | |
| 622 | |
| 623 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
624 gui_x11_set_back_color(void) |
| 7 | 625 { |
| 626 if (textArea != NULL) | |
| 627 XtVaSetValues(textArea, | |
| 628 XtNbackground, gui.back_pixel, | |
| 629 NULL); | |
| 630 } | |
| 631 | |
| 632 #if defined(FEAT_MENU) || defined(PROTO) | |
| 633 /* | |
| 634 * Menu stuff. | |
| 635 */ | |
| 636 | |
|
7801
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
637 static char_u *make_pull_name(char_u * name); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
638 static Widget get_popup_entry(Widget w); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
639 static Widget submenu_widget(Widget); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
640 static Boolean has_submenu(Widget); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
641 static void gui_mch_submenu_change(vimmenu_T *mp, int colors); |
|
a1e71a01dbd6
commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents:
4352
diff
changeset
|
642 static void gui_athena_menu_font(Widget id); |
| 7 | 643 |
| 644 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
645 gui_mch_enable_menu(int flag) |
| 7 | 646 { |
| 647 if (flag) | |
| 648 { | |
| 649 XtManageChild(menuBar); | |
| 650 # ifdef FEAT_TOOLBAR | |
| 651 if (XtIsManaged(toolBar)) | |
| 652 { | |
| 653 XtVaSetValues(toolBar, | |
| 654 XtNvertDistance, gui.menu_height, | |
| 655 NULL); | |
| 656 XtVaSetValues(textArea, | |
| 657 XtNvertDistance, gui.menu_height + gui.toolbar_height, | |
| 658 NULL); | |
| 659 } | |
| 660 # endif | |
| 661 } | |
| 662 else | |
| 663 { | |
| 664 XtUnmanageChild(menuBar); | |
| 665 # ifdef FEAT_TOOLBAR | |
| 666 if (XtIsManaged(toolBar)) | |
| 667 { | |
| 668 XtVaSetValues(toolBar, | |
| 669 XtNvertDistance, 0, | |
| 670 NULL); | |
| 671 } | |
| 672 # endif | |
| 673 } | |
| 674 } | |
| 675 | |
| 676 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
677 gui_mch_set_menu_pos( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
678 int x, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
679 int y, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
680 int w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
681 int h) |
| 7 | 682 { |
| 683 Dimension border; | |
| 684 int height; | |
| 685 | |
| 686 XtUnmanageChild(menuBar); | |
| 687 XtVaGetValues(menuBar, XtNborderWidth, &border, NULL); | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
688 // avoid trouble when there are no menu items, and h is 1 |
| 7 | 689 height = h - 2 * border; |
| 690 if (height < 0) | |
| 691 height = 1; | |
| 692 XtVaSetValues(menuBar, | |
| 693 XtNhorizDistance, x, | |
| 694 XtNvertDistance, y, | |
| 695 XtNwidth, w - 2 * border, | |
| 696 XtNheight, height, | |
| 697 NULL); | |
| 698 XtManageChild(menuBar); | |
| 699 } | |
| 700 | |
| 701 /* | |
| 702 * Used to calculate the insertion position of a widget with respect to its | |
| 703 * neighbors. | |
| 704 * | |
| 705 * Valid range of return values is: 0 (beginning of children) to | |
| 706 * numChildren (end of children). | |
| 707 */ | |
| 708 static Cardinal | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
709 athena_calculate_ins_pos(Widget widget) |
| 7 | 710 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
711 // Assume that if the parent of the vimmenu_T is NULL, then we can get |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
712 // to this menu by traversing "next", starting at "root_menu". |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
713 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
714 // This holds true for popup menus, toolbar, and toplevel menu items. |
| 7 | 715 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
716 // Popup menus: "id" is NULL. Only submenu_id is valid |
| 7 | 717 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
718 // Menus that are not toplevel: "parent" will be non-NULL, "id" & |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
719 // "submenu_id" will be non-NULL. |
| 7 | 720 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
721 // Toplevel menus: "parent" is NULL, id is the widget of the menu item |
| 7 | 722 |
| 723 WidgetList children; | |
| 724 Cardinal num_children = 0; | |
| 725 int retval; | |
| 726 Arg args[2]; | |
| 727 int n = 0; | |
| 728 int i; | |
| 729 | |
| 730 XtSetArg(args[n], XtNchildren, &children); n++; | |
| 731 XtSetArg(args[n], XtNnumChildren, &num_children); n++; | |
| 732 XtGetValues(XtParent(widget), args, n); | |
| 733 | |
| 734 retval = num_children; | |
| 1887 | 735 for (i = 0; i < (int)num_children; ++i) |
| 7 | 736 { |
| 737 Widget current = children[i]; | |
| 738 vimmenu_T *menu = NULL; | |
| 739 | |
| 740 for (menu = (a_cur_menu->parent == NULL) | |
| 741 ? root_menu : a_cur_menu->parent->children; | |
| 742 menu != NULL; | |
| 743 menu = menu->next) | |
| 744 if (current == menu->id | |
| 745 && a_cur_menu->priority < menu->priority | |
| 746 && i < retval) | |
| 747 retval = i; | |
| 748 } | |
| 749 return retval; | |
| 750 } | |
| 751 | |
| 752 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
753 gui_mch_add_menu(vimmenu_T *menu, int idx UNUSED) |
| 7 | 754 { |
| 755 char_u *pullright_name; | |
| 756 Dimension height, space, border; | |
| 757 vimmenu_T *parent = menu->parent; | |
| 758 | |
| 759 a_cur_menu = menu; | |
| 760 if (parent == NULL) | |
| 761 { | |
| 762 if (menu_is_popup(menu->dname)) | |
| 763 { | |
| 764 menu->submenu_id = XtVaCreatePopupShell((char *)menu->dname, | |
| 765 simpleMenuWidgetClass, vimShell, | |
| 766 XtNinsertPosition, athena_calculate_ins_pos, | |
| 767 XtNtranslations, popupTrans, | |
| 768 NULL); | |
| 769 gui_athena_menu_colors(menu->submenu_id); | |
| 770 } | |
| 771 else if (menu_is_menubar(menu->dname)) | |
| 772 { | |
| 773 menu->id = XtVaCreateManagedWidget((char *)menu->dname, | |
| 774 menuButtonWidgetClass, menuBar, | |
| 775 XtNmenuName, menu->dname, | |
| 776 #ifdef FONTSET_ALWAYS | |
| 777 XtNinternational, True, | |
| 778 #endif | |
| 779 NULL); | |
| 780 if (menu->id == (Widget)0) | |
| 781 return; | |
| 782 gui_athena_menu_colors(menu->id); | |
| 783 gui_athena_menu_font(menu->id); | |
| 784 | |
| 785 menu->submenu_id = XtVaCreatePopupShell((char *)menu->dname, | |
| 786 simpleMenuWidgetClass, menu->id, | |
| 787 XtNinsertPosition, athena_calculate_ins_pos, | |
| 788 XtNtranslations, supermenuTrans, | |
| 789 NULL); | |
| 790 gui_athena_menu_colors(menu->submenu_id); | |
| 791 gui_athena_menu_font(menu->submenu_id); | |
| 792 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
793 // Don't update the menu height when it was set at a fixed value |
| 7 | 794 if (!gui.menu_height_fixed) |
| 795 { | |
| 796 /* | |
| 797 * When we add a top-level item to the menu bar, we can figure | |
| 798 * out how high the menu bar should be. | |
| 799 */ | |
| 800 XtVaGetValues(menuBar, | |
| 801 XtNvSpace, &space, | |
| 802 XtNborderWidth, &border, | |
| 803 NULL); | |
| 804 XtVaGetValues(menu->id, | |
| 805 XtNheight, &height, | |
| 806 NULL); | |
| 807 gui.menu_height = height + 2 * (space + border); | |
| 808 } | |
| 809 } | |
| 810 } | |
| 811 else if (parent->submenu_id != (Widget)0) | |
| 812 { | |
| 813 menu->id = XtVaCreateManagedWidget((char *)menu->dname, | |
| 814 smeBSBObjectClass, parent->submenu_id, | |
| 815 XtNlabel, menu->dname, | |
| 816 #ifdef FONTSET_ALWAYS | |
| 817 XtNinternational, True, | |
| 818 #endif | |
| 819 NULL); | |
| 820 if (menu->id == (Widget)0) | |
| 821 return; | |
| 822 if (pullerBitmap == None) | |
| 823 pullerBitmap = gui_athena_create_pullright_pixmap(menu->id); | |
| 824 | |
| 825 XtVaSetValues(menu->id, XtNrightBitmap, pullerBitmap, | |
| 826 NULL); | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
827 // If there are other menu items that are not pulldown menus, |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
828 // we need to adjust the right margins of those, too. |
| 7 | 829 { |
| 830 WidgetList children; | |
| 831 Cardinal num_children; | |
| 832 int i; | |
| 833 | |
| 834 XtVaGetValues(parent->submenu_id, XtNchildren, &children, | |
| 835 XtNnumChildren, &num_children, | |
| 836 NULL); | |
| 1887 | 837 for (i = 0; i < (int)num_children; ++i) |
| 7 | 838 { |
| 839 XtVaSetValues(children[i], | |
| 840 XtNrightMargin, puller_width, | |
| 841 NULL); | |
| 842 } | |
| 843 } | |
| 844 gui_athena_menu_colors(menu->id); | |
| 845 gui_athena_menu_font(menu->id); | |
| 846 | |
| 847 pullright_name = make_pull_name(menu->dname); | |
| 848 menu->submenu_id = XtVaCreatePopupShell((char *)pullright_name, | |
| 849 simpleMenuWidgetClass, parent->submenu_id, | |
| 850 XtNtranslations, menuTrans, | |
| 851 NULL); | |
| 852 gui_athena_menu_colors(menu->submenu_id); | |
| 853 gui_athena_menu_font(menu->submenu_id); | |
| 854 vim_free(pullright_name); | |
| 855 XtAddCallback(menu->submenu_id, XtNpopupCallback, | |
| 856 gui_athena_popup_callback, (XtPointer)menu); | |
| 857 | |
| 858 if (parent->parent != NULL) | |
| 859 XtOverrideTranslations(parent->submenu_id, parentTrans); | |
| 860 } | |
| 861 a_cur_menu = NULL; | |
| 862 } | |
| 863 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
864 // Used to determine whether a SimpleMenu has pulldown entries. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
865 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
866 // "id" is the parent of the menu items. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
867 // Ignore widget "ignore" in the pane. |
| 7 | 868 static Boolean |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
869 gui_athena_menu_has_submenus(Widget id, Widget ignore) |
| 7 | 870 { |
| 871 WidgetList children; | |
| 872 Cardinal num_children; | |
| 873 int i; | |
| 874 | |
| 875 XtVaGetValues(id, XtNchildren, &children, | |
| 876 XtNnumChildren, &num_children, | |
| 877 NULL); | |
| 1887 | 878 for (i = 0; i < (int)num_children; ++i) |
| 7 | 879 { |
| 880 if (children[i] == ignore) | |
| 881 continue; | |
| 882 if (has_submenu(children[i])) | |
| 883 return True; | |
| 884 } | |
| 885 return False; | |
| 886 } | |
| 887 | |
| 888 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
889 gui_athena_menu_font(Widget id) |
| 7 | 890 { |
| 891 #ifdef FONTSET_ALWAYS | |
| 892 if (gui.menu_fontset != NOFONTSET) | |
| 893 { | |
| 894 if (XtIsManaged(id)) | |
| 895 { | |
| 896 XtUnmanageChild(id); | |
| 897 XtVaSetValues(id, XtNfontSet, gui.menu_fontset, NULL); | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
898 // We should force the widget to recalculate its |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
899 // geometry now. |
| 7 | 900 XtManageChild(id); |
| 901 } | |
| 902 else | |
| 903 XtVaSetValues(id, XtNfontSet, gui.menu_fontset, NULL); | |
| 904 if (has_submenu(id)) | |
| 905 XtVaSetValues(id, XtNrightBitmap, pullerBitmap, NULL); | |
| 906 } | |
| 907 #else | |
| 908 int managed = FALSE; | |
| 909 | |
| 910 if (gui.menu_font != NOFONT) | |
| 911 { | |
| 912 if (XtIsManaged(id)) | |
| 913 { | |
| 914 XtUnmanageChild(id); | |
| 915 managed = TRUE; | |
| 916 } | |
| 917 | |
| 918 # ifdef FEAT_XFONTSET | |
| 919 if (gui.fontset != NOFONTSET) | |
| 920 XtVaSetValues(id, XtNfontSet, gui.menu_font, NULL); | |
| 921 else | |
| 922 # endif | |
| 923 XtVaSetValues(id, XtNfont, gui.menu_font, NULL); | |
| 924 if (has_submenu(id)) | |
| 925 XtVaSetValues(id, XtNrightBitmap, pullerBitmap, NULL); | |
| 926 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
927 // Force the widget to recalculate its geometry now. |
| 7 | 928 if (managed) |
| 929 XtManageChild(id); | |
| 930 } | |
| 931 #endif | |
| 932 } | |
| 933 | |
| 934 | |
| 935 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
936 gui_mch_new_menu_font(void) |
| 7 | 937 { |
| 938 Pixmap oldpuller = None; | |
| 939 | |
| 940 if (menuBar == (Widget)0) | |
| 941 return; | |
| 942 | |
| 943 if (pullerBitmap != None) | |
| 944 { | |
| 945 oldpuller = pullerBitmap; | |
| 946 pullerBitmap = gui_athena_create_pullright_pixmap(NULL); | |
| 947 } | |
| 948 gui_mch_submenu_change(root_menu, FALSE); | |
| 949 | |
| 950 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
951 // Iterate through the menubar menu items and get the height of |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
952 // each one. The menu bar height is set to the maximum of all |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
953 // the heights. |
| 7 | 954 vimmenu_T *mp; |
| 955 int max_height = 9999; | |
| 956 | |
|
19934
3ff714d765ba
patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents:
18781
diff
changeset
|
957 FOR_ALL_MENUS(mp) |
| 7 | 958 { |
| 959 if (menu_is_menubar(mp->dname)) | |
| 960 { | |
| 961 Dimension height; | |
| 962 | |
| 963 XtVaGetValues(mp->id, | |
| 125 | 964 XtNheight, &height, |
| 7 | 965 NULL); |
| 966 if (height < max_height) | |
| 967 max_height = height; | |
| 968 } | |
| 969 } | |
| 970 if (max_height != 9999) | |
| 971 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
972 // Don't update the menu height when it was set at a fixed value |
| 7 | 973 if (!gui.menu_height_fixed) |
| 974 { | |
| 975 Dimension space, border; | |
| 976 | |
| 977 XtVaGetValues(menuBar, | |
| 978 XtNvSpace, &space, | |
| 979 XtNborderWidth, &border, | |
| 980 NULL); | |
| 981 gui.menu_height = max_height + 2 * (space + border); | |
| 982 } | |
| 983 } | |
| 984 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
985 // Now, to simulate the window being resized. Only, this |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
986 // will resize the window to its current state. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
987 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
988 // There has to be a better way, but I do not see one at this time. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
989 // (David Harrison) |
| 7 | 990 { |
| 991 Position w, h; | |
| 992 | |
| 993 XtVaGetValues(vimShell, | |
| 994 XtNwidth, &w, | |
| 995 XtNheight, &h, | |
| 996 NULL); | |
| 997 gui_resize_shell(w, h | |
| 998 #ifdef FEAT_XIM | |
| 999 - xim_get_status_area_height() | |
| 1000 #endif | |
| 1001 ); | |
| 1002 } | |
| 811 | 1003 gui_set_shellsize(FALSE, TRUE, RESIZE_VERT); |
| 7 | 1004 ui_new_shellsize(); |
| 1005 if (oldpuller != None) | |
| 1006 XFreePixmap(gui.dpy, oldpuller); | |
| 1007 } | |
| 1008 | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1009 #if defined(FEAT_BEVAL_GUI) || defined(PROTO) |
| 7 | 1010 void |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1011 gui_mch_new_tooltip_font(void) |
| 7 | 1012 { |
| 1013 # ifdef FEAT_TOOLBAR | |
| 1014 vimmenu_T *menu; | |
| 1015 | |
| 1016 if (toolBar == (Widget)0) | |
| 1017 return; | |
| 1018 | |
| 1019 menu = gui_find_menu((char_u *)"ToolBar"); | |
| 1020 if (menu != NULL) | |
| 1021 gui_mch_submenu_change(menu, FALSE); | |
| 1022 # endif | |
| 1023 } | |
| 1024 | |
| 1025 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1026 gui_mch_new_tooltip_colors(void) |
| 7 | 1027 { |
| 1028 # ifdef FEAT_TOOLBAR | |
| 1029 vimmenu_T *menu; | |
| 1030 | |
| 1031 if (toolBar == (Widget)0) | |
| 1032 return; | |
| 1033 | |
| 1034 menu = gui_find_menu((char_u *)"ToolBar"); | |
| 1035 if (menu != NULL) | |
| 1036 gui_mch_submenu_change(menu, TRUE); | |
| 1037 # endif | |
| 1038 } | |
| 1039 #endif | |
| 1040 | |
| 1041 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1042 gui_mch_submenu_change( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1043 vimmenu_T *menu, |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1044 int colors) // TRUE for colors, FALSE for font |
| 7 | 1045 { |
| 1046 vimmenu_T *mp; | |
| 1047 | |
| 1048 for (mp = menu; mp != NULL; mp = mp->next) | |
| 1049 { | |
| 1050 if (mp->id != (Widget)0) | |
| 1051 { | |
| 1052 if (colors) | |
| 1053 { | |
| 1054 gui_athena_menu_colors(mp->id); | |
| 1055 #ifdef FEAT_TOOLBAR | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1056 // For a toolbar item: Free the pixmap and allocate a new one, |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1057 // so that the background color is right. |
| 7 | 1058 if (mp->image != (Pixmap)0) |
| 1059 { | |
| 1060 XFreePixmap(gui.dpy, mp->image); | |
| 47 | 1061 get_toolbar_pixmap(mp, &mp->image); |
| 7 | 1062 if (mp->image != (Pixmap)0) |
| 1063 XtVaSetValues(mp->id, XtNbitmap, mp->image, NULL); | |
| 1064 } | |
| 1065 | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1066 # ifdef FEAT_BEVAL_GUI |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1067 // If we have a tooltip, then we need to change its colors |
| 7 | 1068 if (mp->tip != NULL) |
| 1069 { | |
| 1070 Arg args[2]; | |
| 1071 | |
| 1072 args[0].name = XtNbackground; | |
| 1073 args[0].value = gui.tooltip_bg_pixel; | |
| 1074 args[1].name = XtNforeground; | |
| 1075 args[1].value = gui.tooltip_fg_pixel; | |
| 1076 XtSetValues(mp->tip->balloonLabel, &args[0], XtNumber(args)); | |
| 1077 } | |
| 1078 # endif | |
| 1079 #endif | |
| 1080 } | |
| 1081 else | |
| 1082 { | |
| 1083 gui_athena_menu_font(mp->id); | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1084 #ifdef FEAT_BEVAL_GUI |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1085 // If we have a tooltip, then we need to change its font |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1086 // Assume XtNinternational == True (in createBalloonEvalWindow) |
| 7 | 1087 if (mp->tip != NULL) |
| 1088 { | |
| 1089 Arg args[1]; | |
| 1090 | |
| 1091 args[0].name = XtNfontSet; | |
| 1092 args[0].value = (XtArgVal)gui.tooltip_fontset; | |
| 1093 XtSetValues(mp->tip->balloonLabel, &args[0], XtNumber(args)); | |
| 1094 } | |
| 1095 #endif | |
| 1096 } | |
| 1097 } | |
| 1098 | |
| 1099 if (mp->children != NULL) | |
| 1100 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1101 // Set the colors/font for the tear off widget |
| 7 | 1102 if (mp->submenu_id != (Widget)0) |
| 1103 { | |
| 1104 if (colors) | |
| 1105 gui_athena_menu_colors(mp->submenu_id); | |
| 1106 else | |
| 1107 gui_athena_menu_font(mp->submenu_id); | |
| 1108 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1109 // Set the colors for the children |
| 7 | 1110 gui_mch_submenu_change(mp->children, colors); |
| 1111 } | |
| 1112 } | |
| 1113 } | |
| 1114 | |
| 1115 /* | |
| 1116 * Make a submenu name into a pullright name. | |
| 1117 * Replace '.' by '_', can't include '.' in the submenu name. | |
| 1118 */ | |
| 1119 static char_u * | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1120 make_pull_name(char_u * name) |
| 7 | 1121 { |
| 1122 char_u *pname; | |
| 1123 char_u *p; | |
| 1124 | |
| 1125 pname = vim_strnsave(name, STRLEN(name) + strlen("-pullright")); | |
| 1126 if (pname != NULL) | |
| 1127 { | |
| 1128 strcat((char *)pname, "-pullright"); | |
| 1129 while ((p = vim_strchr(pname, '.')) != NULL) | |
| 1130 *p = '_'; | |
| 1131 } | |
| 1132 return pname; | |
| 1133 } | |
| 1134 | |
| 1135 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1136 gui_mch_add_menu_item(vimmenu_T *menu, int idx UNUSED) |
| 7 | 1137 { |
| 1138 vimmenu_T *parent = menu->parent; | |
| 1139 | |
| 1140 a_cur_menu = menu; | |
| 1141 # ifdef FEAT_TOOLBAR | |
| 1142 if (menu_is_toolbar(parent->name)) | |
| 1143 { | |
| 1144 WidgetClass type; | |
| 1145 int n; | |
| 1146 Arg args[21]; | |
| 1147 | |
| 1148 n = 0; | |
| 1149 if (menu_is_separator(menu->name)) | |
| 1150 { | |
| 1151 XtSetArg(args[n], XtNlabel, ""); n++; | |
| 1152 XtSetArg(args[n], XtNborderWidth, 0); n++; | |
| 1153 } | |
| 1154 else | |
| 1155 { | |
| 47 | 1156 get_toolbar_pixmap(menu, &menu->image); |
| 7 | 1157 XtSetArg(args[n], XtNlabel, menu->dname); n++; |
| 1158 XtSetArg(args[n], XtNinternalHeight, 1); n++; | |
| 1159 XtSetArg(args[n], XtNinternalWidth, 1); n++; | |
| 1160 XtSetArg(args[n], XtNborderWidth, 1); n++; | |
| 1161 if (menu->image != 0) | |
|
26976
1435891c3fd1
patch 8.2.4017: gcc warns for misleading indent in Athena menu code
Bram Moolenaar <Bram@vim.org>
parents:
26771
diff
changeset
|
1162 { |
| 7 | 1163 XtSetArg(args[n], XtNbitmap, menu->image); n++; |
|
26976
1435891c3fd1
patch 8.2.4017: gcc warns for misleading indent in Athena menu code
Bram Moolenaar <Bram@vim.org>
parents:
26771
diff
changeset
|
1164 } |
| 7 | 1165 } |
| 1166 XtSetArg(args[n], XtNhighlightThickness, 0); n++; | |
| 1167 type = commandWidgetClass; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1168 // TODO: figure out the position in the toolbar? |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1169 // This currently works fine for the default toolbar, but |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1170 // what if we add/remove items during later runtime? |
| 7 | 1171 |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1172 // NOTE: "idx" isn't used here. The position is calculated by |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1173 // athena_calculate_ins_pos(). The position it calculates |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1174 // should be equal to "idx". |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1175 // TODO: Could we just store "idx" and use that as the child |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1176 // placement? |
| 7 | 1177 |
| 1178 if (menu->id == NULL) | |
| 1179 { | |
| 1180 menu->id = XtCreateManagedWidget((char *)menu->dname, | |
| 1181 type, toolBar, args, n); | |
| 1182 XtAddCallback(menu->id, | |
| 1183 XtNcallback, gui_x11_menu_cb, menu); | |
| 1184 } | |
| 1185 else | |
| 1186 XtSetValues(menu->id, args, n); | |
| 1187 gui_athena_menu_colors(menu->id); | |
| 1188 | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1189 #ifdef FEAT_BEVAL_GUI |
| 7 | 1190 gui_mch_menu_set_tip(menu); |
| 1191 #endif | |
| 1192 | |
| 1193 menu->parent = parent; | |
| 1194 menu->submenu_id = NULL; | |
| 1195 if (!XtIsManaged(toolBar) | |
| 1196 && vim_strchr(p_go, GO_TOOLBAR) != NULL) | |
| 1197 gui_mch_show_toolbar(TRUE); | |
| 1198 gui.toolbar_height = gui_mch_compute_toolbar_height(); | |
| 1199 return; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1200 } // toolbar menu item |
| 7 | 1201 # endif |
| 1202 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1203 // Add menu separator |
| 7 | 1204 if (menu_is_separator(menu->name)) |
| 1205 { | |
| 1206 menu->submenu_id = (Widget)0; | |
| 1207 menu->id = XtVaCreateManagedWidget((char *)menu->dname, | |
| 1208 smeLineObjectClass, parent->submenu_id, | |
| 1209 NULL); | |
| 1210 if (menu->id == (Widget)0) | |
| 1211 return; | |
| 1212 gui_athena_menu_colors(menu->id); | |
| 1213 } | |
| 1214 else | |
| 1215 { | |
| 1216 if (parent != NULL && parent->submenu_id != (Widget)0) | |
| 1217 { | |
| 1218 menu->submenu_id = (Widget)0; | |
| 1219 menu->id = XtVaCreateManagedWidget((char *)menu->dname, | |
| 1220 smeBSBObjectClass, parent->submenu_id, | |
| 1221 XtNlabel, menu->dname, | |
| 1222 #ifdef FONTSET_ALWAYS | |
| 1223 XtNinternational, True, | |
| 1224 #endif | |
| 1225 NULL); | |
| 1226 if (menu->id == (Widget)0) | |
| 1227 return; | |
| 1228 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1229 // If there are other "pulldown" items in this pane, then adjust |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1230 // the right margin to accommodate the arrow pixmap, otherwise |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1231 // the right margin will be the same as the left margin. |
| 7 | 1232 { |
| 1233 Dimension left_margin; | |
| 1234 | |
| 1235 XtVaGetValues(menu->id, XtNleftMargin, &left_margin, NULL); | |
| 1236 XtVaSetValues(menu->id, XtNrightMargin, | |
| 1237 gui_athena_menu_has_submenus(parent->submenu_id, NULL) ? | |
| 1238 puller_width : | |
| 1239 left_margin, | |
| 1240 NULL); | |
| 1241 } | |
| 1242 | |
| 1243 gui_athena_menu_colors(menu->id); | |
| 1244 gui_athena_menu_font(menu->id); | |
| 1245 XtAddCallback(menu->id, XtNcallback, gui_x11_menu_cb, | |
| 1246 (XtPointer)menu); | |
| 1247 } | |
| 1248 } | |
| 1249 a_cur_menu = NULL; | |
| 1250 } | |
| 1251 | |
| 1252 #if defined(FEAT_TOOLBAR) || defined(PROTO) | |
| 1253 void | |
| 1254 gui_mch_show_toolbar(int showit) | |
| 1255 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1256 Cardinal numChildren; // how many children toolBar has |
| 7 | 1257 |
| 1258 if (toolBar == (Widget)0) | |
| 1259 return; | |
| 1260 XtVaGetValues(toolBar, XtNnumChildren, &numChildren, NULL); | |
| 1261 if (showit && numChildren > 0) | |
| 1262 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1263 // Assume that we want to show the toolbar if p_toolbar contains valid |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1264 // option settings, therefore p_toolbar must not be NULL. |
| 7 | 1265 WidgetList children; |
| 1266 | |
| 1267 XtVaGetValues(toolBar, XtNchildren, &children, NULL); | |
| 1268 { | |
| 1269 void (*action)(BalloonEval *); | |
| 1270 int text = 0; | |
| 1271 | |
| 1272 if (strstr((const char *)p_toolbar, "tooltips")) | |
| 1273 action = &gui_mch_enable_beval_area; | |
| 1274 else | |
| 1275 action = &gui_mch_disable_beval_area; | |
| 1276 if (strstr((const char *)p_toolbar, "text")) | |
| 1277 text = 1; | |
| 1278 else if (strstr((const char *)p_toolbar, "icons")) | |
| 1279 text = -1; | |
| 1280 if (text != 0) | |
| 1281 { | |
| 1282 vimmenu_T *toolbar; | |
| 1283 vimmenu_T *cur; | |
| 1284 | |
|
19934
3ff714d765ba
patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents:
18781
diff
changeset
|
1285 FOR_ALL_MENUS(toolbar) |
| 7 | 1286 if (menu_is_toolbar(toolbar->dname)) |
| 1287 break; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1288 // Assumption: toolbar is NULL if there is no toolbar, |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1289 // otherwise it contains the toolbar menu structure. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1290 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1291 // Assumption: "numChildren" == the number of items in the list |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1292 // of items beginning with toolbar->children. |
| 7 | 1293 if (toolbar) |
| 1294 { | |
| 1295 for (cur = toolbar->children; cur; cur = cur->next) | |
| 1296 { | |
| 1297 Arg args[2]; | |
| 1298 int n = 0; | |
| 1299 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1300 // Enable/Disable tooltip (OK to enable while currently |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1301 // enabled) |
| 7 | 1302 if (cur->tip != NULL) |
| 1303 (*action)(cur->tip); | |
| 1304 if (text == 1) | |
| 1305 { | |
| 1306 XtSetArg(args[n], XtNbitmap, None); | |
| 1307 n++; | |
| 1308 XtSetArg(args[n], XtNlabel, | |
| 1309 menu_is_separator(cur->name) ? "" : | |
| 1310 (char *)cur->dname); | |
| 1311 n++; | |
| 1312 } | |
| 1313 else | |
| 1314 { | |
| 1315 XtSetArg(args[n], XtNbitmap, cur->image); | |
| 1316 n++; | |
| 1317 XtSetArg(args[n], XtNlabel, (cur->image == None) ? | |
| 1318 menu_is_separator(cur->name) ? | |
| 1319 "" : | |
| 1320 (char *)cur->dname | |
| 1321 : | |
| 1322 (char *)None); | |
| 1323 n++; | |
| 1324 } | |
| 1325 if (cur->id != NULL) | |
| 1326 { | |
| 1327 XtUnmanageChild(cur->id); | |
| 1328 XtSetValues(cur->id, args, n); | |
| 1329 XtManageChild(cur->id); | |
| 1330 } | |
| 1331 } | |
| 1332 } | |
| 1333 } | |
| 1334 } | |
| 1335 gui.toolbar_height = gui_mch_compute_toolbar_height(); | |
| 1336 XtManageChild(toolBar); | |
| 1337 if (XtIsManaged(menuBar)) | |
| 1338 { | |
| 1339 XtVaSetValues(textArea, | |
| 1340 XtNvertDistance, gui.toolbar_height + gui.menu_height, | |
| 1341 NULL); | |
| 1342 XtVaSetValues(toolBar, | |
| 1343 XtNvertDistance, gui.menu_height, | |
| 1344 NULL); | |
| 1345 } | |
| 1346 else | |
| 1347 { | |
| 1348 XtVaSetValues(textArea, | |
| 1349 XtNvertDistance, gui.toolbar_height, | |
| 1350 NULL); | |
| 1351 XtVaSetValues(toolBar, | |
| 1352 XtNvertDistance, 0, | |
| 1353 NULL); | |
| 1354 } | |
| 1355 } | |
| 1356 else | |
| 1357 { | |
| 1358 gui.toolbar_height = 0; | |
| 1359 if (XtIsManaged(menuBar)) | |
| 1360 XtVaSetValues(textArea, | |
| 1361 XtNvertDistance, gui.menu_height, | |
| 1362 NULL); | |
| 1363 else | |
| 1364 XtVaSetValues(textArea, | |
| 1365 XtNvertDistance, 0, | |
| 1366 NULL); | |
| 1367 | |
| 1368 XtUnmanageChild(toolBar); | |
| 1369 } | |
| 811 | 1370 gui_set_shellsize(FALSE, FALSE, RESIZE_VERT); |
| 7 | 1371 } |
| 1372 | |
| 1373 | |
| 1374 int | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1375 gui_mch_compute_toolbar_height(void) |
| 7 | 1376 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1377 Dimension height; // total Toolbar height |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1378 Dimension whgt; // height of each widget |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1379 Dimension marginHeight; // XmNmarginHeight of toolBar |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1380 Dimension shadowThickness; // thickness of Xtparent(toolBar) |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1381 WidgetList children; // list of toolBar's children |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1382 Cardinal numChildren; // how many children toolBar has |
| 7 | 1383 int i; |
| 1384 | |
| 1385 height = 0; | |
| 1386 shadowThickness = 0; | |
| 1387 marginHeight = 0; | |
| 1388 if (toolBar != (Widget)0) | |
| 1389 { | |
| 1390 XtVaGetValues(toolBar, | |
| 1391 XtNborderWidth, &shadowThickness, | |
| 1392 XtNvSpace, &marginHeight, | |
| 1393 XtNchildren, &children, | |
| 1394 XtNnumChildren, &numChildren, | |
| 1395 NULL); | |
| 1887 | 1396 for (i = 0; i < (int)numChildren; i++) |
| 7 | 1397 { |
| 1398 whgt = 0; | |
| 1399 | |
| 1400 XtVaGetValues(children[i], XtNheight, &whgt, NULL); | |
| 1401 if (height < whgt) | |
| 1402 height = whgt; | |
| 1403 } | |
| 1404 } | |
| 1405 | |
| 1406 return (int)(height + (marginHeight << 1) + (shadowThickness << 1)); | |
| 1407 } | |
| 1408 | |
| 1409 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1410 gui_mch_get_toolbar_colors( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1411 Pixel *bgp, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1412 Pixel *fgp, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1413 Pixel *bsp, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1414 Pixel *tsp, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1415 Pixel *hsp) |
| 7 | 1416 { |
| 1417 XtVaGetValues(toolBar, XtNbackground, bgp, XtNborderColor, fgp, NULL); | |
| 1418 *bsp = *bgp; | |
| 1419 *tsp = *fgp; | |
| 1420 *hsp = *tsp; | |
| 1421 } | |
| 1422 #endif | |
| 1423 | |
| 1424 | |
| 1425 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1426 gui_mch_toggle_tearoffs(int enable UNUSED) |
| 7 | 1427 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1428 // no tearoff menus |
| 7 | 1429 } |
| 1430 | |
| 1431 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1432 gui_mch_new_menu_colors(void) |
| 7 | 1433 { |
| 1434 if (menuBar == (Widget)0) | |
| 1435 return; | |
| 1436 if (gui.menu_fg_pixel != INVALCOLOR) | |
| 1437 XtVaSetValues(menuBar, XtNborderColor, gui.menu_fg_pixel, NULL); | |
| 1438 gui_athena_menu_colors(menuBar); | |
| 1439 #ifdef FEAT_TOOLBAR | |
| 1440 gui_athena_menu_colors(toolBar); | |
| 1441 #endif | |
| 1442 | |
| 1443 gui_mch_submenu_change(root_menu, TRUE); | |
| 1444 } | |
| 1445 | |
| 1446 /* | |
| 1447 * Destroy the machine specific menu widget. | |
| 1448 */ | |
| 1449 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1450 gui_mch_destroy_menu(vimmenu_T *menu) |
| 7 | 1451 { |
| 1452 Widget parent; | |
| 1453 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1454 // There is no item for the toolbar. |
| 7 | 1455 if (menu->id == (Widget)0) |
| 1456 return; | |
| 1457 | |
| 1458 parent = XtParent(menu->id); | |
| 1459 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1460 // When removing the last "pulldown" menu item from a pane, adjust the |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1461 // right margins of the remaining widgets. |
| 7 | 1462 if (menu->submenu_id != (Widget)0) |
| 1463 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1464 // Go through the menu items in the parent of this item and |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1465 // adjust their margins, if necessary. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1466 // This takes care of the case when we delete the last menu item in a |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1467 // pane that has a submenu. In this case, there will be no arrow |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1468 // pixmaps shown anymore. |
| 7 | 1469 { |
| 1470 WidgetList children; | |
| 1471 Cardinal num_children; | |
| 1472 int i; | |
| 1473 Dimension right_margin = 0; | |
| 1474 Boolean get_left_margin = False; | |
| 1475 | |
| 1476 XtVaGetValues(parent, XtNchildren, &children, | |
| 1477 XtNnumChildren, &num_children, | |
| 1478 NULL); | |
| 1479 if (gui_athena_menu_has_submenus(parent, menu->id)) | |
| 1480 right_margin = puller_width; | |
| 1481 else | |
| 1482 get_left_margin = True; | |
| 1483 | |
| 1887 | 1484 for (i = 0; i < (int)num_children; ++i) |
| 7 | 1485 { |
| 1486 if (children[i] == menu->id) | |
| 1487 continue; | |
| 1488 if (get_left_margin == True) | |
| 1489 { | |
| 1490 Dimension left_margin; | |
| 1491 | |
| 1492 XtVaGetValues(children[i], XtNleftMargin, &left_margin, | |
| 1493 NULL); | |
| 1494 XtVaSetValues(children[i], XtNrightMargin, left_margin, | |
| 1495 NULL); | |
| 1496 } | |
| 1497 else | |
| 1498 XtVaSetValues(children[i], XtNrightMargin, right_margin, | |
| 1499 NULL); | |
| 1500 } | |
| 1501 } | |
| 1502 } | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1503 // Please be sure to destroy the parent widget first (i.e. menu->id). |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1504 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1505 // This code should be basically identical to that in the file gui_motif.c |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1506 // because they are both Xt based. |
| 7 | 1507 if (menu->id != (Widget)0) |
| 1508 { | |
| 1509 Cardinal num_children; | |
| 1510 Dimension height, space, border; | |
| 1511 | |
| 1512 XtVaGetValues(menuBar, | |
| 1513 XtNvSpace, &space, | |
| 1514 XtNborderWidth, &border, | |
| 1515 NULL); | |
| 1516 XtVaGetValues(menu->id, | |
| 1517 XtNheight, &height, | |
| 1518 NULL); | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1519 #if defined(FEAT_TOOLBAR) && defined(FEAT_BEVAL_GUI) |
| 7 | 1520 if (parent == toolBar && menu->tip != NULL) |
| 1521 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1522 // We try to destroy this before the actual menu, because there are |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1523 // callbacks, etc. that will be unregistered during the tooltip |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1524 // destruction. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1525 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1526 // If you call "gui_mch_destroy_beval_area()" after destroying |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1527 // menu->id, then the tooltip's window will have already been |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1528 // deallocated by Xt, and unknown behaviour will ensue (probably |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1529 // a core dump). |
| 7 | 1530 gui_mch_destroy_beval_area(menu->tip); |
| 1531 menu->tip = NULL; | |
| 1532 } | |
| 1533 #endif | |
| 1534 /* | |
| 1535 * This is a hack to stop the Athena simpleMenuWidget from getting a | |
| 1536 * BadValue error when a menu's last child is destroyed. We check to | |
| 1537 * see if this is the last child and if so, don't delete it. The parent | |
|
15034
6e4e0d43b20b
patch 8.1.0528: various typos in comments
Bram Moolenaar <Bram@vim.org>
parents:
14862
diff
changeset
|
1538 * will be deleted soon anyway, and it will delete its children like |
| 7 | 1539 * all good widgets do. |
| 1540 */ | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1541 // NOTE: The cause of the BadValue X Protocol Error is because when the |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1542 // last child is destroyed, it is first unmanaged, thus causing a |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1543 // geometry resize request from the parent Shell widget. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1544 // Since the Shell widget has no more children, it is resized to have |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1545 // width/height of 0. XConfigureWindow() is then called with the |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1546 // width/height of 0, which generates the BadValue. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1547 // |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1548 // This happens in phase two of the widget destruction process. |
| 7 | 1549 { |
| 1550 if (parent != menuBar | |
| 1551 #ifdef FEAT_TOOLBAR | |
| 1552 && parent != toolBar | |
| 1553 #endif | |
| 1554 ) | |
| 1555 { | |
| 1556 XtVaGetValues(parent, XtNnumChildren, &num_children, NULL); | |
| 1557 if (num_children > 1) | |
| 1558 XtDestroyWidget(menu->id); | |
| 1559 } | |
| 1560 else | |
| 1561 XtDestroyWidget(menu->id); | |
| 1562 menu->id = (Widget)0; | |
| 1563 } | |
| 1564 | |
| 1565 if (parent == menuBar) | |
| 1566 { | |
| 1567 if (!gui.menu_height_fixed) | |
| 1568 gui.menu_height = height + 2 * (space + border); | |
| 1569 } | |
| 1570 #ifdef FEAT_TOOLBAR | |
| 1571 else if (parent == toolBar) | |
| 1572 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1573 // When removing last toolbar item, don't display the toolbar. |
| 7 | 1574 XtVaGetValues(toolBar, XtNnumChildren, &num_children, NULL); |
| 1575 if (num_children == 0) | |
| 1576 gui_mch_show_toolbar(FALSE); | |
| 1577 else | |
| 1578 gui.toolbar_height = gui_mch_compute_toolbar_height(); | |
| 1579 } | |
| 1580 #endif | |
| 1581 } | |
| 1582 if (menu->submenu_id != (Widget)0) | |
| 1583 { | |
| 1584 XtDestroyWidget(menu->submenu_id); | |
| 1585 menu->submenu_id = (Widget)0; | |
| 1586 } | |
| 1587 } | |
| 1588 | |
| 1589 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1590 gui_athena_menu_timeout( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1591 XtPointer client_data, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1592 XtIntervalId *id UNUSED) |
| 7 | 1593 { |
| 1594 Widget w = (Widget)client_data; | |
| 1595 Widget popup; | |
| 1596 | |
| 1597 timer = 0; | |
| 1598 if (XtIsSubclass(w,smeBSBObjectClass)) | |
| 1599 { | |
| 1600 Pixmap p; | |
| 1601 | |
| 1602 XtVaGetValues(w, XtNrightBitmap, &p, NULL); | |
| 1603 if ((p != None) && (p != XtUnspecifiedPixmap)) | |
| 1604 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1605 // We are dealing with an item that has a submenu |
| 7 | 1606 popup = get_popup_entry(XtParent(w)); |
| 1607 if (popup == (Widget)0) | |
| 1608 return; | |
| 1609 XtPopup(popup, XtGrabNonexclusive); | |
| 1610 } | |
| 1611 } | |
| 1612 } | |
| 1613 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1614 /* |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1615 * This routine is used to calculate the position (in screen coordinates) |
| 7 | 1616 * where a submenu should appear relative to the menu entry that popped it |
| 1617 * up. It should appear even with and just slightly to the left of the | |
| 1618 * rightmost end of the menu entry that caused the popup. | |
| 1619 * | |
| 1620 * This is called when XtPopup() is called. | |
| 1621 */ | |
| 1622 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1623 gui_athena_popup_callback( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1624 Widget w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1625 XtPointer client_data, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1626 XtPointer call_data UNUSED) |
| 7 | 1627 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1628 // Assumption: XtIsSubclass(XtParent(w),simpleMenuWidgetClass) |
| 7 | 1629 vimmenu_T *menu = (vimmenu_T *)client_data; |
| 1630 Dimension width; | |
| 1631 Position root_x, root_y; | |
| 1632 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1633 // First, popdown any siblings that may have menus popped up |
| 7 | 1634 { |
| 1635 vimmenu_T *i; | |
| 1636 | |
|
19934
3ff714d765ba
patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents:
18781
diff
changeset
|
1637 FOR_ALL_CHILD_MENUS(menu->parent, i) |
| 7 | 1638 { |
| 1639 if (i->submenu_id != NULL && XtIsManaged(i->submenu_id)) | |
| 1640 XtPopdown(i->submenu_id); | |
| 1641 } | |
| 1642 } | |
| 1643 XtVaGetValues(XtParent(w), | |
| 1644 XtNwidth, &width, | |
| 1645 NULL); | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1646 // Assumption: XawSimpleMenuGetActiveEntry(XtParent(w)) == menu->id |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1647 // i.e. This IS the active entry |
| 7 | 1648 XtTranslateCoords(menu->id,width - 5, 0, &root_x, &root_y); |
| 1649 XtVaSetValues(w, XtNx, root_x, | |
| 1650 XtNy, root_y, | |
| 1651 NULL); | |
| 1652 } | |
| 1653 | |
| 1654 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1655 gui_athena_popdown_submenus_action( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1656 Widget w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1657 XEvent *event, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1658 String *args, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1659 Cardinal *nargs) |
| 7 | 1660 { |
| 1661 WidgetList children; | |
| 1662 Cardinal num_children; | |
| 1663 | |
| 1664 XtVaGetValues(w, XtNchildren, &children, | |
| 1665 XtNnumChildren, &num_children, | |
| 1666 NULL); | |
| 1667 for (; num_children > 0; --num_children) | |
| 1668 { | |
| 1669 Widget child = children[num_children - 1]; | |
| 1670 | |
| 1671 if (has_submenu(child)) | |
| 1672 { | |
| 1673 Widget temp_w; | |
| 1674 | |
| 1675 temp_w = submenu_widget(child); | |
| 1676 gui_athena_popdown_submenus_action(temp_w,event,args,nargs); | |
| 1677 XtPopdown(temp_w); | |
| 1678 } | |
| 1679 } | |
| 1680 } | |
| 1681 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1682 /* |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1683 * Used to determine if the given widget has a submenu that can be popped up. |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1684 */ |
| 7 | 1685 static Boolean |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1686 has_submenu(Widget widget) |
| 7 | 1687 { |
| 1688 if ((widget != NULL) && XtIsSubclass(widget,smeBSBObjectClass)) | |
| 1689 { | |
| 1690 Pixmap p; | |
| 1691 | |
| 1692 XtVaGetValues(widget, XtNrightBitmap, &p, NULL); | |
| 1693 if ((p != None) && (p != XtUnspecifiedPixmap)) | |
| 1694 return True; | |
| 1695 } | |
| 1696 return False; | |
| 1697 } | |
| 1698 | |
| 1699 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1700 gui_athena_delayed_arm_action( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1701 Widget w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1702 XEvent *event, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1703 String *args, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1704 Cardinal *nargs) |
| 7 | 1705 { |
| 1706 Dimension width, height; | |
| 1707 | |
| 1708 if (event->type != MotionNotify) | |
| 1709 return; | |
| 1710 | |
| 1711 XtVaGetValues(w, | |
| 1712 XtNwidth, &width, | |
| 1713 XtNheight, &height, | |
| 1714 NULL); | |
| 1715 | |
| 1716 if (event->xmotion.x >= (int)width || event->xmotion.y >= (int)height) | |
| 1717 return; | |
| 1718 | |
| 1719 { | |
| 1720 static Widget previous_active_widget = NULL; | |
| 1721 Widget current; | |
| 1722 | |
| 1723 current = XawSimpleMenuGetActiveEntry(w); | |
| 1724 if (current != previous_active_widget) | |
| 1725 { | |
| 1726 if (timer) | |
| 1727 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1728 // If the timeout hasn't been triggered, remove it |
| 7 | 1729 XtRemoveTimeOut(timer); |
| 1730 } | |
| 1731 gui_athena_popdown_submenus_action(w,event,args,nargs); | |
| 1732 if (has_submenu(current)) | |
| 1733 { | |
| 1734 XtAppAddTimeOut(XtWidgetToApplicationContext(w), 600L, | |
| 1735 gui_athena_menu_timeout, | |
| 1736 (XtPointer)current); | |
| 1737 } | |
| 1738 previous_active_widget = current; | |
| 1739 } | |
| 1740 } | |
| 1741 } | |
| 1742 | |
| 1743 static Widget | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1744 get_popup_entry(Widget w) |
| 7 | 1745 { |
| 1746 Widget menuw; | |
| 1747 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1748 // Get the active entry for the current menu |
| 7 | 1749 if ((menuw = XawSimpleMenuGetActiveEntry(w)) == (Widget)0) |
| 1750 return NULL; | |
| 1751 | |
| 1752 return submenu_widget(menuw); | |
| 1753 } | |
| 1754 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1755 /* |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1756 * Given the widget that has been determined to have a submenu, return the |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1757 * submenu widget that is to be popped up. |
| 7 | 1758 */ |
| 1759 static Widget | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1760 submenu_widget(Widget widget) |
| 7 | 1761 { |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1762 // Precondition: has_submenu(widget) == True |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1763 // XtIsSubclass(XtParent(widget),simpleMenuWidgetClass) == True |
| 7 | 1764 |
| 1765 char_u *pullright_name; | |
| 1766 Widget popup; | |
| 1767 | |
| 1768 pullright_name = make_pull_name((char_u *)XtName(widget)); | |
| 1769 popup = XtNameToWidget(XtParent(widget), (char *)pullright_name); | |
| 1770 vim_free(pullright_name); | |
| 1771 | |
| 1772 return popup; | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1773 // Postcondition: (popup != NULL) implies |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1774 // (XtIsSubclass(popup,simpleMenuWidgetClass) == True) |
| 7 | 1775 } |
| 1776 | |
| 1777 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1778 gui_mch_show_popupmenu(vimmenu_T *menu) |
| 7 | 1779 { |
| 1780 int rootx, rooty, winx, winy; | |
| 1781 Window root, child; | |
| 1782 unsigned int mask; | |
| 1783 | |
| 1784 if (menu->submenu_id == (Widget)0) | |
| 1785 return; | |
| 1786 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1787 // Position the popup menu at the pointer |
| 7 | 1788 if (XQueryPointer(gui.dpy, XtWindow(vimShell), &root, &child, |
| 1789 &rootx, &rooty, &winx, &winy, &mask)) | |
| 1790 { | |
| 1791 rootx -= 30; | |
| 1792 if (rootx < 0) | |
| 1793 rootx = 0; | |
| 1794 rooty -= 5; | |
| 1795 if (rooty < 0) | |
| 1796 rooty = 0; | |
| 1797 XtVaSetValues(menu->submenu_id, | |
| 1798 XtNx, rootx, | |
| 1799 XtNy, rooty, | |
| 1800 NULL); | |
| 1801 } | |
| 1802 | |
| 1803 XtOverrideTranslations(menu->submenu_id, popupTrans); | |
| 1804 XtPopupSpringLoaded(menu->submenu_id); | |
| 1805 } | |
| 1806 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1807 #endif // FEAT_MENU |
| 7 | 1808 |
| 1809 /* | |
| 1810 * Set the menu and scrollbar colors to their default values. | |
| 1811 */ | |
| 1812 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1813 gui_mch_def_colors(void) |
| 7 | 1814 { |
| 1815 /* | |
| 1816 * Get the colors ourselves. Using the automatic conversion doesn't | |
| 1817 * handle looking for approximate colors. | |
| 1818 */ | |
| 1819 if (gui.in_use) | |
| 1820 { | |
| 1821 gui.menu_fg_pixel = gui_get_color((char_u *)gui.rsrc_menu_fg_name); | |
| 1822 gui.menu_bg_pixel = gui_get_color((char_u *)gui.rsrc_menu_bg_name); | |
| 1823 gui.scroll_fg_pixel = gui_get_color((char_u *)gui.rsrc_scroll_fg_name); | |
| 1824 gui.scroll_bg_pixel = gui_get_color((char_u *)gui.rsrc_scroll_bg_name); | |
|
12871
1a450ce6980c
patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1825 #ifdef FEAT_BEVAL_GUI |
| 7 | 1826 gui.tooltip_fg_pixel = gui_get_color((char_u *)gui.rsrc_tooltip_fg_name); |
| 1827 gui.tooltip_bg_pixel = gui_get_color((char_u *)gui.rsrc_tooltip_bg_name); | |
| 1828 #endif | |
| 1829 } | |
| 1830 } | |
| 1831 | |
| 1832 | |
| 1833 /* | |
| 1834 * Scrollbar stuff. | |
| 1835 */ | |
| 1836 | |
| 1837 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1838 gui_mch_set_scrollbar_thumb( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1839 scrollbar_T *sb, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1840 long val, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1841 long size, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1842 long max) |
| 7 | 1843 { |
| 1844 double v, s; | |
| 1845 | |
| 1846 if (sb->id == (Widget)0) | |
| 1847 return; | |
| 1848 | |
| 1849 /* | |
| 1850 * Athena scrollbar must go from 0.0 to 1.0. | |
| 1851 */ | |
| 1852 if (max == 0) | |
| 1853 { | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1854 // So you can't scroll it at all (normally it scrolls past end) |
| 7 | 1855 #ifdef FEAT_GUI_NEXTAW |
| 1856 XawScrollbarSetThumb(sb->id, 0.0, 1.0); | |
| 1857 #else | |
| 1858 vim_XawScrollbarSetThumb(sb->id, 0.0, 1.0, 0.0); | |
| 1859 #endif | |
| 1860 } | |
| 1861 else | |
| 1862 { | |
| 1863 v = (double)val / (double)(max + 1); | |
| 1864 s = (double)size / (double)(max + 1); | |
| 1865 #ifdef FEAT_GUI_NEXTAW | |
| 1866 XawScrollbarSetThumb(sb->id, v, s); | |
| 1867 #else | |
| 1868 vim_XawScrollbarSetThumb(sb->id, v, s, 1.0); | |
| 1869 #endif | |
| 1870 } | |
| 1871 } | |
| 1872 | |
| 1873 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1874 gui_mch_set_scrollbar_pos( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1875 scrollbar_T *sb, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1876 int x, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1877 int y, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1878 int w, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1879 int h) |
| 7 | 1880 { |
| 1881 if (sb->id == (Widget)0) | |
| 1882 return; | |
| 1883 | |
| 1884 XtUnmanageChild(sb->id); | |
| 1885 XtVaSetValues(sb->id, | |
| 1886 XtNhorizDistance, x, | |
| 1887 XtNvertDistance, y, | |
| 1888 XtNwidth, w, | |
| 1889 XtNheight, h, | |
| 1890 NULL); | |
| 1891 XtManageChild(sb->id); | |
| 1892 } | |
| 1893 | |
|
21355
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1894 int |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1895 gui_mch_get_scrollbar_xpadding(void) |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1896 { |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1897 // TODO: Calculate the padding for adjust scrollbar position when the |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1898 // Window is maximized. |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1899 return 0; |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1900 } |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1901 |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1902 int |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1903 gui_mch_get_scrollbar_ypadding(void) |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1904 { |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1905 // TODO: Calculate the padding for adjust scrollbar position when the |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1906 // Window is maximized. |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1907 return 0; |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1908 } |
|
fcccc29bd386
patch 8.2.1228: scrollbars not flush against the window edges when maximised
Bram Moolenaar <Bram@vim.org>
parents:
19934
diff
changeset
|
1909 |
| 7 | 1910 void |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1911 gui_mch_enable_scrollbar(scrollbar_T *sb, int flag) |
| 7 | 1912 { |
| 1913 if (sb->id != (Widget)0) | |
| 1914 { | |
| 1915 if (flag) | |
| 1916 XtManageChild(sb->id); | |
| 1917 else | |
| 1918 XtUnmanageChild(sb->id); | |
| 1919 } | |
| 1920 } | |
| 1921 | |
| 1922 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1923 gui_mch_create_scrollbar( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1924 scrollbar_T *sb, |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1925 int orient) // SBAR_VERT or SBAR_HORIZ |
| 7 | 1926 { |
| 1927 sb->id = XtVaCreateWidget("scrollBar", | |
| 1928 #ifdef FEAT_GUI_NEXTAW | |
| 1929 scrollbarWidgetClass, vimForm, | |
| 1930 #else | |
| 1931 vim_scrollbarWidgetClass, vimForm, | |
| 1932 #endif | |
| 1933 XtNresizable, True, | |
| 1934 XtNtop, XtChainTop, | |
| 1935 XtNbottom, XtChainTop, | |
| 1936 XtNleft, XtChainLeft, | |
| 1937 XtNright, XtChainLeft, | |
| 1938 XtNborderWidth, 0, | |
| 1939 XtNorientation, (orient == SBAR_VERT) ? XtorientVertical | |
| 1940 : XtorientHorizontal, | |
| 1941 XtNforeground, gui.scroll_fg_pixel, | |
| 1942 XtNbackground, gui.scroll_bg_pixel, | |
| 1943 NULL); | |
| 1944 if (sb->id == (Widget)0) | |
| 1945 return; | |
| 1946 | |
| 1947 XtAddCallback(sb->id, XtNjumpProc, | |
| 1948 gui_athena_scroll_cb_jump, (XtPointer)sb->ident); | |
| 1949 XtAddCallback(sb->id, XtNscrollProc, | |
| 1950 gui_athena_scroll_cb_scroll, (XtPointer)sb->ident); | |
| 1951 | |
| 1952 #ifdef FEAT_GUI_NEXTAW | |
| 1953 XawScrollbarSetThumb(sb->id, 0.0, 1.0); | |
| 1954 #else | |
| 1955 vim_XawScrollbarSetThumb(sb->id, 0.0, 1.0, 0.0); | |
| 1956 #endif | |
| 1957 } | |
| 1958 | |
| 1959 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1960 gui_mch_destroy_scrollbar(scrollbar_T *sb) |
| 7 | 1961 { |
| 1962 if (sb->id != (Widget)0) | |
| 1963 XtDestroyWidget(sb->id); | |
| 1964 } | |
| 1965 | |
| 1966 void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1967 gui_mch_set_scrollbar_colors(scrollbar_T *sb) |
| 7 | 1968 { |
| 1969 if (sb->id != (Widget)0) | |
| 1970 XtVaSetValues(sb->id, | |
| 1971 XtNforeground, gui.scroll_fg_pixel, | |
| 1972 XtNbackground, gui.scroll_bg_pixel, | |
| 1973 NULL); | |
| 1974 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1975 // This is needed for the rectangle below the vertical scrollbars. |
| 7 | 1976 if (sb == &gui.bottom_sbar && vimForm != (Widget)0) |
| 1977 gui_athena_scroll_colors(vimForm); | |
| 1978 } | |
| 1979 | |
| 1980 /* | |
| 1981 * Miscellaneous stuff: | |
| 1982 */ | |
| 1983 Window | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1984 gui_x11_get_wid(void) |
| 7 | 1985 { |
| 1986 return XtWindow(textArea); | |
| 1987 } | |
| 1988 | |
| 1989 #if defined(FEAT_BROWSE) || defined(PROTO) | |
| 1990 /* | |
| 1991 * Put up a file requester. | |
| 1992 * Returns the selected name in allocated memory, or NULL for Cancel. | |
| 1993 */ | |
| 1994 char_u * | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
1995 gui_mch_browse( |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1996 int saving UNUSED, // select file to write |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1997 char_u *title, // title for the window |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1998 char_u *dflt, // default name |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1999 char_u *ext UNUSED, // extension added |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2000 char_u *initdir, // initial directory, NULL for current dir |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2001 char_u *filter UNUSED) // file name filter |
| 7 | 2002 { |
| 2003 Position x, y; | |
| 2004 char_u dirbuf[MAXPATHL]; | |
| 2005 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2006 // Concatenate "initdir" and "dflt". |
| 7 | 2007 if (initdir == NULL || *initdir == NUL) |
| 2008 mch_dirname(dirbuf, MAXPATHL); | |
| 2009 else if (STRLEN(initdir) + 2 < MAXPATHL) | |
| 2010 STRCPY(dirbuf, initdir); | |
| 2011 else | |
| 2012 dirbuf[0] = NUL; | |
| 2013 if (dflt != NULL && *dflt != NUL | |
| 2014 && STRLEN(dirbuf) + 2 + STRLEN(dflt) < MAXPATHL) | |
| 2015 { | |
| 2016 add_pathsep(dirbuf); | |
| 2017 STRCAT(dirbuf, dflt); | |
| 2018 } | |
| 2019 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2020 // Position the file selector just below the menubar |
| 7 | 2021 XtTranslateCoords(vimShell, (Position)0, (Position) |
| 2022 #ifdef FEAT_MENU | |
| 2023 gui.menu_height | |
| 2024 #else | |
| 2025 0 | |
| 2026 #endif | |
| 2027 , &x, &y); | |
| 2028 return (char_u *)vim_SelFile(vimShell, (char *)title, (char *)dirbuf, | |
| 2029 NULL, (int)x, (int)y, gui.menu_fg_pixel, gui.menu_bg_pixel, | |
| 2030 gui.scroll_fg_pixel, gui.scroll_bg_pixel); | |
| 2031 } | |
| 2032 #endif | |
| 2033 | |
| 2034 #if defined(FEAT_GUI_DIALOG) || defined(PROTO) | |
| 2035 | |
| 2036 static int dialogStatus; | |
| 2037 static Atom dialogatom; | |
| 2038 | |
| 2039 /* | |
| 2040 * Callback function for the textfield. When CR is hit this works like | |
| 2041 * hitting the "OK" button, ESC like "Cancel". | |
| 2042 */ | |
| 2043 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2044 keyhit_callback( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2045 Widget w UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2046 XtPointer client_data UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2047 XEvent *event, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2048 Boolean *cont UNUSED) |
| 7 | 2049 { |
| 2050 char buf[2]; | |
| 2051 | |
| 2052 if (XLookupString(&(event->xkey), buf, 2, NULL, NULL) == 1) | |
| 2053 { | |
| 2054 if (*buf == CAR) | |
| 2055 dialogStatus = 1; | |
| 2056 else if (*buf == ESC) | |
| 2057 dialogStatus = 0; | |
| 2058 } | |
| 2059 } | |
| 2060 | |
| 2061 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2062 butproc( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2063 Widget w UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2064 XtPointer client_data, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2065 XtPointer call_data UNUSED) |
| 7 | 2066 { |
| 2067 dialogStatus = (int)(long)client_data + 1; | |
| 2068 } | |
| 2069 | |
| 2070 /* | |
| 2071 * Function called when dialog window closed. | |
| 2072 */ | |
| 2073 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2074 dialog_wm_handler( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2075 Widget w UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2076 XtPointer client_data UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2077 XEvent *event, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2078 Boolean *dum UNUSED) |
| 7 | 2079 { |
| 2080 if (event->type == ClientMessage | |
| 1887 | 2081 && (Atom)((XClientMessageEvent *)event)->data.l[0] == dialogatom) |
| 7 | 2082 dialogStatus = 0; |
| 2083 } | |
| 2084 | |
| 2085 int | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2086 gui_mch_dialog( |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2087 int type UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2088 char_u *title, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2089 char_u *message, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2090 char_u *buttons, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2091 int dfltbutton UNUSED, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2092 char_u *textfield, |
|
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2093 int ex_cmd UNUSED) |
| 7 | 2094 { |
| 2095 char_u *buts; | |
| 2096 char_u *p, *next; | |
| 2097 XtAppContext app; | |
| 2098 XEvent event; | |
| 2099 Position wd, hd; | |
| 2100 Position wv, hv; | |
| 2101 Position x, y; | |
| 2102 Widget dialog; | |
| 2103 Widget dialogshell; | |
| 2104 Widget dialogmessage; | |
| 2105 Widget dialogtextfield = 0; | |
| 2106 Widget dialogButton; | |
| 2107 Widget prev_dialogButton = NULL; | |
| 2108 int butcount; | |
| 2109 int vertical; | |
| 2110 | |
| 2111 if (title == NULL) | |
| 2112 title = (char_u *)_("Vim dialog"); | |
| 2113 dialogStatus = -1; | |
| 2114 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2115 // if our pointer is currently hidden, then we should show it. |
| 7 | 2116 gui_mch_mousehide(FALSE); |
| 2117 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2118 // Check 'v' flag in 'guioptions': vertical button placement. |
| 7 | 2119 vertical = (vim_strchr(p_go, GO_VERTICAL) != NULL); |
| 2120 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2121 // The shell is created each time, to make sure it is resized properly |
| 7 | 2122 dialogshell = XtVaCreatePopupShell("dialogShell", |
| 2123 transientShellWidgetClass, vimShell, | |
| 2124 XtNtitle, title, | |
| 2125 NULL); | |
| 2126 if (dialogshell == (Widget)0) | |
| 2127 goto error; | |
| 2128 | |
| 2129 dialog = XtVaCreateManagedWidget("dialog", | |
| 2130 formWidgetClass, dialogshell, | |
| 2131 XtNdefaultDistance, 20, | |
| 2132 NULL); | |
| 2133 if (dialog == (Widget)0) | |
| 2134 goto error; | |
| 2135 gui_athena_menu_colors(dialog); | |
| 2136 dialogmessage = XtVaCreateManagedWidget("dialogMessage", | |
| 2137 labelWidgetClass, dialog, | |
| 2138 XtNlabel, message, | |
| 2139 XtNtop, XtChainTop, | |
| 2140 XtNbottom, XtChainTop, | |
| 2141 XtNleft, XtChainLeft, | |
| 2142 XtNright, XtChainLeft, | |
| 2143 XtNresizable, True, | |
| 2144 XtNborderWidth, 0, | |
| 2145 NULL); | |
| 2146 gui_athena_menu_colors(dialogmessage); | |
| 2147 | |
| 2148 if (textfield != NULL) | |
| 2149 { | |
| 2150 dialogtextfield = XtVaCreateManagedWidget("textfield", | |
| 2151 asciiTextWidgetClass, dialog, | |
| 2152 XtNwidth, 400, | |
| 2153 XtNtop, XtChainTop, | |
| 2154 XtNbottom, XtChainTop, | |
| 2155 XtNleft, XtChainLeft, | |
| 2156 XtNright, XtChainRight, | |
| 2157 XtNfromVert, dialogmessage, | |
| 2158 XtNresizable, True, | |
| 2159 XtNstring, textfield, | |
| 2160 XtNlength, IOSIZE, | |
| 2161 XtNuseStringInPlace, True, | |
| 2162 XtNeditType, XawtextEdit, | |
| 2163 XtNwrap, XawtextWrapNever, | |
| 2164 XtNresize, XawtextResizeHeight, | |
| 2165 NULL); | |
| 2166 XtManageChild(dialogtextfield); | |
| 2167 XtAddEventHandler(dialogtextfield, KeyPressMask, False, | |
| 2168 (XtEventHandler)keyhit_callback, (XtPointer)NULL); | |
| 2169 XawTextSetInsertionPoint(dialogtextfield, | |
| 2170 (XawTextPosition)STRLEN(textfield)); | |
| 2171 XtSetKeyboardFocus(dialog, dialogtextfield); | |
| 2172 } | |
| 2173 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2174 // make a copy, so that we can insert NULs |
| 7 | 2175 buts = vim_strsave(buttons); |
| 2176 if (buts == NULL) | |
| 2177 return -1; | |
| 2178 | |
| 2179 p = buts; | |
| 2180 for (butcount = 0; *p; ++butcount) | |
| 2181 { | |
| 2182 for (next = p; *next; ++next) | |
| 2183 { | |
| 2184 if (*next == DLG_HOTKEY_CHAR) | |
| 1620 | 2185 STRMOVE(next, next + 1); |
| 7 | 2186 if (*next == DLG_BUTTON_SEP) |
| 2187 { | |
| 2188 *next++ = NUL; | |
| 2189 break; | |
| 2190 } | |
| 2191 } | |
| 2192 dialogButton = XtVaCreateManagedWidget("button", | |
| 2193 commandWidgetClass, dialog, | |
| 2194 XtNlabel, p, | |
| 2195 XtNtop, XtChainBottom, | |
| 2196 XtNbottom, XtChainBottom, | |
| 2197 XtNleft, XtChainLeft, | |
| 2198 XtNright, XtChainLeft, | |
| 2199 XtNfromVert, textfield == NULL ? dialogmessage : dialogtextfield, | |
| 2200 XtNvertDistance, vertical ? 4 : 20, | |
| 2201 XtNresizable, False, | |
| 2202 NULL); | |
| 2203 gui_athena_menu_colors(dialogButton); | |
| 2204 if (butcount > 0) | |
| 2205 XtVaSetValues(dialogButton, | |
| 2206 vertical ? XtNfromVert : XtNfromHoriz, prev_dialogButton, | |
| 2207 NULL); | |
| 2208 | |
| 2255 | 2209 XtAddCallback(dialogButton, XtNcallback, butproc, (XtPointer)(long_u)butcount); |
| 7 | 2210 p = next; |
| 2211 prev_dialogButton = dialogButton; | |
| 2212 } | |
| 2213 vim_free(buts); | |
| 2214 | |
| 2215 XtRealizeWidget(dialogshell); | |
| 2216 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2217 // Setup for catching the close-window event, don't let it close Vim! |
| 7 | 2218 dialogatom = XInternAtom(gui.dpy, "WM_DELETE_WINDOW", False); |
| 2219 XSetWMProtocols(gui.dpy, XtWindow(dialogshell), &dialogatom, 1); | |
| 2220 XtAddEventHandler(dialogshell, NoEventMask, True, dialog_wm_handler, NULL); | |
| 2221 | |
| 2222 XtVaGetValues(dialogshell, | |
| 2223 XtNwidth, &wd, | |
| 2224 XtNheight, &hd, | |
| 2225 NULL); | |
| 2226 XtVaGetValues(vimShell, | |
| 2227 XtNwidth, &wv, | |
| 2228 XtNheight, &hv, | |
| 2229 NULL); | |
| 2230 XtTranslateCoords(vimShell, | |
| 2231 (Position)((wv - wd) / 2), | |
| 2232 (Position)((hv - hd) / 2), | |
| 2233 &x, &y); | |
| 2234 if (x < 0) | |
| 2235 x = 0; | |
| 2236 if (y < 0) | |
| 2237 y = 0; | |
| 2238 XtVaSetValues(dialogshell, XtNx, x, XtNy, y, NULL); | |
| 2239 | |
|
18781
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2240 // Position the mouse pointer in the dialog, required for when focus |
|
79e10adc821d
patch 8.1.2380: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
2241 // follows mouse. |
| 7 | 2242 XWarpPointer(gui.dpy, (Window)0, XtWindow(dialogshell), 0, 0, 0, 0, 20, 40); |
| 2243 | |
| 2244 | |
| 2245 app = XtWidgetToApplicationContext(dialogshell); | |
| 2246 | |
| 2247 XtPopup(dialogshell, XtGrabNonexclusive); | |
| 2248 | |
| 405 | 2249 for (;;) |
| 7 | 2250 { |
| 2251 XtAppNextEvent(app, &event); | |
| 2252 XtDispatchEvent(&event); | |
| 2253 if (dialogStatus >= 0) | |
| 2254 break; | |
| 2255 } | |
| 2256 | |
| 2257 XtPopdown(dialogshell); | |
| 2258 | |
| 2259 if (textfield != NULL && dialogStatus < 0) | |
| 2260 *textfield = NUL; | |
| 2261 | |
| 2262 error: | |
| 2263 XtDestroyWidget(dialogshell); | |
| 2264 | |
| 2265 return dialogStatus; | |
| 2266 } | |
| 2267 #endif | |
| 2268 | |
| 2269 #if defined(FEAT_GUI_DIALOG) || defined(FEAT_MENU) | |
| 2270 /* | |
| 2271 * Set the colors of Widget "id" to the menu colors. | |
| 2272 */ | |
| 2273 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2274 gui_athena_menu_colors(Widget id) |
| 7 | 2275 { |
| 2276 if (gui.menu_bg_pixel != INVALCOLOR) | |
| 2277 XtVaSetValues(id, XtNbackground, gui.menu_bg_pixel, NULL); | |
| 2278 if (gui.menu_fg_pixel != INVALCOLOR) | |
| 2279 XtVaSetValues(id, XtNforeground, gui.menu_fg_pixel, NULL); | |
| 2280 } | |
| 2281 #endif | |
| 2282 | |
| 2283 /* | |
| 2284 * Set the colors of Widget "id" to the scroll colors. | |
| 2285 */ | |
| 2286 static void | |
|
7821
81794242a275
commit https://github.com/vim/vim/commit/66f948e928d5e0cd3123af902aa8ac1613534c94
Christian Brabandt <cb@256bit.org>
parents:
7801
diff
changeset
|
2287 gui_athena_scroll_colors(Widget id) |
| 7 | 2288 { |
| 2289 if (gui.scroll_bg_pixel != INVALCOLOR) | |
| 2290 XtVaSetValues(id, XtNbackground, gui.scroll_bg_pixel, NULL); | |
| 2291 if (gui.scroll_fg_pixel != INVALCOLOR) | |
| 2292 XtVaSetValues(id, XtNforeground, gui.scroll_fg_pixel, NULL); | |
| 2293 } |