destroy .m1

menu .m1

} -cleanup {

} -result {.m1}

test menu-1.5 {Tk_MenuCmd - creating menubar} -setup {

destroy .m1

.m1 add cascade -label Test -menu ""

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-1.6 {Tk_MenuCmd procedure menu ref no cascade} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

menu .m1

} -cleanup {

} -result {.m1}

test menu-1.7 {Tk_MenuCmd procedure one clone cascade} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

.m1 add cascade -menu .m2

menu .m2

} -cleanup {

} -result {.m2}

test menu-1.8 {Tk_MenuCmd procedure two clone cascades} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

wm geometry .t3 +0+0

menu .m2

} -cleanup {

} -result {.m2}

test menu-1.9 {Tk_MenuCmd procedure two clone cascades different order} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

wm geometry .t3 +0+0

list [menu .m2]

} -cleanup {

} -result {.m2}

test menu-1.10 {Tk_MenuCmd procedure two clone cascades menus last} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

.m1 add cascade -menu .m2

list [menu .m2]

} -cleanup {

} -result {.m2}

test menu-1.11 {Tk_MenuCmd procedure three clones cascades} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

.m1 add cascade -menu .m2

list [menu .m2]

} -cleanup {

} -result {.m2}

test menu-1.12 {Tk_MenuCmd procedure} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

list [menu .m1]

} -cleanup {

} -result {.m1}

test menu-1.13 {Tk_MenuCmd procedure} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

wm geometry .t3 +0+0

list [menu .m1]

} -cleanup {

} -result {.m1}

test menu-1.14 {Tk_MenuCmd procedure} -setup {

} -body {

toplevel .t2 -menu .m1

wm geometry .t2 +0+0

wm geometry .t4 +0+0

list [menu .m1]

} -cleanup {

} -result {.m1}

# Used for 2.1 - 2.30 tests

destroy .m1

} -returnCodes error -result {bad option "foo": must be activate, add, cget, clone, configure, delete, entrycget, entryconfigure, index, insert, invoke, post, postcascade, type, unpost, xposition, or yposition}

test menu-3.68 {MenuWidgetCmd procedure, fix for bug#508988} -setup {

} -body {

set t .t

set m1 .t.m1

$t configure -menu ""

list [winfo exists $c1] [winfo exists $c2]

} -cleanup {

} -result {1 1}

test menu-3.69 {MenuWidgetCmd procedure, "xposition" option} -setup {

destroy .m1

menu .m1

catch {.m1 invoke 0}

} -cleanup {

} -result {0}

test menu-4.3 {TkInvokeMenu: checkbutton -on} -setup {

destroy .m1

list [destroy .m2] [.m1 entrycget 1 -menu] [. configure -menu ""] [destroy .m1]

} -returnCodes ok -result {{} .m2 {} {}}

test menu-5.6 {DestroyMenuInstance - cascades of cloned menus} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

.m1 clone .m1.m3

destroy .m1

} -cleanup {

} -returnCodes ok

test menu-6.5 {TkDestroyMenu} -setup {

destroy .m1 .m2

list [destroy .m1] [destroy .m2]

} -returnCodes ok -result {{} {}}

test menu-7.5 {UnhookCascadeEntry} -setup {

} -body {

menu .m1

menu .m2

list [destroy .m1] [destroy .m2 .m3]

} -returnCodes ok -result {{} {}}

test menu-7.6 {UnhookCascadeEntry} -setup {

} -body {

menu .m1

menu .m2

list [destroy .m2] [destroy .m1 .m3]

} -returnCodes ok -result {{} {}}

test menu-7.7 {UnhookCascadeEntry} -setup {

} -body {

menu .m1

menu .m2

list [destroy .m3] [destroy .m1 .m2]

} -returnCodes ok -result {{} {}}

test menu-7.8 {UnhookCascadeEntry} -setup {

} -body {

menu .m1

menu .m2

list [.m1 delete 1] [.m1 entrycget 1 -label] [destroy .m1]

} -result {{} two {}}

test menu-8.7 {DestroyMenuEntry} -setup {

} -body {

menu .m1

.m1 add command -label "one"

menu .m1

list [.m1 configure -postcommand "beep"] [.m1 cget -postcommand]

} -cleanup {

} -result {{} beep}

test menu-9.2 {ConfigureMenu} -setup {

destroy .m1

.m1 add command -label "test"

list [.m1 configure -tearoff 0] [.m1 entrycget 1 -label]

} -cleanup {

} -result {{} test}

test menu-9.3 {ConfigureMenu} -setup {

destroy .m1

menu .m1

list [.m1 configure -postcommand "beep"] [.m1 cget -postcommand]

} -cleanup {

} -result {{} beep}

test menu-9.4 {ConfigureMenu} -setup {

destroy .m1

.m1 add command -label "test"

.m1 configure -fg red

} -cleanup {

} -result {}

test menu-9.5 {ConfigureMenu} -setup {

destroy .m1

.m1 add command -label "two"

.m1 configure -fg red

} -cleanup {

} -result {}

test menu-9.6 {ConfigureMenu} -setup {

destroy .m1

.m1 add command -label "three"

.m1 configure -fg red

} -cleanup {

} -result {}

test menu-9.7 {ConfigureMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 tearoff

list [.m1 configure -fg red] [.m2 cget -fg]

} -cleanup {

} -result {{} red}

test menu-9.8 {ConfigureMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 tearoff

list [.m2 configure -fg red] [.m1 cget -fg]

} -cleanup {

} -result {{} red}

test menu-9.9 {ConfigureMenu} -setup {

destroy .m1

menu .m1

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

.m1 add checkbutton -variable foo(1) -onvalue on -offvalue off -label "Nonsense"

set foo(1)

} -cleanup {

} -result {on}

test menu-10.2 {PostProcessEntry: array variable} -setup {

destroy .m1

.m1 add checkbutton -variable foo(1) -onvalue on -offvalue off -label "Nonsense"

set foo(1)

} -cleanup {

} -result {off}

.m1 add checkbutton -variable foo -onvalue on -offvalue off -label "Nonsense"

list [.m1 entryconfigure 1 -variable bar] [.m1 entrycget 1 -variable]

} -cleanup {

} -result {{} bar}

test menu-11.2 {ConfigureMenuEntry} -setup {

destroy .m1

.m1 add command -label "test"

list [.m1 entryconfigure 1 -label ""] [.m1 entrycget 1 -label]

} -cleanup {

} -result {{} {}}

test menu-11.3 {ConfigureMenuEntry} -setup {

destroy .m1

.m1 add command

list [.m1 entryconfigure 1 -label "test"] [.m1 entrycget 1 -label]

} -cleanup {

} -result {{} test}

test menu-11.4 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add command

list [.m1 entryconfigure 1 -accel "S"] [.m1 entrycget 1 -accel]

} -cleanup {

} -result {{} S}

test menu-11.5 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add command

list [.m1 entryconfigure 1 -label "test"] [.m1 entrycget 1 -label]

} -cleanup {

} -result {{} test}

test menu-11.6 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add command

.m1 entryconfigure 1 -label "test"

} -cleanup {

} -result {}

test menu-11.7 {ConfigureMenuEntry} -setup {

} -body {

menu .m2

menu .m1

.m1 add cascade

.m1 entryconfigure 1 -label "test" -menu .m2

} -cleanup {

} -result {}

test menu-11.8 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add cascade

.m1 entryconfigure 1 -label "test" -menu .m2

} -cleanup {

} -result {}

test menu-11.9 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m3

.m1 entryconfigure 1 -label "test" -menu .m2

} -cleanup {

} -result {}

test menu-11.10 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add cascade

.m1 entryconfigure 1 -label "test" -menu .m2

} -cleanup {

} -result {}

test menu-11.11 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

.m1 entryconfigure 1 -label "test" -menu .m2

} -cleanup {

} -result {}

test menu-11.12 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

menu .m2

.m5 add cascade

.m5 entryconfigure 1 -label "test" -menu .m1

} -cleanup {

} -result {}

test menu-11.13 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

menu .m2

.m4 add cascade -menu .m1

.m3 entryconfigure 1 -label "test" -menu .m1

} -cleanup {

} -result {}

test menu-11.14 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add checkbutton

list [.m1 entryconfigure 1 -variable "test"] [.m1 entrycget 1 -variable]

} -cleanup {

} -result {{} test}

test menu-11.15 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

list [.m1 add checkbutton -label "test"] [.m1 entrycget 1 -variable]

} -cleanup {

} -result {{} test}

test menu-11.16 {ConfigureMenuEntry} -setup {

} -body {

menu .m1

.m1 add radiobutton -label "test"

} -cleanup {

} -result {}

test menu-11.17 {ConfigureMenuEntry} -setup {

deleteWindows

.m1 entrycget -1 -label

} -returnCodes error -result {bad menu entry index "-1"}

test menu-13.9 {TkGetMenuIndex} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 add command -label "test2"

.m1 entrycget 999 -label

} -cleanup {

} -result {test2}

test menu-13.10 {TkGetMenuIndex} -setup {

} -body {

menu .m1

.m1 insert 999 command -label "test"

.m1 entrycget 1 -label

} -cleanup {

} -result {test}

test menu-13.11 {TkGetMenuIndex} -setup {

} -body {

menu .m1

.m1 add command -label "1test"

.m1 entrycget 1test -label

} -cleanup {

} -result {1test}

test menu-13.12 {TkGetMenuIndex} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 add command -label "test3"

.m1 entrycget test2 -command

} -cleanup {

} -result {beep}

test menu-14.1 {MenuCmdDeletedProc} -setup {

} -body {

menu .m1

destroy .m1

} -cleanup {

} -returnCodes ok

test menu-14.2 {MenuCmdDeletedProc} -setup {

} -body {

menu .m1

.m1 clone .m2

destroy .m1

} -cleanup {

} -returnCodes ok

test menu-15.1 {MenuNewEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

} -cleanup {

} -result {}

test menu-15.2 {MenuNewEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 add command -label "test3"

.m1 insert 2 command -label "test2"

} -cleanup {

} -result {}

test menu-15.3 {MenuNewEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 add command -label "test2"

} -cleanup {

} -result {}

test menu-15.4 {MenuNewEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

} -cleanup {

} -result {}

test menu-16.1 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 insert foo command -label "test"

} -returnCodes error -result {bad menu entry index "foo"}

test menu-16.2 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 insert test command -label "foo"

} -cleanup {

} -result {}

test menu-16.3 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 insert -1 command -label "test"

} -returnCodes error -result {bad menu entry index "-1"}

test menu-16.4 {MenuAddOrInsert} -setup {

} -body {

menu .m1 -tearoff 1

.m1 add command -label "test"

.m1 insert 0 command -label "test2"

.m1 entrycget 1 -label

} -cleanup {

} -result {test2}

test menu-16.5 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add cascade

} -cleanup {

} -result {}

test menu-16.6 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add checkbutton

} -cleanup {

} -result {}

test menu-16.7 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add command

} -cleanup {

} -result {}

test menu-16.8 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add radiobutton

} -cleanup {

} -result {}

test menu-16.9 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add separator

} -cleanup {

} -result {}

test menu-16.10 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add blork

} -returnCodes error -result {bad menu entry type "blork": must be cascade, checkbutton, command, radiobutton, or separator}

test menu-16.11 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add command

} -cleanup {

} -result {}

test menu-16.12 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 clone .m2

.m2 clone .m3

list [.m2 add command -label "test"] [.m1 entrycget 1 -label] [.m3 entrycget 1 -label]

} -cleanup {

} -result {{} test test}

test menu-16.13 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 clone .m2

.m2 clone .m3

list [.m3 add command -label "test"] [.m1 entrycget 1 -label] [.m2 entrycget 1 -label]

} -cleanup {

} -result {{} test test}

test menu-16.14 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add command -blork

} -returnCodes error -result {unknown option "-blork"}

test menu-16.15 {MenuAddOrInsert} -setup {

} -body {

menu .m1

.m1 add command -label "File"

. configure -menu .container

list [.container add cascade -label "File" -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-16.16 {MenuAddOrInsert} -setup {

} -body {

menu .m1

menu .m2

set tearoff [tk::TearOffMenu .m2]

list [.m2 add cascade -menu .m1] [$tearoff unpost]

} -cleanup {

} -result {{} {}}

test menu-16.17 {MenuAddOrInsert} -setup {

} -body {

menu .m1

menu .container

set tearoff [tk::TearOffMenu .container]

list [.container add cascade -label "File" -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-16.18 {MenuAddOrInsert} -setup {

} -body {

menu .m1

menu .container

. configure -menu .container

list [.container add cascade -label "File" -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-16.19 {MenuAddOrInsert - Insert a cascade deep into the tree} -setup {

} -body {

menu .menubar

menu .menubar.test -tearoff 0

[info commands .\#menubar.\#menubar\#test.\#menubar\#test\#cascade] \

[. configure -menu ""]

} -cleanup {

} -result {0 .#menubar.#menubar#test.#menubar#test#cascade {}}

test menu-17.1 {MenuVarProc} -setup {

} -body {

catch {unset foo}

menu .m1

list [.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye] \

[unset foo]

} -cleanup {

} -result {{} {}}

# menu-17.2 - Don't know how to generate the flags in the if

test menu-17.2 {MenuVarProc} -setup {

} -body {

catch {unset foo}

menu .m1

list [.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye] \

[set foo ""]

} -cleanup {

} -result {{} {}}

test menu-17.3 {MenuVarProc} -setup {

} -body {

catch {unset foo}

menu .m1

list [.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye] \

[set foo "hello"] [unset foo]

} -cleanup {

} -result {{} hello {}}

test menu-17.4 {MenuVarProc} -setup {

} -body {

menu .m1

set foo "goodbye"

list [.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye] \

[set foo "hello"] [unset foo]

} -cleanup {

} -result {{} hello {}}

test menu-17.5 {MenuVarProc} -setup {

} -body {

menu .m1

set foo "hello"

list [.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye] \

[set foo "goodbye"] [unset foo]

} -cleanup {

} -result {{} goodbye {}}

test menu-17.6 {MenuVarProc [5d991b822e]} -setup {

} -body {

# Want this not to crash

menu .b

}}}

unset var

} -cleanup {

} -result {}

test menu-17.7 {MenuVarProc [5d991b822e]} -setup {

} -body {

# Want this not to duplicate traces

menu .b

}}}

unset var

} -cleanup {

} -result {}

test menu-18.1 {TkActivateMenuEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 activate 1

} -cleanup {

} -result {}

test menu-18.2 {TkActivateMenuEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 activate 0

} -cleanup {

} -result {}

test menu-18.3 {TkActivateMenuEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 activate 1

.m1 activate 2

} -cleanup {

} -result {}

test menu-18.4 {TkActivateMenuEntry} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 activate 1

.m1 activate 1

} -cleanup {

} -result {}

test menu-19.1 {TkPostCommand} -constraints nonUnixUserInteraction -setup {

} -body {

menu .m1 -postcommand "set menu_test menu-19.1"

.m1 add command -label "menu-19.1 - hit Escape"

list [.m1 post 40 40] [.m1 unpost] [set menu_test]

} -cleanup {

} -result {menu-19.1 {} menu-19.1}

test menu-19.2 {TkPostCommand} -constraints nonUnixUserInteraction -setup {

} -body {

menu .m1

.m1 add command -label "menu-19.2 - hit Escape"

list [.m1 post 40 40] [.m1 unpost]

} -cleanup {

} -result {{} {}}

test menu-20.1 {CloneMenu} -setup {

} -body {

menu .m1

.m1 clone .m2]

} -cleanup {

} -result {}

test menu-20.2 {CloneMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 normal

} -result {}

test menu-20.3 {CloneMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 tearoff

} -cleanup {

} -result {}

test menu-20.4 {CloneMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 menubar

} -cleanup {

} -result {}

test menu-20.5 {CloneMenu} -setup {

} -body {

menu .m1

.m1 clone .m2 foo

} -returnCodes error -result {bad menu type "foo": must be normal, tearoff, or menubar}

test menu-20.6 {CloneMenu - hooking up bookeeping ptrs} -setup {

} -body {

menu .m1

.m1 clone .m2

} -cleanup {

} -result {}

test menu-20.7 {CloneMenu - hooking up bookeeping ptrs - multiple children} -setup {

} -body {

menu .m1

.m1 clone .m2

.m1 clone .m3

} -cleanup {

} -result {}

test menu-20.8 {CloneMenu - cascade entries} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

.m1 clone .foo

} -cleanup {

} -result {}

test menu-20.9 {CloneMenu - cascades entries} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

menu .m2

.m1 clone .foo

} -cleanup {

} -result {}

test menu-20.10 {CloneMenu - tearoff fields} -setup {

} -body {

menu .m1 -tearoff 1

list [.m1 clone .m2 normal] [.m2 cget -tearoff]

} -cleanup {

} -result {{} 1}

test menu-20.11 {CloneMenu} -setup {

} -body {

menu .m1

menu .m2

} -returnCodes error -result {window name "m2" already exists in parent}

test menu-21.1 {MenuDoYPosition} -setup {

} -body {

menu .m1

.m1 yposition glorp

} -returnCodes error -result {bad menu entry index "glorp"}

test menu-21.2 {MenuDoYPosition} -setup {

} -body {

menu .m1

.m1 add command -label "Test"

.m1 yposition 1

} -cleanup {

} -returnCodes ok -match glob -result {*}

test menu-22.1 {GetIndexFromCoords} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 configure -tearoff 0

.m1 index @5

} -cleanup {

} -result {0}

test menu-22.2 {GetIndexFromCoords} -setup {

} -body {

menu .m1

.m1 add command -label "test"

.m1 configure -tearoff 0

.m1 index @5,5

} -cleanup {

} -result {0}

test menu-22.3 {GetIndexFromCoords: mapped window, y only} -setup {

} -constraints {x11} -body {

menu .m1

.m1 add command -label "test"

tkwait visibility .m1

.m1 index @5

} -cleanup {

} -result {0}

test menu-22.4 {GetIndexFromCoords: mapped window x,y} -setup {

} -constraints {x11} -body {

menu .m1

.m1 add command -label "test"

set x [expr {[winfo width .m1] - [.m1 cget -borderwidth] - 1}]

.m1 index @$x,5

} -cleanup {

} -result {0}

test menu-22.5 {GetIndexFromCoords: mapped wide window} -setup {

} -constraints {x11} -body {

menu .m1

.m1 add command -label "test"

set x [expr {[winfo width .m1] - [.m1 cget -borderwidth] - 1}]

.m1 index @$x,5

} -cleanup {

} -result {0}

test menu-23.1 {RecursivelyDeleteMenu} -setup {

} -body {

menu .m1

. configure -menu .m1

. configure -menu ""

} -cleanup {

} -result {}

test menu-23.2 {RecursivelyDeleteMenu} -setup {

} -body {

menu .m2

.m2 add command -label "test2"

. configure -menu .m1

. configure -menu ""

} -cleanup {

} -result {}

test menu-24.1 {TkNewMenuName} -setup {

} -body {

menu .m1

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-24.2 {TkNewMenuName} -setup {

} -body {

menu .m1

menu .m1\#0

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-24.3 {TkNewMenuName} -setup {

} -body {

menu .#m

rename .#m hideme

test menu-25.1 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.2 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.3 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

destroy .m1

menu .m1

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.4 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

menu .m2

list [. configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.5 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

menu .m3

list [. configure -menu .m3] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.6 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

menu .m3

list [. configure -menu .m3] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.7 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

.t2 configure -menu .m1

list [.t2 configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.8 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

.t2 configure -menu .m1

list [. configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.9 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

wm geometry .t3 +0+0

list [.t3 configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.10 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

wm geometry .t3 +0+0

list [.t2 configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.11 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

wm geometry .t3 +0+0

list [. configure -menu .m2] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.12 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.13 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.14 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.15 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-25.16 {TkSetWindowMenuBar} -setup {

} -body {

. configure -menu ""

menu .m1

. configure -menu .m1

list [toplevel .t2 -menu m1] [. configure -menu ""]

} -cleanup {

} -result {.t2 {}}

test menu-26.1 {DestroyMenuHashTable} -setup {

catch {interp delete testinterp}

} -body {

interp create testinterp

load {} Tk testinterp

test menu-27.1 {GetMenuHashTable} -setup {

catch {interp delete testinterp}

} -body {

interp create testinterp

load {} Tk testinterp

list [catch {interp eval testinterp {menu .m1}} msg] $msg [interp delete testinterp]

} -cleanup {

} -result {0 .m1 {}}

test menu-28.1 {TkCreateMenuReferences - not there before} -setup {

} -body {

menu .m1

} -cleanup {

} -result {.m1}

test menu-28.2 {TkCreateMenuReferences - there already} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m2

menu .m2

} -cleanup {

} -result {.m2}

test menu-29.1 {TkFindMenuReferences - not there} -setup {

} -body {

. configure -menu ""

menu .m1

.m1 add cascade -menu .m2

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-30.1 {TkFindMenuReferences - there already} -setup {

} -body {

. configure -menu ""

menu .m1

.m1 add cascade -menu .m2

list [. configure -menu .m1] [. configure -menu ""]

} -cleanup {

} -result {{} {}}

test menu-31.1 {TkFreeMenuReferences - menuPtr} -setup {

} -body {

menu .m1

destroy .m1

} -cleanup {

} -result {}

test menu-31.2 {TkFreeMenuReferences - cascadePtr} -setup {

} -body {

. configure -menu ""

menu .m1

.m1 add cascade -menu .m2

.m1 entryconfigure 1 -menu .m3

} -cleanup {

} -result {}

test menu-31.3 {TkFreeMenuReferences - topLevelListPtr} -setup {

} -body {

. configure -menu .m1

. configure -menu ""

} -cleanup {

} -returnCodes ok -result {}

test menu-31.4 {TkFreeMenuReferences - not empty} -setup {

} -body {

menu .m1

.m1 add cascade -menu .m3

.m2 add cascade -menu .m3

.m2 entryconfigure 1 -menu ".foo"

} -cleanup {

} -result {}

test menu-32.1 {DeleteMenuCloneEntries} -setup {

} -body {

menu .m1

.m1 add command -label foo

.m1 clone .m2

.m1 delete 1

} -cleanup {

} -result {}

test menu-32.2 {DeleteMenuCloneEntries} -setup {

} -body {

menu .m1

.m1 clone .m2

.m1 delete 2 3

} -cleanup {

} -result {}

test menu-32.3 {DeleteMenuCloneEntries} -setup {

} -body {

menu .m1 -tearoff 0

.m1 add command -label one

.m2 configure -tearoff 1

.m1 delete 1 2

} -cleanup {

} -result {}

test menu-32.4 {DeleteMenuCloneEntries} -setup {

} -body {

menu .m1

.m1 add command -label one

.m2 configure -tearoff 0

.m1 delete 2 3

} -cleanup {

} -result {}

test menu-32.5 {DeleteMenuCloneEntries} -setup {

} -body {

menu .m1

.m1 add command -label one

.m1 activate one

.m1 delete one

} -cleanup {

} -result {}

test menu-32.6 {DeleteMenuCloneEntries - reentrancy - crashes tk8.0} -setup {

} -body {

menu .m1

.m1 add command -label test \

-command ".m1 delete test ; .m1 add command -label test -command \".m1 delete test\"; .m1 delete test"

.m1 invoke test

} -cleanup {

} -result {}

test menu-32.7 {DeleteMenuCloneEntries - one entry} -setup {

} -body {

menu .m1 -tearoff 0

.m1 add command -label Hello

.m1 delete Hello

} -cleanup {

} -result {}

test menu-32.8 {Ensure all menu clone commands are deleted} -setup {

} -body {

# SF bug #465324

menu .menubar

info commands .#menubar*test*

} -cleanup {

} -result {}

test menu-32.9 {Ensure deleting of clones doesn't corrupt menu refs} -setup {

set res {}

} -body {

menu .menubar

. configure -menu .menubar

lappend res [.#menubar.#menubar#test entrycget 1 -menu]

return $res

} -cleanup {

} -result {.menubar.cascade .#menubar.#menubar#test.#menubar#cascade .menubar.cascade .#menubar.#menubar#test.#menubar#cascade}

test menu-33.1 {menu vs command hiding} -setup {

} -body {

set l [interp hidden]

menu .m

test menu-34.1 {menus on multiple screens - crashes tk8.3.1, Bug 5454} -constraints {

altDisplay

} -setup {

} -body {

toplevel .one

menu .one.m

update

tk::TraverseToMenu . "e"

} -cleanup {

} -result {}

test menu-37.1 {menubar menues cannot be posted - bug 2160206} -setup {