OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [tags/] [start/] [insight/] [tk/] [tests/] [winMenu.test] - Blame information for rev 1780

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom 
# This file is a Tcl script to test menus in Tk.  It is
2 
# organized in the standard fashion for Tcl tests. This
3 
# file tests the Macintosh-specific features of the menu
4 
# system.
5 
#
6 
# Copyright (c) 1995-1996 Sun Microsystems, Inc.
7 
#
8 
# See the file "license.terms" for information on usage and redistribution
9 
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10 
#
11 
# RCS: @(#) $Id: winMenu.test,v 1.1.1.1 2002-01-16 10:26:00 markom Exp $
12 
 
13 
if {$tcl_platform(platform) != "windows"} {
14 
    return
15 
}
16 
 
17 
if {![info exists INTERACTIVE]} {
18 
    puts " Some tests were skipped because they could not be performed"
19 
    puts " automatically on this platform. If you wish to execute them"
20 
    puts " interactively, set the TCL variable INTERACTIVE and re-run"
21 
    puts " the test."
22 
    set testConfig(menuInteractive) 0
23 
} else {
24 
    set testConfig(menuInteractive) 1
25 
}
26 
 
27 
if {[lsearch [image types] test] < 0} {
28 
    puts "This application hasn't been compiled with the \"test\" image"
29 
    puts "type, so I can't run this test.  Are you sure you're using"
30 
    puts "tktest instead of wish?"
31 
    return
32 
}
33 
 
34 
if {[info procs test] != "test"} {
35 
    source defs
36 
}
37 
 
38 
proc deleteWindows {} {
39 
    foreach i [winfo children .] {
40 
        catch [destroy $i]
41 
    }
42 
}
43 
 
44 
deleteWindows
45 
wm geometry . {}
46 
raise .
47 
 
48 
test winMenu-1.1 {GetNewID} {
49 
    catch {destroy .m1}
50 
    list [catch {menu .m1} msg] $msg [destroy .m1]
51 
} {0 .m1 {}}
52 
# Basically impossible to test menu IDs wrapping.
53 
 
54 
test winMenu-2.1 {FreeID} {
55 
    catch {destroy .m1}
56 
    menu .m1
57 
    list [catch {destroy .m1} msg] $msg
58 
} {0 {}}
59 
 
60 
test winMenu-3.1 {TkpNewMenu} {
61 
    catch {destroy .m1}
62 
    list [catch {menu .m1} msg] $msg [catch {destroy .m1} msg2] $msg2
63 
} {0 .m1 0 {}}
64 
test winMenu-3.2 {TkpNewMenu} {
65 
    catch {destroy .m1}
66 
    . configure -menu ""
67 
    menu .m1
68 
    .m1 add command -label "foo"
69 
    list [catch {. configure -menu .m1} msg] $msg [. configure -menu ""] [catch {destroy .m1} msg2] $msg2
70 
} {0 {} {} 0 {}}
71 
 
72 
test winMenu-4.1 {TkpDestroyMenu} {
73 
    catch {destroy .m1}
74 
    menu .m1
75 
    list [catch {destroy .m1} msg] $msg
76 
} {0 {}}
77 
test winMenu-4.2 {TkpDestroyMenu - help menu} {
78 
    catch {destroy .m1}
79 
    menu .m1
80 
    .m1 add cascade -menu .m1.system
81 
    . configure -menu .m1
82 
    list [catch {destroy .m1.system} msg] $msg [. configure -menu ""] [destroy .m1]
83 
} {0 {} {} {}}
84 
 
85 
test winMenu-5.1 {TkpDestroyMenuEntry} {
86 
    catch {destroy .m1}
87 
    . configure -menu ""
88 
    menu .m1
89 
    .m1 add command -label "test"
90 
    update idletasks
91 
    list [catch {.m1 delete 1} msg] $msg [destroy .m1]
92 
} {0 {} {}}
93 
 
94 
test winMenu-6.1 {GetEntryText} {
95 
    catch {destroy .m1}
96 
    list [catch {menu .m1} msg] $msg [destroy .m1]
97 
} {0 .m1 {}}
98 
test winMenu-6.2 {GetEntryText} {
99 
    catch {destroy .m1}
100 
    catch {image delete image1}
101 
    menu .m1
102 
    image create test image1
103 
    list [catch {.m1 add command -image image1} msg] $msg [destroy .m1] [image delete image1]
104 
} {0 {} {} {}}
105 
test winMenu-6.3 {GetEntryText} {
106 
    catch {destroy .m1}
107 
    menu .m1
108 
    list [catch {.m1 add command -bitmap questhead} msg] $msg [destroy .m1]
109 
} {0 {} {}}
110 
test winMenu-6.4 {GetEntryText} {
111 
    catch {destroy .m1}
112 
    menu .m1
113 
    list [catch {.m1 add command} msg] $msg [destroy .m1]
114 
} {0 {} {}}
115 
test winMenu-6.5 {GetEntryText} {
116 
    catch {destroy .m1}
117 
    menu .m1
118 
    list [catch {.m1 add command -label "foo"} msg] $msg [destroy .m1]
119 
} {0 {} {}}
120 
test winMenu-6.6 {GetEntryText} {
121 
    catch {destroy .m1}
122 
    menu .m1
123 
    list [catch {.m1 add command -label "This string has one & in it"} msg] $msg [destroy .m1]
124 
} {0 {} {}}
125 
test winMenu-6.7 {GetEntryText} {
126 
    catch {destroy .m1}
127 
    menu .m1
128 
    list [catch {.m1 add command -label "The & should be underlined." -underline 4} msg] $msg [destroy .m1]
129 
} {0 {} {}}
130 
test winMenu-6.8 {GetEntryText} {
131 
    catch {destroy .m1}
132 
    menu .m1
133 
    list [catch {.m1 add command -label "The * should be underlined." -underline 4} msg] $msg [destroy .m1]
134 
} {0 {} {}}
135 
test winMenu-6.9 {GetEntryText} {
136 
    catch {destroy .m1}
137 
    menu .m1
138 
    list [catch {.m1 add command -label "foo" -accel "bar"} msg] $msg [destroy .m1]
139 
} {0 {} {}}
140 
test winMenu-6.10 {GetEntryText} {
141 
    catch {destroy .m1}
142 
    menu .m1
143 
    list [catch {.m1 add command -label "This string has one & in it" -accel "bar"} msg] $msg [destroy .m1]
144 
} {0 {} {}}
145 
test winMenu-6.11 {GetEntryText} {
146 
    catch {destroy .m1}
147 
    menu .m1
148 
    list [catch {.m1 add command -label "The & should be underlined." -underline 4 -accel "bar"} msg] $msg [destroy .m1]
149 
} {0 {} {}}
150 
test winMenu-6.12 {GetEntryText} {
151 
    catch {destroy .m1}
152 
    menu .m1
153 
    list [catch {.m1 add command -label "The * should be underlined." -underline 4 -accel "bar"} msg] $msg [destroy .m1]
154 
} {0 {} {}}
155 
test winMenu-6.13 {GetEntryText} {
156 
    catch {destroy .m1}
157 
    menu .m1
158 
    list [catch {.m1 add command -label "foo" -accel "&bar"} msg] $msg [destroy .m1]
159 
} {0 {} {}}
160 
test winMenu-6.14 {GetEntryText} {
161 
    catch {destroy .m1}
162 
    menu .m1
163 
    list [catch {.m1 add command -label "This string has one & in it" -accel "&bar"} msg] $msg [destroy .m1]
164 
} {0 {} {}}
165 
test winMenu-6.15 {GetEntryText} {
166 
    catch {destroy .m1}
167 
    menu .m1
168 
    list [catch {.m1 add command -label "The & should be underlined." -underline 4 -accel "&bar"} msg] $msg [destroy .m1]
169 
} {0 {} {}}
170 
test winMenu-6.16 {GetEntryText} {
171 
    catch {destroy .m1}
172 
    menu .m1
173 
    list [catch {.m1 add command -label "The * should be underlined." -underline 4 -accel "&bar"} msg] $msg [destroy .m1]
174 
} {0 {} {}}
175 
 
176 
test winMenu-7.1 {ReconfigureWindowsMenu - system menu item removal} {
177 
    catch {destroy .m1}
178 
    menu .m1
179 
    .m1 add cascade -menu .m1.system
180 
    menu .m1.system
181 
    .m1.system add command -label foo
182 
    update idletasks
183 
    .m1.system add command -label bar
184 
    list [catch {update idletasks} msg] $msg [. configure -menu ""] [destroy .m1]
185 
} {0 {} {} {}}
186 
test winMenu-7.2 {ReconfigureWindowsMenu - menu item removal} {
187 
    catch {destroy .m1}
188 
    menu .m1
189 
    .m1 add command -label Hello
190 
    update idletasks
191 
    .m1 add command -label foo
192 
    list [catch {update idletasks} msg] $msg [destroy .m1]
193 
} {0 {} {}}
194 
test winMenu-7.3 {ReconfigureWindowsMenu - zero items} {
195 
    catch {destroy .m1}
196 
    menu .m1 -tearoff 0
197 
    .m1 add command -label Hello
198 
    .m1 delete Hello
199 
    list [catch {update idletasks} msg] $msg [destroy .m1]
200 
} {0 {} {}}
201 
test winMenu-7.4 {ReconfigureWindowsMenu - one item} {
202 
    catch {destroy .m1}
203 
    menu .m1 -tearoff 0
204 
    .m1 add command -label Hello
205 
    list [catch {update idletasks} msg] $msg [destroy .m1]
206 
} {0 {} {}}
207 
test winMenu-7.5 {ReconfigureWindowsMenu - two items} {
208 
    catch {destroy .m1}
209 
    menu .m1 -tearoff 0
210 
    .m1 add command -label One
211 
    .m1 add command -label Two
212 
    list [catch {update idletasks} msg] $msg [destroy .m1]
213 
} {0 {} {}}
214 
test winMenu-7.6 {ReconfigureWindowsMenu - separator item} {
215 
    catch {destroy .m1}
216 
    menu .m1 -tearoff 0
217 
    .m1 add separator
218 
    list [catch {update idletasks} msg] $msg [destroy .m1]
219 
} {0 {} {}}
220 
test winMenu-7.7 {ReconfigureWindowsMenu - non-text item} {
221 
    catch {destroy .m1}
222 
    menu .m1 -tearoff 0
223 
    .m1 add command -label Hello
224 
    list [catch {update idletasks} msg] $msg [destroy .m1]
225 
} {0 {} {}}
226 
test winMenu-7.8 {ReconfigureWindowsMenu - disabled item} {
227 
    catch {destroy .m1}
228 
    menu .m1 -tearoff 0
229 
    .m1 add command -label Hello -state disabled
230 
    list [catch {update idletasks} msg] $msg [destroy .m1]
231 
} {0 {} {}}
232 
test winMenu-7.9 {ReconfigureWindowsMenu - non-selected checkbutton} {
233 
    catch {destroy .m1}
234 
    menu .m1 -tearoff 0
235 
    .m1 add checkbutton -label Hello
236 
    list [catch {update idletasks} msg] $msg [destroy .m1]
237 
} {0 {} {}}
238 
test winMenu-7.10 {ReconfigureWindowsMenu - non-selected radiobutton} {
239 
    catch {destroy .m1}
240 
    menu .m1 -tearoff 0
241 
    .m1 add radiobutton -label Hello
242 
    list [catch {update idletasks} msg] $msg [destroy .m1]
243 
} {0 {} {}}
244 
test winMenu-7.11 {ReconfigureWindowsMenu - selected checkbutton} {
245 
    catch {destroy .m1}
246 
    menu .m1 -tearoff 0
247 
    .m1 add checkbutton -label Hello
248 
    .m1 invoke Hello
249 
    list [catch {update idletasks} msg] $msg [destroy .m1]
250 
} {0 {} {}}
251 
test winMenu-7.12 {ReconfigureWindowsMenu - selected radiobutton} {
252 
    catch {destroy .m1}
253 
    menu .m1 -tearoff 0
254 
    .m1 add radiobutton -label Hello
255 
    .m1 invoke Hello
256 
    list [catch {update idletasks} msg] $msg [destroy .m1]
257 
} {0 {} {}}
258 
test winMenu-7.13 {ReconfigureWindowsMenu - cascade missing} {
259 
    catch {destroy .m1}
260 
    menu .m1 -tearoff 0
261 
    .m1 add cascade -label Hello
262 
    list [catch {update idletasks} msg] $msg [destroy .m1]
263 
} {0 {} {}}
264 
test winMenu-7.14 {ReconfigureWindowsMenu - cascade} {
265 
    catch {destroy .m1}
266 
    catch {destroy .m2}
267 
    menu .m1 -tearoff 0
268 
    menu .m2
269 
    .m1 add cascade -menu .m2 -label Hello
270 
    list [catch {update idletasks} msg] $msg [destroy .m1] [destroy .m2]
271 
} {0 {} {} {}}
272 
test winMenu-7.15 {ReconfigureWindowsMenu - menubar without system menu} {
273 
    catch {destroy .m1}
274 
    menu .m1 -tearoff 0
275 
    .m1 add cascade -menu .m1.file
276 
    menu .m1.file -tearoff 0
277 
    . configure -menu .m1
278 
    list [catch {update idletasks} msg] $msg [. configure -menu ""] [destroy .m1]
279 
} {0 {} {} {}}
280 
test winMenu-7.16 {ReconfigureWindowsMenu - system menu already created} {
281 
    catch {destroy .m1}
282 
    menu .m1 -tearoff 0
283 
    .m1 add cascade -menu .m1.system
284 
    menu .m1.system -tearoff 0
285 
    . configure -menu .m1
286 
    update idletasks
287 
    .m1.system add command -label Hello
288 
    list [catch {update idletasks} msg] $msg [. configure -menu ""] [destroy .m1]
289 
} {0 {} {} {}}
290 
test winMenu-7.17 {ReconfigureWindowsMenu - system menu update pending} {
291 
    catch {destroy .m1}
292 
    menu .m1 -tearoff 0
293 
    .m1 add cascade -menu .m1.system
294 
    menu .m1.system -tearoff 0
295 
    . configure -menu .m1
296 
    list [catch {update idletasks} msg] $msg [. configure -menu ""] [destroy .m1]
297 
} {0 {} {} {}}
298 
test winMenu-7.18 {ReconfigureWindowsMenu - system menu update not pending} {
299 
    catch {destroy .m1}
300 
    menu .m1 -tearoff 0
301 
    .m1 add cascade -menu .m1.system
302 
    menu .m1.system -tearoff 0
303 
    .m1.system add command -label Hello
304 
    update idletasks
305 
    . configure -menu .m1
306 
    list [catch {update idletasks} msg] $msg [. configure -menu ""] [destroy .m1]
307 
} {0 {} {} {}}
308 
test winMenu-7.19 {ReconfigureWindowsMenu - column break} {
309 
    catch {destroy .m1}
310 
    menu .m1 -tearoff 0
311 
    .m1 add command -label one
312 
    .m1 add command -label two -columnbreak 1
313 
    list [catch {update idletasks} msg] $msg [destroy .m1]
314 
} {0 {} {}}
315 
 
316 
#Don't know how to generate nested post menus
317 
test winMenu-8.1 {TkpPostMenu} {
318 
    catch {destroy .m1}
319 
    menu .m1 -postcommand "blork"
320 
    list [catch {.m1 post 40 40} msg] $msg [destroy .m1]
321 
} {1 {invalid command name "blork"} {}}
322 
test winMenu-8.2 {TkpPostMenu} {
323 
    catch {destroy .m1}
324 
    menu .m1 -postcommand "destroy .m1"
325 
    list [.m1 post 40 40] [winfo exists .m1]
326 
} {{} 0}
327 
test winMenu-8.3 {TkpPostMenu - popup menu} {menuInteractive} {
328 
    catch {destroy .m1}
329 
    menu .m1
330 
    .m1 add command -label "winMenu-8.3: Hit ESCAPE."
331 
    list [.m1 post 40 40] [destroy .m1]
332 
} {{} {}}
333 
test winMenu-8.4 {TkpPostMenu - menu button} {menuInteractive} {
334 
    catch {destroy .mb}
335 
    menubutton .mb -text test -menu .mb.menu
336 
    menu .mb.menu
337 
    .mb.menu add command -label "winMenu-8.4 - Hit ESCAPE."
338 
    pack .mb
339 
    list [tkMbPost .mb] [destroy .m1]
340 
} {{} {}}
341 
test winMenu-8.5 {TkpPostMenu - update not pending} {menuInteractive} {
342 
    catch {destroy .m1}
343 
    menu .m1
344 
    .m1 add command -label "winMenu-8.5 - Hit ESCAPE."
345 
    update idletasks
346 
    list [catch {.m1 post 40 40} msg] $msg [destroy .m1]
347 
} {0 {} {}}
348 
 
349 
test winMenu-9.1 {TkpMenuNewEntry} {
350 
    catch {destroy .m1}
351 
    menu .m1
352 
    list [catch {.m1 add command} msg] $msg [destroy .m1]
353 
} {0 {} {}}
354 
 
355 
test winMenu-10.1 {TkwinMenuProc} {menuInteractive} {
356 
    catch {destroy .m1}
357 
    menu .m1
358 
    .m1 add command -label "winMenu-10.1: Hit ESCAPE."
359 
    list [.m1 post 40 40] [destroy .m1]
360 
} {{} {}}
361 
 
362 
# Can't generate a WM_INITMENU without a Tk menu yet.
363 
test winMenu-11.1 {TkWinHandleMenuEvent - WM_INITMENU} {menuInteractive} {
364 
    catch {destroy .m1}
365 
    catch {unset foo}
366 
    menu .m1 -postcommand "set foo test"
367 
    .m1 add command -label "winMenu-11.1: Hit ESCAPE."
368 
    list [.m1 post 40 40] [set foo] [unset foo] [destroy .m1]
369 
} {test test {} {}}
370 
test winMenu-11.2 {TkWinHandleMenuEvent - WM_COMMAND} {menuInteractive} {
371 
    catch {destroy .m1}
372 
    catch {unset foo}
373 
    menu .m1
374 
    .m1 add checkbutton -variable foo -label "winMenu-11.2: Please select this menu item."
375 
    list [.m1 post 40 40] [update] [set foo] [unset foo] [destroy .m1]
376 
} {{} {} 1 {} {}}
377 
# Can't test WM_MENUCHAR
378 
test winMenu-11.3 {TkWinHandleMenuEvent - WM_MEASUREITEM} {menuInteractive} {
379 
    catch {destroy .m1}
380 
    menu .m1
381 
    .m1 add command -label "winMenu-11.3: Hit ESCAPE."
382 
    list [.m1 post 40 40] [destroy .m1]
383 
} {{} {}}
384 
test winMenu-11.4 {TkWinHandleMenuEvent - WM_MEASUREITEM} {menuInteractive} {
385 
    catch {destroy .m1}
386 
    menu .m1
387 
    .m1 add checkbutton -label "winMenu-11.4: Hit ESCAPE" -hidemargin 1
388 
    list [.m1 post 40 40] [destroy .m1]
389 
} {{} {}}
390 
test winMenu-11.5 {TkWinHandleMenuEvent - WM_DRAWITEM} {menuInteractive} {
391 
    catch {destroy .m1}
392 
    menu .m1
393 
    .m1 add command -label "winMenu-11.5: Hit ESCAPE."
394 
    list [.m1 post 40 40] [destroy .m1]
395 
} {{} {}}
396 
test winMenu-11.6 {TkWinHandleMenuEvent - WM_DRAWITEM - item disabled} {menuInteractive} {
397 
    catch {destroy .m1}
398 
    menu .m1
399 
    .m1 add command -label "winMenu-11.6: Hit ESCAPE." -state disabled
400 
    list [.m1 post 40 40] [destroy .m1]
401 
} {{} {}}
402 
test winMenu-11.7 {TkWinHandleMenuEvent - WM_INITMENU - not pending} {menuInteractive} {
403 
    catch {destroy .m1}
404 
    menu .m1 -tearoff 0
405 
    .m1 add command -label "winMenu-11.7: Hit ESCAPE"
406 
    update idletasks
407 
    list [catch {.m1 post 40 40} msg] $msg [destroy .m1]
408 
} {0 {} {}}
409 
 
410 
test winMenu-12.1 {TkpSetWindowMenuBar} {
411 
    catch {destroy .m1}
412 
    . configure -menu ""
413 
    menu .m1
414 
    .m1 add command -label foo
415 
    list [catch {. configure -menu .m1} msg] $msg [. configure -menu ""] [catch {destroy .m1} msg2] $msg2
416 
} {0 {} {} 0 {}}
417 
test winMenu-12.2 {TkpSetWindowMenuBar} {
418 
    catch {destroy .m1}
419 
    . configure -menu ""
420 
    menu .m1
421 
    .m1 add command -label foo
422 
    . configure -menu .m1
423 
    list [catch {. configure -menu ""} msg] $msg [catch {destroy .m1} msg2] $msg2
424 
} {0 {} 0 {}}
425 
test winMenu-12.3 {TkpSetWindowMenuBar - no update pending} {
426 
    catch {destroy .m1}
427 
    . configure -menu ""
428 
    menu .m1 -tearoff 0
429 
    .m1 add command -label foo
430 
    update idletasks
431 
    list [catch {. configure -menu .m1} msg] $msg [. configure -menu ""] [destroy .m1]
432 
} {0 {} {} {}}
433 
 
434 
test winMenu-13.1 {TkpSetMainMenubar - nothing to do} {} {}
435 
 
436 
test winMenu-14.1 {GetMenuIndicatorGeometry} {
437 
    catch {destroy .m1}
438 
    menu .m1
439 
    .m1 add checkbutton -label foo
440 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
441 
} {0 {}}
442 
test winMenu-14.2 {GetMenuIndicatorGeometry} {
443 
    catch {destroy .m1}
444 
    menu .m1
445 
    .m1 add checkbutton -label foo -hidemargin 1
446 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
447 
} {0 {}}
448 
 
449 
test winMenu-15.1 {GetMenuAccelGeometry} {
450 
    catch {destroy .m1}
451 
    menu .m1
452 
    .m1 add cascade -label foo -accel Ctrl+U
453 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
454 
} {0 {}}
455 
test winMenu-15.2 {GetMenuAccelGeometry} {
456 
    catch {destroy .m1}
457 
    menu .m1
458 
    .m1 add command -label foo
459 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
460 
} {0 {}}
461 
test winMenu-15.3 {GetMenuAccelGeometry} {
462 
    catch {destroy .m1}
463 
    menu .m1
464 
    .m1 add command -label foo -accel "Ctrl+U"
465 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
466 
} {0 {}}
467 
 
468 
test winMenu-16.1 {GetTearoffEntryGeometry} {menuInteractive} {
469 
    catch {destroy .m1}
470 
    menu .m1
471 
    .m1 add command -label "winMenu-19.1: Hit ESCAPE."
472 
    list [.m1 post 40 40] [destroy .m1]
473 
} {{} {}}
474 
 
475 
test winMenu-17.1 {GetMenuSeparatorGeometry} {
476 
    catch {destroy .m1}
477 
    menu .m1
478 
    .m1 add separator
479 
    list [catch {tkTearOffMenu .m1 40 40}] [destroy .m1]
480 
} {0 {}}
481 
 
482 
# Currently, the only callers to DrawWindowsSystemBitmap want things
483 
# centered vertically, and either centered or right aligned horizontally.
484 
test winMenu-18.1 {DrawWindowsSystemBitmap - center aligned} {
485 
    catch {destroy .m1}
486 
    menu .m1
487 
    .m1 add checkbutton -label foo
488 
    .m1 invoke foo
489 
    set tearoff [tkTearOffMenu .m1 40 40]
490 
    list [update] [destroy .m1]
491 
} {{} {}}
492 
test winMenu-18.2 {DrawWindowsSystemBitmap - right aligned} {
493 
    catch {destroy .m1}
494 
    menu .m1
495 
    .m1 add cascade -label foo
496 
    set tearoff [tkTearOffMenu .m1 40 40]
497 
    list [update] [destroy .m1]
498 
} {{} {}}
499 
 
500 
test winMenu-19.1 {DrawMenuEntryIndicator - not checkbutton or radiobutton} {
501 
    catch {destroy .m1}
502 
    menu .m1
503 
    .m1 add command -label foo
504 
    set tearoff [tkTearOffMenu .m1 40 40]
505 
    list [update] [destroy .m1]
506 
} {{} {}}
507 
test winMenu-19.2 {DrawMenuEntryIndicator - not selected} {
508 
    catch {destroy .m1}
509 
    menu .m1
510 
    .m1 add checkbutton -label foo
511 
    set tearoff [tkTearOffMenu .m1 40 40]
512 
    list [update] [destroy .m1]
513 
} {{} {}}
514 
test winMenu-19.3 {DrawMenuEntryIndicator - checkbutton} {
515 
    catch {destroy .m1}
516 
    menu .m1
517 
    .m1 add checkbutton -label foo
518 
    .m1 invoke foo
519 
    set tearoff [tkTearOffMenu .m1 40 40]
520 
    list [update] [destroy .m1]
521 
} {{} {}}
522 
test winMenu-19.4 {DrawMenuEntryIndicator - radiobutton} {
523 
    catch {destroy .m1}
524 
    menu .m1
525 
    .m1 add radiobutton -label foo
526 
    .m1 invoke foo
527 
    set tearoff [tkTearOffMenu .m1 40 40]
528 
    list [update] [destroy .m1]
529 
} {{} {}}
530 
test winMenu-19.5 {DrawMenuEntryIndicator - disabled} {
531 
    catch {destroy .m1}
532 
    menu .m1
533 
    .m1 add checkbutton -label foo
534 
    .m1 invoke foo
535 
    .m1 entryconfigure foo -state disabled
536 
    set tearoff [tkTearOffMenu .m1 40 40]
537 
    list [update] [destroy .m1]
538 
} {{} {}}
539 
test winMenu-19.6 {DrawMenuEntryIndicator - indicator not on} {
540 
    catch {destroy .m1}
541 
    menu .m1
542 
    .m1 add checkbutton -label foo -indicatoron 0
543 
    .m1 invoke foo
544 
    set tearoff [tkTearOffMenu .m1 40 40]
545 
    list [update] [destroy .m1]
546 
} {{} {}}
547 
 
548 
test winMenu-20.1 {DrawMenuEntryAccelerator - disabled} {
549 
    catch {destroy .m1}
550 
    menu .m1 -disabledforeground red
551 
    .m1 add command -label foo -accel "Ctrl+U" -state disabled
552 
    set tearoff [tkTearOffMenu .m1 40 40]
553 
    list [update] [destroy .m1]
554 
} {{} {}}
555 
test winMenu-20.2 {DrawMenuEntryAccelerator - normal text} {
556 
    catch {destroy .m1}
557 
    menu .m1
558 
    .m1 add command -label foo -accel "Ctrl+U"
559 
    set tearoff [tkTearOffMenu .m1 40 40]
560 
    list [update] [destroy .m1]
561 
} {{} {}}
562 
test winMenu-20.3 {DrawMenuEntryAccelerator - disabled, no disabledforeground} {
563 
    catch {destroy .m1}
564 
    menu .m1 -disabledforeground ""
565 
    .m1 add command -label foo -accel "Ctrl+U" -state disabled
566 
    set tearoff [tkTearOffMenu .m1 40 40]
567 
    list [update] [destroy .m1]
568 
} {{} {}}
569 
test winMenu-20.4 {DrawMenuEntryAccelerator - cascade, drawArrow true} {
570 
    catch {destroy .m1}
571 
    menu .m1
572 
    .m1 add cascade -label foo
573 
    set tearoff [tkTearOffMenu .m1 40 40]
574 
    list [update] [destroy .m1]
575 
} {{} {}}
576 
test winMenu-20.5 {DrawMenuEntryAccelerator - cascade, drawArrow false} {menuInteractive} {
577 
    catch {destroy .m1}
578 
    menu .m1
579 
    .m1 add cascade -label "winMenu-23.5: Hit ESCAPE."
580 
    list [.m1 post 40 40] [destroy .m1]
581 
} {{} {}}
582 
 
583 
test winMenu-21.1 {DrawMenuSeparator} {
584 
    catch {destroy .m1}
585 
    menu .m1
586 
    .m1 add separator
587 
    set tearoff [tkTearOffMenu .m1 40 40]
588 
    list [update] [destroy .m1]
589 
} {{} {}}
590 
 
591 
test winMenu-22.1 {DrawMenuUnderline} {
592 
    catch {destroy .m1}
593 
    menu .m1
594 
    .m1 add command -label foo -underline 0
595 
    set tearoff [tkTearOffMenu .m1 40 40]
596 
    list [update] [destroy .m1]
597 
} {{} {}}
598 
 
599 
test winMenu-23.1 {Don't know how to test MenuKeyBindProc} {} {}
600 
test winMenu-24.1 {TkpInitializeMenuBindings called at boot time} {} {}
601 
 
602 
test winMenu-25.1 {DrawMenuEntryLabel - normal} {
603 
    catch {destroy .m1}
604 
    menu .m1
605 
    .m1 add command -label foo
606 
    set tearoff [tkTearOffMenu .m1 40 40]
607 
    list [update] [destroy .m1]
608 
} {{} {}}
609 
test winMenu-25.2 {DrawMenuEntryLabel - disabled with fg} {
610 
    catch {destroy .m1}
611 
    menu .m1 -disabledforeground red
612 
    .m1 add command -label foo -state disabled
613 
    set tearoff [tkTearOffMenu .m1 40 40]
614 
    list [update] [destroy .m1]
615 
} {{} {}}
616 
test winMenu-25.3 {DrawMenuEntryLabel - disabled with no fg} {
617 
    catch {destroy .m1}
618 
    menu .m1 -disabledforeground ""
619 
    .m1 add command -label foo -state disabled
620 
    set tearoff [tkTearOffMenu .m1 40 40]
621 
    list [update] [destroy .m1]
622 
} {{} {}}
623 
 
624 
test winMenu-26.1 {TkpComputeMenubarGeometry} {
625 
    catch {destroy .m1}
626 
    menu .m1
627 
    .m1 add cascade -label File
628 
    list [. configure -menu .m1] [. configure -menu ""] [destroy .m1]
629 
} {{} {} {}}
630 
 
631 
test winMenu-27.1 {DrawTearoffEntry} {menuInteractive} {
632 
    catch {destroy .m1}
633 
    menu .m1
634 
    .m1 add command -label "winMenu-24.4: Hit ESCAPE."
635 
    list [.m1 post 40 40] [destroy .m1]
636 
} {{} {}}
637 
 
638 
test winMenu-28.1 {TkpConfigureMenuEntry - update pending} {
639 
    catch {destroy .m1}
640 
    menu .m1 -tearoff 0
641 
    .m1 add command -label Hello
642 
    list [catch {.m1 add command -label Two} msg] $msg [destroy .m1]
643 
} {0 {} {}}
644 
test winMenu-28.2 {TkpConfigureMenuEntry - update not pending} {
645 
    catch {destroy .m1}
646 
    menu .m1 -tearoff 0
647 
    .m1 add command -label One
648 
    update idletasks
649 
    list [catch {.m1 add command -label Two} msg] $msg [destroy .m1]
650 
} {0 {} {}}
651 
 
652 
test winMenu-29.1 {TkpDrawMenuEntry - gc for active and not strict motif} {
653 
    catch {destroy .m1}
654 
    menu .m1
655 
    .m1 add command -label foo
656 
    set tearoff [tkTearOffMenu .m1 40 40]
657 
    .m1 entryconfigure 1 -state active
658 
    list [update] [destroy .m1]
659 
} {{} {}}
660 
test winMenu-29.2 {TkpDrawMenuEntry - gc for active menu item with its own gc} {
661 
    catch {destroy .m1}
662 
    menu .m1
663 
    .m1 add command -label foo -activeforeground red
664 
    set tearoff [tkTearOffMenu .m1 40 40]
665 
    .m1 entryconfigure 1 -state active
666 
    list [update] [destroy .m1]
667 
} {{} {}}
668 
test winMenu-29.3 {TkpDrawMenuEntry - gc for active and strict motif} {
669 
    catch {destroy .m1}
670 
    menu .m1
671 
    set tk_strictMotif 1
672 
    .m1 add command -label foo
673 
    set tearoff [tkTearOffMenu .m1 40 40]
674 
    .m1 entryconfigure 1 -state active
675 
    list [update] [destroy .m1] [set tk_strictMotif 0]
676 
} {{} {} 0}
677 
test winMenu-29.4 {TkpDrawMenuEntry - gc for disabled with disabledfg and custom entry} {
678 
    catch {destroy .m1}
679 
    menu .m1 -disabledforeground blue
680 
    .m1 add command -label foo -state disabled -background red
681 
    set tearoff [tkTearOffMenu .m1 40 40]
682 
    list [update] [destroy .m1]
683 
} {{} {}}
684 
test winMenu-29.5 {TkpDrawMenuEntry - gc for disabled with disabledFg} {
685 
    catch {destroy .m1}
686 
    menu .m1 -disabledforeground blue
687 
    .m1 add command -label foo -state disabled
688 
    set tearoff [tkTearOffMenu .m1 40 40]
689 
    list [update] [destroy .m1]
690 
} {{} {}}
691 
test winMenu-29.6 {TkpDrawMenuEntry - gc for disabled - no disabledFg} {
692 
    catch {destroy .m1}
693 
    menu .m1 -disabledforeground ""
694 
    .m1 add command -label foo -state disabled
695 
    set tearoff [tkTearOffMenu .m1 40 40]
696 
    list [update] [destroy .m1]
697 
} {{} {}}
698 
test winMenu-29.7 {TkpDrawMenuEntry - gc for normal - custom entry} {
699 
    catch {destroy .m1}
700 
    menu .m1
701 
    .m1 add command -label foo -foreground red
702 
    set tearoff [tkTearOffMenu .m1 40 40]
703 
    list [update] [destroy .m1]
704 
} {{} {}}
705 
test winMenu-29.8 {TkpDrawMenuEntry - gc for normal} {
706 
    catch {destroy .m1}
707 
    menu .m1
708 
    .m1 add command -label foo
709 
    set tearoff [tkTearOffMenu .m1 40 40]
710 
    list [update] [destroy .m1]
711 
} {{} {}}
712 
test winMenu-29.9 {TkpDrawMenuEntry - gc for indicator - custom entry} {
713 
    catch {destroy .m1}
714 
    menu .m1
715 
    .m1 add checkbutton -label foo -selectcolor orange
716 
    .m1 invoke 1
717 
    set tearoff [tkTearOffMenu .m1 40 40]
718 
    list [update] [destroy .m1]
719 
} {{} {}}
720 
test winMenu-29.10 {TkpDrawMenuEntry - gc for indicator} {
721 
    catch {destroy .m1}
722 
    menu .m1
723 
    .m1 add checkbutton -label foo
724 
    .m1 invoke 1
725 
    set tearoff [tkTearOffMenu .m1 40 40]
726 
    list [update] [destroy .m1]
727 
} {{} {}}
728 
test winMenu-29.11 {TkpDrawMenuEntry - border - custom entry} {
729 
    catch {destroy .m1}
730 
    menu .m1
731 
    .m1 add command -label foo -activebackground green
732 
    set tearoff [tkTearOffMenu .m1 40 40]
733 
    .m1 entryconfigure 1 -state active
734 
    list [update] [destroy .m1]
735 
} {{} {}}
736 
test winMenu-29.12 {TkpDrawMenuEntry - border} {
737 
    catch {destroy .m1}
738 
    menu .m1
739 
    .m1 add command -label foo
740 
    set tearoff [tkTearOffMenu .m1 40 40]
741 
    .m1 entryconfigure 1 -state active
742 
    list [update] [destroy .m1]
743 
} {{} {}}
744 
test winMenu-29.13 {TkpDrawMenuEntry - active border - strict motif} {
745 
    catch {destroy .m1}
746 
    set tk_strictMotif 1
747 
    menu .m1
748 
    .m1 add command -label foo
749 
    set tearoff [tkTearOffMenu .m1 40 40]
750 
    .m1 entryconfigure 1 -state active
751 
    list [update] [destroy .m1] [set tk_strictMotif 0]
752 
} {{} {} 0}
753 
test winMenu-29.14 {TkpDrawMenuEntry - active border - custom entry} {
754 
    catch {destroy .m1}
755 
    menu .m1
756 
    .m1 add command -label foo -activeforeground yellow
757 
    set tearoff [tkTearOffMenu .m1 40 40]
758 
    .m1 entryconfigure 1 -state active
759 
    list [update] [destroy .m1]
760 
} {{} {}}
761 
test winMenu-29.15 {TkpDrawMenuEntry - active border} {
762 
    catch {destroy .m1}
763 
    menu .m1
764 
    .m1 add command -label foo
765 
    set tearoff [tkTearOffMenu .m1 40 40]
766 
    .m1 entryconfigure 1 -state active
767 
    list [update] [destroy .m1]
768 
} {{} {}}
769 
test winMenu-29.16 {TkpDrawMenuEntry - font - custom entry} {
770 
    catch {destroy .m1}
771 
    menu .m1
772 
    .m1 add command -label foo -font "Helvectica 72"
773 
    set tearoff [tkTearOffMenu .m1 40 40]
774 
    list [update] [destroy .m1]
775 
} {{} {}}
776 
test winMenu-29.17 {TkpDrawMenuEntry - font} {
777 
    catch {destroy .m1}
778 
    menu .m1 -font "Courier 72"
779 
    .m1 add command -label foo
780 
    set tearoff [tkTearOffMenu .m1 40 40]
781 
    list [update] [destroy .m1]
782 
} {{} {}}
783 
test winMenu-29.18 {TkpDrawMenuEntry - separator} {
784 
    catch {destroy .m1}
785 
    menu .m1
786 
    .m1 add separator
787 
    set tearoff [tkTearOffMenu .m1 40 40]
788 
    list [update] [destroy .m1]
789 
} {{} {}}
790 
test winMenu-29.19 {TkpDrawMenuEntry - standard} {
791 
    catch {destroy .mb}
792 
    menu .m1
793 
    .m1 add command -label foo
794 
    set tearoff [tkTearOffMenu .m1 40 40]
795 
    list [update] [destroy .m1]
796 
} {{} {}}
797 
test winMenu-29.20 {TkpDrawMenuEntry - disabled cascade item} {
798 
    catch {destroy .m1}
799 
    menu .m1
800 
    .m1 add cascade -label File -menu .m1.file
801 
    menu .m1.file
802 
    .m1.file add command -label foo
803 
    .m1 entryconfigure File -state disabled
804 
    set tearoff [tkTearOffMenu .m1 40 40]
805 
    list [update] [destroy .m1]
806 
} {{} {}}
807 
test winMenu-29.21 {TkpDrawMenuEntry - indicator} {
808 
    catch {destroy .m1}
809 
    menu .m1
810 
    .m1 add checkbutton -label winMenu-31.20
811 
    .m1 invoke winMenu-31.20
812 
    set tearoff [tkTearOffMenu .m1 40 40]
813 
    list [update] [destroy .m1]
814 
} {{} {}}
815 
test winMenu-29.22 {TkpDrawMenuEntry - indicator} {
816 
    catch {destroy .m1}
817 
    menu .m1
818 
    .m1 add checkbutton -label winMenu-31.21 -hidemargin 1
819 
    .m1 invoke winMenu-31.21
820 
    set tearoff [tkTearOffMenu .m1 40 40]
821 
    list [update] [destroy .m1]
822 
} {{} {}}
823 
 
824 
test winMenu-30.1 {GetMenuLabelGeometry - image} {
825 
    catch {destroy .m1}
826 
    catch {image delete image1}
827 
    menu .m1
828 
    image create test image1
829 
    .m1 add command -image image1
830 
    list [update idletasks] [destroy .m1] [image delete image1]
831 
} {{} {} {}}
832 
test winMenu-30.2 {GetMenuLabelGeometry - bitmap} {
833 
    catch {destroy .m1}
834 
    menu .m1
835 
    .m1 add command -bitmap questhead
836 
    list [update idletasks] [destroy .m1]
837 
} {{} {}}
838 
test winMenu-30.3 {GetMenuLabelGeometry - no text} {
839 
    catch {destroy .m1}
840 
    menu .m1
841 
    .m1 add command
842 
    list [update idletasks] [destroy .m1]
843 
} {{} {}}
844 
test winMenu-30.4 {GetMenuLabelGeometry - text} {
845 
    catch {destroy .m1}
846 
    menu .m1
847 
    .m1 add command -label "This is a test."
848 
    list [update idletasks] [destroy .m1]
849 
} {{} {}}
850 
 
851 
test winMenu-31.1 {DrawMenuEntryBackground} {
852 
    catch {destroy .m1}
853 
    menu .m1
854 
    .m1 add command -label foo
855 
    set tearoff [tkTearOffMenu .m1 40 40]
856 
    list [update] [destroy .m1]
857 
} {{} {}}
858 
test winMenu-31.2 {DrawMenuEntryBackground} {
859 
    catch {destroy .m1}
860 
    menu .m1
861 
    .m1 add command -label foo
862 
    set tearoff [tkTearOffMenu .m1 40 40]
863 
    $tearoff activate 0
864 
    list [update] [destroy .m1]
865 
} {{} {}}
866 
 
867 
test winMenu-32.1 {TkpComputeStandardMenuGeometry - no entries} {
868 
    catch {destroy .m1}
869 
    menu .m1
870 
    list [update idletasks] [destroy .m1]
871 
} {{} {}}
872 
test winMenu-32.2 {TkpComputeStandardMenuGeometry - one entry} {
873 
    catch {destroy .m1}
874 
    menu .m1
875 
    .m1 add command -label "one"
876 
    list [update idletasks] [destroy .m1]
877 
} {{} {}}
878 
test winMenu-32.3 {TkpComputeStandardMenuGeometry - more than one entry} {
879 
    catch {destroy .m1}
880 
    menu .m1
881 
    .m1 add command -label "one"
882 
    .m1 add command -label "two"
883 
    list [update idletasks] [destroy .m1]
884 
} {{} {}}
885 
test winMenu-32.4 {TkpComputeStandardMenuGeometry - separator} {
886 
    catch {destroy .m1}
887 
    menu .m1
888 
    .m1 add separator
889 
    list [update idletasks] [destroy .m1]
890 
} {{} {}}
891 
test winMenu-32.5 {TkpComputeStandardMenuGeometry - tearoff entry} {unixOnly} {
892 
    catch {destroy .m1}
893 
    menubutton .mb -text "test" -menu .mb.m
894 
    menu .mb.m
895 
    .mb.m add command -label test
896 
    pack .mb
897 
    catch {tkMbPost .mb}
898 
    list [update] [destroy .mb]
899 
} {{} {}}
900 
test winMenu-32.6 {TkpComputeStandardMenuGeometry - standard label geometry} {
901 
    catch {destroy .m1}
902 
    menu .m1
903 
    .m1 add command -label "test"
904 
    list [update idletasks] [destroy .m1]
905 
} {{} {}}
906 
test winMenu-32.7 {TkpComputeStandardMenuGeometry - different font for entry} {
907 
    catch {destroy .m1}
908 
    menu .m1 -font "Helvetica 12"
909 
    .m1 add command -label "test" -font "Courier 12"
910 
    list [update idletasks] [destroy .m1]
911 
} {{} {}}
912 
test winMenu-32.8 {TkpComputeStandardMenuGeometry - second entry larger} {
913 
    catch {destroy .m1}
914 
    menu .m1
915 
    .m1 add command -label "test"
916 
    .m1 add command -label "test test"
917 
    list [update idletasks] [destroy .m1]
918 
} {{} {}}
919 
test winMenu-32.9 {TkpComputeStandardMenuGeometry - first entry larger} {
920 
    catch {destroy .m1}
921 
    menu .m1
922 
    .m1 add command -label "test test"
923 
    .m1 add command -label "test"
924 
    list [update idletasks] [destroy .m1]
925 
} {{} {}}
926 
test winMenu-32.10 {TkpComputeStandardMenuGeometry - accelerator} {
927 
    catch {destroy .m1}
928 
    menu .m1
929 
    .m1 add command -label "test" -accel "Ctrl+S"
930 
    list [update idletasks] [destroy .m1]
931 
} {{} {}}
932 
test winMenu-32.11 {TkpComputeStandardMenuGeometry - second accel larger} {
933 
    catch {destroy .m1}
934 
    menu .m1
935 
    .m1 add command -label "test" -accel "1"
936 
    .m1 add command -label "test" -accel "1 1"
937 
    list [update idletasks] [destroy .m1]
938 
} {{} {}}
939 
test winMenu-32.12 {TkpComputeStandardMenuGeometry - second accel smaller} {
940 
    catch {destroy .m1}
941 
    menu .m1
942 
    .m1 add command -label "test" -accel "1 1"
943 
    .m1 add command -label "test" -accel "1"
944 
    list [update idletasks] [destroy .m1]
945 
} {{} {}}
946 
test winMenu-32.13 {TkpComputeStandardMenuGeometry - indicator} {
947 
    catch {destroy .m1}
948 
    menu .m1
949 
    .m1 add checkbutton -label test
950 
    .m1 invoke 1
951 
    list [update idletasks] [destroy .m1]
952 
} {{} {}}
953 
test winMenu-32.14 {TkpComputeStandardMenuGeometry - second indicator less or equal } {
954 
    catch {destroy .m1}
955 
    catch {image delete image1}
956 
    image create test image1
957 
    menu .m1
958 
    .m1 add checkbutton -image image1
959 
    .m1 invoke 1
960 
    .m1 add checkbutton -label test
961 
    .m1 invoke 2
962 
    list [update idletasks] [destroy .m1] [image delete image1]
963 
} {{} {} {}}
964 
test winMenu-32.15 {TkpComputeStandardMenuGeometry - second indicator larger } {unixOnly} {
965 
    catch {destroy .m1}
966 
    catch {image delete image1}
967 
    image create test image1
968 
    menu .m1
969 
    .m1 add checkbutton -image image1
970 
    .m1 invoke 1
971 
    .m1 add checkbutton -label test
972 
    .m1 invoke 2
973 
    list [update idletasks] [destroy .m1] [image delete image1]
974 
} {{} {} {}}
975 
test winMenu-32.16 {TkpComputeStandardMenuGeometry - zero sized menus} {
976 
    catch {destroy .m1}
977 
    menu .m1 -tearoff 0
978 
    list [update idletasks] [destroy .m1]
979 
} {{} {}}
980 
test winMenu-32.17 {TkpComputeStandardMenuGeometry - first column bigger} {
981 
    catch {destroy .m1}
982 
    menu .m1
983 
    .m1 add command -label one
984 
    .m1 add command -label two
985 
    .m1 add command -label three -columnbreak 1
986 
    list [update idletasks] [destroy .m1]
987 
} {{} {}}
988 
test winMenu-32.18 {TkpComputeStandardMenuGeometry - second column bigger} {
989 
    catch {destroy .m1}
990 
    menu .m1 -tearoff 0
991 
    .m1 add command -label one
992 
    .m1 add command -label two -columnbreak 1
993 
    .m1 add command -label three
994 
    list [update idletasks] [destroy .m1]
995 
} {{} {}}
996 
test winMenu-32.19 {TkpComputeStandardMenuGeometry - three columns} {
997 
    catch {destroy .m1}
998 
    menu .m1 -tearoff 0
999 
    .m1 add command -label one
1000 
    .m1 add command -label two -columnbreak 1
1001 
    .m1 add command -label three
1002 
    .m1 add command -label four
1003 
    .m1 add command -label five -columnbreak 1
1004 
    .m1 add command -label six
1005 
    list [update idletasks] [destroy .m1]
1006 
} {{} {}}
1007 
 
1008 
test winMenu-33.1 {TkpNotifyTopLevelCreate - no menu yet} {
1009 
    catch {destroy .t2}
1010 
    catch {destroy .m1}
1011 
    toplevel .t2 -menu .m1
1012 
    wm geometry .t2 +0+0
1013 
    list [update idletasks] [destroy .t2]
1014 
} {{} {}}
1015 
test winMenu-33.2 {TkpNotifyTopLevelCreate - menu} {
1016 
    catch {destroy .t2}
1017 
    catch {destroy .m1}
1018 
    menu .m1
1019 
    menu .m1.system
1020 
    .m1 add cascade -menu .m1.system
1021 
    .m1.system add separator
1022 
    .m1.system add command -label foo
1023 
    toplevel .t2 -menu .m1
1024 
    wm geometry .t2 +0+0
1025 
    list [update idletasks] [destroy .m1] [destroy .t2]
1026 
} {{} {} {}}
1027 
 
1028 
test winMenu-34.1 {TkpMenuInit called at boot time} {} {}
1029 
 
1030 
deleteWindows

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.