annotate src/gui_athena.c @ 3883:b5b892472ecb v7.3.698

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