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

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