menu.test

linux系统下的音频通信

    menu .m1
    .m1 add command -label "last"
    .m1 add command -label "test2"
    .m1 add command -label "test3"
    .m1 activate 2
    list [catch {.m1 entrycget last -label} msg] $msg [destroy .m1]
} {0 test3 {}}
test menu-12.3 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "last"
    .m1 add command -label "test2"
    .m1 add command -label "test3"
    .m1 activate 2
    list [catch {.m1 entrycget end -label} msg] $msg [destroy .m1]
} {0 test3 {}}
test menu-12.4 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 insert last command -label "test2"} msg] $msg [.m1 entrycget last -label] [destroy .m1]
} {0 {} test2 {}}
test menu-12.5 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 insert end command -label "test2"} msg] $msg [.m1 entrycget end -label] [destroy .m1]
} {0 {} test2 {}}
test menu-12.6 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "active"
    .m1 add command -label "test2"
    .m1 add command -label "test3"
    .m1 activate 2
    list [catch {.m1 entrycget none -label} msg] $msg [destroy .m1]
} {0 {} {}}
#test menu-13.7 - Need to add @test here.
test menu-12.7 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "active"
    .m1 add command -label "test2"
    .m1 add command -label "test3"
    list [catch {.m1 entrycget 1 -label} msg] $msg [destroy .m1]
} {0 active {}}
test menu-12.8 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "active"
    list [catch {.m1 entrycget -1 -label} msg] $msg [destroy .m1]
} {1 {bad menu entry index "-1"} {}}
test menu-12.9 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "test2"
    list [catch {.m1 entrycget 999 -label} msg] $msg [destroy .m1]
} {0 test2 {}}
test menu-12.10 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 insert 999 command -label "test"
    list [catch {.m1 entrycget 1 -label} msg] $msg [destroy .m1]
} {0 test {}}
test menu-12.11 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "1test"
    list [catch {.m1 entrycget 1test -label} msg] $msg [destroy .m1]
} {0 1test {}}
test menu-12.12 {TkGetMenuIndex} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "test2" -command "beep"
    .m1 add command -label "test3"
    list [catch {.m1 entrycget test2 -command} msg] $msg [destroy .m1]
} {0 beep {}}

test menu-13.1 {MenuCmdDeletedProc} {
    catch {destroy .m1}
    menu .m1
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-13.2 {MenuCmdDeletedProc} {
    catch {destroy .m1}
    menu .m1
    .m1 clone .m2
    list [catch {destroy .m1} msg] $msg
} {0 {}}

test menu-14.1 {MenuNewEntry} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add command -label "test"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-14.2 {MenuNewEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "test3"
    list [catch {.m1 insert 2 command -label "test2"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-14.3 {MenuNewEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 add command -label "test2"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-14.4 {MenuNewEntry} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add command -label "test"} msg] $msg [destroy .m1]
} {0 {} {}}

test menu-15.1 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 insert foo command -label "test"} msg] $msg [destroy .m1]
} {1 {bad menu entry index "foo"} {}}
test menu-15.2 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 insert test command -label "foo"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.3 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 insert -1 command -label "test"} msg] $msg [destroy .m1]
} {1 {bad menu entry index "-1"} {}}
test menu-15.4 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 insert 0 command -label "test2"
    list [catch {.m1 entrycget 1 -label} msg] $msg [destroy .m1]
} {0 test2 {}}
test menu-15.5 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add cascade} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.6 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add checkbutton} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.7 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add command} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.8 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add radiobutton} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.9 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add separator} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.10 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add blork} msg] $msg [destroy .m1]
} {1 {bad menu entry type "blork": must be cascade, checkbutton, command, radiobutton, or separator} {}}
test menu-15.11 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add command} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-15.12 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m2 clone .m3
    list [catch {.m2 add command -label "test"} msg1] $msg1 [catch {.m1 entrycget 1 -label} msg2] $msg2 [catch {.m3 entrycget 1 -label} msg3] $msg3 [destroy .m1]
} {0 {} 0 test 0 test {}}
test menu-15.13 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m2 clone .m3
    list [catch {.m3 add command -label "test"} msg1] $msg1 [catch {.m1 entrycget 1 -label} msg2] $msg2 [catch {.m2 entrycget 1 -label} msg3] $msg3 [destroy .m1]
} {0 {} 0 test 0 test {}}
test menu-15.14 {MenuAddOrInsert} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add command -blork} msg] $msg [destroy .m1]
} {1 {unknown option "-blork"} {}}
test menu-15.15 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .container}
    menu .m1
    .m1 add command -label "File"
    menu .container
    . configure -menu .container
    list [catch {.container add cascade -label "File" -menu .m1} msg] $msg [. configure -menu ""] [destroy .container .m1]
} {0 {} {} {}}
test menu-15.16 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    set tearoff [tkTearOffMenu .m2]
    list [catch {.m2 add cascade -menu .m1} msg] $msg [$tearoff unpost] [catch {destroy .m1} msg2] $msg2 [catch {destroy .m2} msg3] $msg3
} {0 {} {} 0 {} 0 {}}
test menu-15.17 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .container}
    menu .m1
    menu .container
    . configure -menu .container
    set tearoff [tkTearOffMenu .container]
    list [catch {.container add cascade -label "File" -menu .m1} msg] $msg [. configure -menu ""] [destroy .m1 .container]
} {0 {} {} {}}
test menu-15.18 {MenuAddOrInsert} {
    catch {destroy .m1}
    catch {destroy .container}
    menu .m1
    menu .container
    .container add cascade -menu .m1
    . configure -menu .container
    list [catch {.container add cascade -label "File" -menu .m1} msg] $msg [. configure -menu ""] [destroy .m1 .container]
} {0 {} {} {}}
test menu-15.19 {MenuAddOrInsert - Insert a cascade deep into the tree} {
    catch {destroy .menubar}
    menu .menubar
    menu .menubar.test -tearoff 0
    .menubar add cascade -label Test -underline 0 -menu .menubar.test
    menu .menubar.test.cascade -tearoff 0
    .menubar.test.cascade add command -label SubItem -command "puts SubItemSelected"
    . configure -menu .menubar
    list [catch {.menubar.test add cascade -label SubMenu \
	-menu .menubar.test.cascade} msg] \
	[info commands .\#menubar.\#menubar\#test.\#menubar\#test\#cascade] \
	[. configure -menu ""] [destroy .menubar]
} {0 .#menubar.#menubar#test.#menubar#test#cascade {} {}}

test menu-16.1 {MenuVarProc} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    set foo "hello"
    list [catch {.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye} msg] $msg [catch {unset foo} msg2] $msg2 [destroy .m1]
} {0 {} 0 {} {}}
# menu-17.2 - Don't know how to generate the flags in the if
test menu-16.2 {MenuVarProc} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    list [catch {.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye} msg] $msg [set foo ""] [destroy .m1]
} {0 {} {} {}}
test menu-16.3 {MenuVarProc} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    set foo "hello"
    list [catch {.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye} msg] $msg [set foo "hello"] [destroy .m1] [catch {unset foo} msg2] $msg2
} {0 {} hello {} 0 {}}
test menu-16.4 {MenuVarProc} {
    catch {destroy .m1}
    menu .m1
    set foo "goodbye"
    list [catch {.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye} msg] $msg [set foo "hello"] [destroy .m1] [catch {unset foo} msg2] $msg2
} {0 {} hello {} 0 {}}
test menu-16.5 {MenuVarProc} {
    catch {destroy .m1}
    menu .m1
    set foo "hello"
    list [catch {.m1 add checkbutton -variable foo -onvalue hello -offvalue goodbye} msg] $msg [set foo "goodbye"] [destroy .m1] [catch {unset foo} msg2] $msg2
} {0 {} goodbye {} 0 {}}

test menu-17.1 {TkActivateMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 activate 1} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-17.2 {TkActivateMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 activate 0} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-17.3 {TkActivateMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "test2"
    .m1 activate 1
    list [catch {.m1 activate 2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-17.4 {TkActivateMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "test2"
    .m1 activate 1
    list [catch {.m1 activate 1} msg] $msg [destroy .m1]
} {0 {} {}}

test menu-18.1 {TkPostCommand} {menuInteractive} {
    catch {destroy .m1}
    menu .m1 -postcommand "set menu_test menu-19.1"
    .m1 add command -label "menu-19.1 - hit Escape"
    list [catch {.m1 post 40 40} msg] $msg [.m1 unpost] [set menu_test] [destroy .m1]
} {0 menu-19.1 {} menu-19.1 {}}
test menu-18.2 {TkPostCommand} {menuInteractive} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "menu-19.2 - hit Escape"
    list [catch {.m1 post 40 40} msg] $msg [.m1 unpost] [destroy .m1]
} {0 {} {} {}}

test menu-19.1 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2} msg1] $msg1 [destroy .m1]
} {0 {} {}}
test menu-19.2 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2 normal} msg1] $msg1 [destroy .m1]
} {0 {} {}}
test menu-19.3 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2 tearoff} msg1] $msg1 [destroy .m1]
} {0 {} {}}
test menu-19.4 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2 menubar} msg1] $msg1 [destroy .m1]
} {0 {} {}}
test menu-19.5 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2 foo} msg1] $msg1 [destroy .m1]
} {1 {bad menu type - must be normal, tearoff, or menubar} {}}
test menu-19.6 {CloneMenu - hooking up bookeeping ptrs} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2} msg] $msg [destroy .m1]
 } {0 {} {}}
 test menu-19.7 {CloneMenu - hooking up bookeeping ptrs - multiple children} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    list [catch {.m1 clone .m3} msg] $msg [destroy .m1]
 } {0 {} {}}
 test menu-19.8 {CloneMenu - cascade entries} {
    catch {destroy .m1}
    catch {destroy .foo}
    menu .m1
    .m1 add cascade -menu .m2
    list [catch {.m1 clone .foo} msg] $msg [destroy .m1]
 } {0 {} {}}
 test menu-19.9 {CloneMenu - cascades entries} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .foo}
    menu .m1
    .m1 add cascade -menu .m2
    menu .m2
    list [catch {.m1 clone .foo} msg] $msg [destroy .m1 .m2]
 } {0 {} {}}
test menu-19.10 {CloneMenu - tearoff fields} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    list [catch {.m1 clone .m2 normal} msg1] $msg1 [catch {.m2 cget -tearoff} msg2] $msg2 [destroy .m1]
} {0 {} 0 1 {}}
test menu-19.11 {CloneMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    list [catch {.m1 clone .m2} msg] $msg [destroy .m1 .m2]
} {1 {window name "m2" already exists in parent} {}}

test menu-20.1 {MenuDoYPosition} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 yposition glorp} msg] $msg [destroy .m1]
} {1 {bad menu entry index "glorp"} {}}
test menu-20.2 {MenuDoYPosition} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "Test"
    list [catch {.m1 yposition 1}] [destroy .m1]