menu.test

linux系统下的音频通信

    menu .m1
    list [catch {.m1 postcascade foo} msg] $msg [destroy .m1]
} {1 {bad menu entry index "foo"} {}}
test menu-3.53 {MenuWidgetCmd procedure, "postcascade" option} {menuInteractive} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 add command -label "menu-3.56 - hit Escape"
    menu .m2
    .m1 post 40 40
    .m1 add cascade -menu .m2
    list [catch {.m1 postcascade 1} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-3.54 {MenuWidgetCmd procedure, "postcascade" option} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2 -label "menu-3.57 - hit Escape"
    .m1 postcascade 1
    list [catch {.m1 postcascade none} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-3.55 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 type} msg] $msg [destroy .m1]
} {1 {wrong # args: should be ".m1 type index"} {}}
test menu-3.56 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 type foo} msg] $msg [destroy .m1]
} {1 {bad menu entry index "foo"} {}}
test menu-3.57 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 type 1} msg] $msg [destroy .m1]
} {0 command {}}
test menu-3.58 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    .m1 add separator
    list [catch {.m1 type 1} msg] $msg [destroy .m1]
} {0 separator {}}
test menu-3.59 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    .m1 add checkbutton -label "test"
    list [catch {.m1 type 1} msg] $msg [destroy .m1]
} {0 checkbutton {}}
test menu-3.60 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    .m1 add radiobutton -label "test"
    list [catch {.m1 type 1} msg] $msg [destroy .m1]
} {0 radiobutton {}}
test menu-3.61 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade -label "test"
    list [catch {.m1 type 1} msg] $msg [destroy .m1]
} {0 cascade {}}
test menu-3.62 {MenuWidgetCmd procedure, "type" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 type 0} msg] $msg [destroy .m1]
} {0 tearoff {}}
test menu-3.63 {MenuWidgetCmd procedure, "unpost" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 unpost foo} msg] $msg [destroy .m1]
} {1 {wrong # args: should be ".m1 unpost"} {}}
test menu-3.64 {MenuWidgetCmd procedure, "unpost" option} {menuInteractive} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "menu-3.68 - hit Escape"
    .m1 post 40 40 
    list [catch {.m1 unpost} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-3.65 {MenuWidgetCmd procedure, "yposition" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 yposition} msg] $msg [destroy .m1]
} {1 {wrong # args: should be ".m1 yposition index"} {}}
test menu-3.66 {MenuWidgetCmd procedure, "yposition" option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 yposition 1}] [destroy .m1]
} {0 {}}
test menu-3.67 {MenuWidgetCmd procedure, bad option} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 foo} msg] $msg [destroy .m1]
} {1 {bad option "foo": must be activate, add, cget, clone, configure, delete, entrycget, entryconfigure, index, insert, invoke, post, postcascade, type, unpost, or yposition} {}}

test menu-4.1 {TkInvokeMenu} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 invoke 0} msg] [destroy .m1]
} {0 {}}
test menu-4.2 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add checkbutton -label "test" -variable foo -onvalue on -offvalue off
    list [catch {.m1 invoke 1} msg] $msg [catch {set foo} msg2] $msg2 [catch {unset foo} msg3] $msg3 [destroy .m1]
} {0 {} 0 on 0 {} {}}
test menu-4.3 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add checkbutton -label "test" -variable foo -onvalue on -offvalue off
    .m1 invoke 1
    list [catch {.m1 invoke 1} msg] $msg [catch {set foo} msg2] $msg2 [catch {unset foo} msg3] $msg3 [destroy .m1]
} {0 {} 0 off 0 {} {}}
test menu-4.4 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add radiobutton -label "1" -variable foo -value one
    .m1 add radiobutton -label "2" -variable foo -value two
    .m1 add radiobutton -label "3" -variable foo -value three
    list [catch {.m1 invoke 1} msg] $msg [catch {set foo} msg2] $msg2 [catch {unset foo} msg3] $msg3 [destroy .m1]
} {0 {} 0 one 0 {} {}}
test menu-4.5 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add radiobutton -label "1" -variable foo -value one
    .m1 add radiobutton -label "2" -variable foo -value two
    .m1 add radiobutton -label "3" -variable foo -value three
    list [catch {.m1 invoke 2} msg] $msg [catch {set foo} msg2] $msg2 [catch {unset foo} msg3] $msg3 [destroy .m1]
} {0 {} 0 two 0 {} {}}
test menu-4.6 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add radiobutton -label "1" -variable foo -value one
    .m1 add radiobutton -label "2" -variable foo -value two
    .m1 add radiobutton -label "3" -variable foo -value three
    list [catch {.m1 invoke 3} msg] $msg [catch {set foo} msg2] $msg2 [catch {unset foo} msg3] $msg3 [destroy .m1]
} {0 {} 0 three 0 {} {}}
test menu-4.7 {TkInvokeMenu} {
    catch {destroy .m1}
    catch {unset menu_test}
    menu .m1
    .m1 add command -label "test" -command "set menu_test menu-4.8"
    list [catch {.m1 invoke 1} msg] $msg [catch {set menu_test} msg2] $msg2 [catch {unset menu_test} msg3] $msg3 [destroy .m1]
} {0 menu-4.8 0 menu-4.8 0 {} {}}
test menu-4.8 {TkInvokeMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade -label "test" -menu .m1.m2
    list [catch {.m1 invoke 1} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-4.9 {TkInvokeMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test" -command ".m1 delete 1"
    list [catch {.m1 invoke 1} msg] $msg [catch {.m1 type "test"} msg2] $msg2 [destroy .m1]
} {0 {} 1 {bad menu entry index "test"} {}}

test menu-5.1 {DestroyMenuInstance} {
    catch {destroy .m1}
    menu .m1
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-5.2 {DestroyMenuInstance - cascade menu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 add cascade -menu .m2
    menu .m2
    list [catch {destroy .m2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-5.3 {DestroyMenuInstance - multiple cascade parents} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 add cascade -menu .m3
    menu .m2
    .m2 add cascade -menu .m3
    menu .m3
    list [catch {destroy .m3} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-5.4 {DestroyMenuInstance - multiple cascade parents} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    .m1 add cascade -menu .m4
    menu .m2
    .m2 add cascade -menu .m4
    menu .m3
    .m3 add cascade -menu .m4
    menu .m4
    list [catch {destroy .m4} msg] $msg [destroy .m1 .m2 .m3]
} {0 {} {}}
test menu-5.5 {DestroyMenuInstance - cascades of cloned menus} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2
    . configure -menu .m1
    list [catch {destroy .m2} msg] $msg [.m1 entrycget 1 -menu] [. configure -menu ""] [destroy .m1]
} {0 {} .m2 {} {}}
test menu-5.6 {DestroyMenuInstance - cascades of cloned menus} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .t2}
    menu .m1
    .m1 add cascade -menu .m2
    menu .m2
    . configure -menu .m1
    toplevel .t2
    wm geometry .t2 +0+0
    .t2 configure -menu .m1
    list [catch {destroy .m2} msg] $msg [. configure -menu ""] [destroy .t2 .m1]
} {0 {} {} {}}
test menu-5.7 {DestroyMenuInstance - basic clones} {
    catch {destroy .m1}
    menu .m1
    set tearoff [tkTearOffMenu .m1]
    list [catch {destroy $tearoff} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-5.8 {DestroyMenuInstance - multiple clones} {
    catch {destroy .m1}
    menu .m1
    set tearoff1 [tkTearOffMenu .m1]
    set tearoff2 [tkTearOffMenu .m1]
    list [catch {destroy $tearoff1} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-5.9 {DestroyMenuInstace - master menu} {
    catch {destroy .m1}
    menu .m1
    tkTearOffMenu .m1
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-5.10 {DestroyMenuInstance - freeing entries} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "foo"
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-5.11 {DestroyMenuInstace - no entries} {
    catch {destroy .m1}
    menu .m1
    .m1 configure -tearoff 0
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-5.12 {DestroyMenuInstance - platform data} {
    catch {destroy .m1}
    menu .m1
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-5.13 {DestroyMenuInstance - clones when mismatched tearoffs} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2
    set tearoff [tkTearOffMenu .m1 40 40]
    list [destroy .m2] [destroy .m1]
} {{} {}}

test menu-6.1 {TkDestroyMenu} {
    catch {destroy .m1}
    menu .m1
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-6.2 {TkDestroyMenu - reentrancy} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    bind .m1 <Destroy> {destroy .m1}
    menu .m2
    bind .m2 <Destroy> {destroy .m2}
    list [catch {destroy .m1} msg] $msg [destroy .m2]
} {0 {} {}}
test menu-6.3 {TkDestroyMenu - reentrancy} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    bind .m1 <Destroy> {destroy .m2}
    .m1 clone .m2
    .m1 clone .m3
    list [catch {destroy .m1} msg] $msg [winfo exists .m2]
} {0 {} 0}
test menu-6.4 {TkDestroyMenu - reentrancy - clones} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2
    .m1 clone .m1.m3
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-6.5 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2
    destroy .m1
    winfo exists .m2
} {0}
test menu-6.6 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2 tearoff
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-6.7 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2
    destroy .m2
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-6.8 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    destroy .m1
    list [winfo exists .m2] [winfo exists .m3]
} {0 0}
test menu-6.9 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    list [catch {destroy .m2} msg] $msg [catch {destroy .m3} msg2] $msg2 [catch {destroy .m1} msg3] $msg3
} {0 {} 0 {} 0 {}}
test menu-6.10 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    list [catch {destroy .m3} msg] $msg [catch {destroy .m1} msg2] $msg2
} {0 {} 0 {}}
test menu-6.11 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    .m1 clone .m4
    list [catch {destroy .m2} msg1] $msg1 [catch {destroy .m1} msg2] $msg2
} {0 {} 0 {}}
test menu-6.12 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    .m1 clone .m4
    list [catch {destroy .m3} msg1] $msg1 [catch {destroy .m1} msg2] $msg2
} {0 {} 0 {}}
test menu-6.13 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    .m1 clone .m2
    .m1 clone .m3
    .m1 clone .m4
    list [catch {destroy .m4} msg1] $msg1 [catch {destroy .m1} msg2] $msg2
} {0 {} 0 {}}
test menu-6.14 {TkDestroyMenu} {
    catch {destroy .m1}
    menu .m1
    . configure -menu .m1
    list [catch {destroy .m1} msg] $msg [. configure -menu ""]
} {0 {} {}}
test menu-6.15 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .t2}
    menu .m1
    toplevel .t2
    wm geometry .t2 +0+0
    . configure -menu .m1
    .t2 configure -menu .m1
    list [catch {destroy .m1} msg] $msg [destroy .t2] [. configure -menu ""]
} {0 {} {} {}}
test menu-6.16 {TkDestroyMenu} {
    catch {destroy .m1}
    catch {destroy .t2}
    catch {destroy .t3}
    menu .m1
    toplevel .t2
    wm geometry .t2 +0+0
    toplevel .t3
    wm geometry .t3 +0+0
    . configure -menu .m1