开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
winMenu.test
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：34k
源码类别：

通讯编程

开发平台：

Visual C++

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