source: SH_SHM/branches/2011.2/source/img/mapspec.uil @ 364

Revision 16, 6.0 KB checked in by marcus, 14 years ago (diff)

r1 | svn | 2007-12-13 11:10:29 +0100 (Do, 13 Dez 2007) | 2 lines

Initial import

Line 
1
2! file mapspec.uil
3!      ===========
4!
5! version 3, 11-Oct-2006
6!
7! widget structure of module mapmatrix.c
8! K. Stammler, 22-Jun-94
9
10
11module mapmatrix
12    version = 'v1.0'
13    names = case_sensitive
14
15procedure
16        call_create_widget( integer );
17        call_activate( integer );
18        call_expose( integer );
19
20value
21
22! texts
23        k_menutitle_file_text    : 'File';
24        k_entry_quit_text        : 'Quit';
25        k_entry_plot_text        : 'Plot';
26        k_entry_plot_log_text    : 'Lin/Log';
27        k_entry_plot_p2_text     : 'Pow ++';
28        k_entry_plot_p4_text     : 'Pow --';
29        k_entry_colors_green_red_text   : 'G-R';
30        k_entry_colors_blue_red_text    : 'B-R';
31        k_entry_colors_black_white_text : 'B-W';
32        k_entry_colors_blue_yellow_text : 'B-Y';
33
34! widget numbers
35        w_draw                   : 2;
36        w_menu_main              : 5;
37        w_entry_quit             : 51;
38        w_entry_plot             : 52;
39        w_entry_plot_log         : 53;
40        w_entry_plot_p2          : 54;
41        w_entry_plot_p4          : 55;
42        w_entry_colors_green_red   : 57;
43        w_entry_colors_blue_red    : 58;
44        w_entry_colors_black_white : 59;
45        w_entry_colors_blue_yellow : 60;
46
47! accelerators
48        k_acc_quit               : "<Key>q";
49        k_acct_quit              : "q";
50        k_acc_plot               : "<Key>p";
51        k_acct_plot              : "p";
52        k_acc_plot_log           : "<Key>l";
53        k_acct_plot_log          : "l";
54        k_acc_plot_p2            : "<Key>u";
55        k_acct_plot_p2           : "u";
56        k_acc_plot_p4            : "<Key>d";
57        k_acct_plot_p4           : "d";
58        k_acc_colors_green_red   : "<Key>1";
59        k_acct_colors_green_red  : "1";
60        k_acc_colors_blue_red    : "<Key>2";
61        k_acct_colors_blue_red   : "2";
62        k_acc_colors_black_white : "<Key>3";
63        k_acct_colors_black_white: "3";
64        k_acc_colors_blue_yellow : "<Key>4";
65        k_acct_colors_blue_yellow: "4";
66
67! fonts
68   k_menu_font         :
69      font('-ADOBE-Courier-Bold-R-Normal--14-140-75-75-M-90-ISO8859-1');
70
71object
72        main_window: XmMainWindow {
73                arguments {
74!                       XmNx = 100;
75!                       XmNy = 100;
76                        XmNwidth = 510;
77                        XmNheight = 342;
78                };
79                controls {
80                        XmMenuBar        menu_main;
81                        XmDrawingArea    drawing_area;
82                };
83        };
84
85object
86        drawing_area: XmDrawingArea {
87                arguments {
88                        XmNx = 0;
89                        XmNy = 32;
90                        XmNwidth = 910;
91                        XmNheight = 610;
92                        XmNbackground = color( 'white', background );
93                        XmNforeground = color( 'black', foreground );
94                };
95                callbacks {
96                        MrmNcreateCallback = procedure call_create_widget(w_draw);
97                        XmNexposeCallback = procedure call_expose(w_draw);
98                        !XmNresizeCallback = procedure call_expose(w_draw);
99      };
100   };
101
102object
103        menu_main: XmMenuBar {
104                arguments {
105                        XmNorientation = XmHORIZONTAL;
106                        XmNspacing     = 15;  /* Pixels between items in menu */
107                };
108                controls {
109                        XmCascadeButton menutitle_file;
110                };
111                callbacks {
112                        MrmNcreateCallback =
113                                procedure call_create_widget(w_menu_main);
114                };
115        };
116
117object
118        menutitle_file: XmCascadeButton {
119                arguments {
120                        XmNlabelString = k_menutitle_file_text;
121                        XmNfontList = k_menu_font;
122                };
123                controls {
124                        XmPulldownMenu menu_file;
125                };
126        };
127
128object
129        menu_file: XmPulldownMenu {
130                controls {
131                        XmPushButton entry_plot;
132                        XmPushButton entry_plot_log;
133                        XmPushButton entry_plot_p2;
134                        XmPushButton entry_plot_p4;
135                        XmPushButton entry_colors_green_red;
136                        XmPushButton entry_colors_blue_red;
137                        XmPushButton entry_colors_black_white;
138                        XmPushButton entry_colors_blue_yellow;
139                        XmPushButton entry_quit;
140                };
141        };
142
143object
144        entry_quit: XmPushButton {
145                arguments {
146                        XmNlabelString = k_entry_quit_text;
147                        XmNaccelerator = k_acc_quit;
148                        XmNacceleratorText = k_acct_quit;
149                        XmNfontList = k_menu_font;
150                };
151                callbacks {
152                        XmNactivateCallback = procedure call_activate(w_entry_quit);
153                };
154        };
155
156object
157        entry_plot: XmPushButton {
158                arguments {
159                        XmNlabelString = k_entry_plot_text;
160                        XmNaccelerator = k_acc_plot;
161                        XmNacceleratorText = k_acct_plot;
162                        XmNfontList = k_menu_font;
163                };
164                callbacks {
165                        XmNactivateCallback = procedure call_activate(w_entry_plot);
166                };
167        };
168
169object
170        entry_plot_log: XmPushButton {
171                arguments {
172                        XmNlabelString = k_entry_plot_log_text;
173                        XmNaccelerator = k_acc_plot_log;
174                        XmNacceleratorText = k_acct_plot_log;
175                        XmNfontList = k_menu_font;
176                };
177                callbacks {
178                        XmNactivateCallback = procedure call_activate(w_entry_plot_log);
179                };
180        };
181
182object
183        entry_plot_p2: XmPushButton {
184                arguments {
185                        XmNlabelString = k_entry_plot_p2_text;
186                        XmNaccelerator = k_acc_plot_p2;
187                        XmNacceleratorText = k_acct_plot_p2;
188                        XmNfontList = k_menu_font;
189                };
190                callbacks {
191                        XmNactivateCallback = procedure call_activate(w_entry_plot_p2);
192                };
193        };
194
195object
196        entry_plot_p4: XmPushButton {
197                arguments {
198                        XmNlabelString = k_entry_plot_p4_text;
199                        XmNaccelerator = k_acc_plot_p4;
200                        XmNacceleratorText = k_acct_plot_p4;
201                        XmNfontList = k_menu_font;
202                };
203                callbacks {
204                        XmNactivateCallback = procedure call_activate(w_entry_plot_p4);
205                };
206        };
207
208object
209        entry_colors_green_red: XmPushButton {
210                arguments {
211                        XmNlabelString = k_entry_colors_green_red_text;
212                        XmNaccelerator = k_acc_colors_green_red;
213                        XmNacceleratorText = k_acct_colors_green_red;
214                        XmNfontList = k_menu_font;
215                };
216                callbacks {
217                        XmNactivateCallback =
218                                procedure call_activate(w_entry_colors_green_red);
219                };
220        };
221
222object
223        entry_colors_blue_red: XmPushButton {
224                arguments {
225                        XmNlabelString = k_entry_colors_blue_red_text;
226                        XmNaccelerator = k_acc_colors_blue_red;
227                        XmNacceleratorText = k_acct_colors_blue_red;
228                        XmNfontList = k_menu_font;
229                };
230                callbacks {
231                        XmNactivateCallback =
232                                procedure call_activate(w_entry_colors_blue_red);
233                };
234        };
235
236object
237        entry_colors_black_white: XmPushButton {
238                arguments {
239                        XmNlabelString = k_entry_colors_black_white_text;
240                        XmNaccelerator = k_acc_colors_black_white;
241                        XmNacceleratorText = k_acct_colors_black_white;
242                        XmNfontList = k_menu_font;
243                };
244                callbacks {
245                        XmNactivateCallback =
246                                procedure call_activate(w_entry_colors_black_white);
247                };
248        };
249
250object
251        entry_colors_blue_yellow: XmPushButton {
252                arguments {
253                        XmNlabelString = k_entry_colors_blue_yellow_text;
254                        XmNaccelerator = k_acc_colors_blue_yellow;
255                        XmNacceleratorText = k_acct_colors_blue_yellow;
256                        XmNfontList = k_menu_font;
257                };
258                callbacks {
259                        XmNactivateCallback =
260                                procedure call_activate(w_entry_colors_blue_yellow);
261                };
262        };
263
264end module;
Note: See TracBrowser for help on using the repository browser.