annotate src/gui_athena.c @ 17658:0d763089ba7f

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