menu.test

linux系统下的音频通信

    .t2 configure -menu .m1
    .t3 configure -menu .m1
    list [catch {destroy .m1} msg] $msg [destroy .t2] [destroy .t3] [. configure -menu ""]
} {0 {} {} {} {}}

test menu-7.1 {UnhookCascadeEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-7.2 {UnhookCascadeEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade -menu .m2
    list [catch {destroy .m1} msg] $msg
} {0 {}}
test menu-7.3 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m2 add cascade -menu .cascade
    .m1 add cascade -menu .cascade
    list [catch {destroy .m1} msg] $msg [destroy .m2]
} {0 {} {}}
test menu-7.4 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .cascade
    .m2 add cascade -menu .cascade
    list [catch {destroy .m1} msg] $msg [destroy .m2]
} {0 {} {}}
test menu-7.5 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    menu .m2
    menu .m3
    .m1 add cascade -menu .cascade
    .m2 add cascade -menu .cascade
    .m3 add cascade -menu .cascade
    list [catch {destroy .m1} msg] $msg [destroy .m2 .m3]
} {0 {} {}}
test menu-7.6 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    menu .m2
    menu .m3
    .m1 add cascade -menu .cascade
    .m2 add cascade -menu .cascade
    .m3 add cascade -menu .cascade
    list [catch {destroy .m2} msg] $msg [destroy .m1 .m3]
} {0 {} {}}
test menu-7.7 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    menu .m2
    menu .m3
    .m1 add cascade -menu .cascade
    .m2 add cascade -menu .cascade
    .m3 add cascade -menu .cascade
    list [catch {destroy .m3} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-7.8 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2
    list [catch {destroy .m1} msg] $msg [destroy .m2]
} {0 {} {}}
test menu-7.9 {UnhookCascadeEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2
    destroy .m1
    list [catch {destroy .m2} msg] $msg
} {0 {}}

test menu-8.1 {DestroyMenuEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    menu .m2
    .m1 add cascade -menu .m2
    list [catch {.m1 delete 1} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-8.2 {DestroyMenuEntry} {
    catch {image delete image1a}
    catch {destroy .m1}
    image create photo image1a -file [file join $tk_library demos images earth.gif]
    menu .m1
    .m1 add command -image image1a
    list [catch {.m1 delete 1} msg] $msg [destroy .m1] [image delete image1a]
} {0 {} {} {}}
test menu-8.3 {DestroyMenuEntry} {
    catch {eval image delete [image names]}
    catch {destroy .m1}
    image create test image1
    image create test image2
    menu .m1
    .m1 add checkbutton -image image1 -selectimage image2
    .m1 invoke 1
    list [catch {.m1 delete 1} msg] $msg [destroy .m1] [eval image delete [image names]]
} {0 {} {} {}}
test menu-8.4 {DestroyMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add checkbutton -variable foo
    list [catch {.m1 delete 1} msg] $msg [destroy .m1]
} {0 {} {}} 
test menu-8.5 {DestroyMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 delete 1} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-8.6 {DestroyMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "one"
    .m1 add command -label "two"
    list [catch {.m1 delete 1} msg] $msg [.m1 entrycget 1 -label] [destroy .m1]
} {0 {} two {}}
test menu-8.7 {DestroyMenuEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 add command -label "one"
    .m1 clone .m2 tearoff
    list [catch {.m2 delete 0} msg] $msg [destroy .m1]
} {0 {} {}}

# test menu-9 - Can only change when fonts change on system, which cannot
# be done from tcl.

test menu-9.1 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 configure -postcommand "beep"} msg] $msg [.m1 cget -postcommand] [destroy .m1]    
} {0 {} beep {}}
test menu-9.2 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 configure -tearoff 0} msg] $msg [.m1 entrycget 1 -label] [destroy .m1]
} {0 {} test {}}
test menu-9.3 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 configure -postcommand "beep"} msg] $msg [.m1 cget -postcommand] [destroy .m1]
} {0 {} beep {}}
test menu-9.4 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 configure -fg red} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-9.5 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "two"
    list [catch {.m1 configure -fg red} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-9.6 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    .m1 add command -label "two"
    .m1 add command -label "three"
    list [catch {.m1 configure -fg red} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-9.7 {ConfigureMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2 tearoff
    list [catch {.m1 configure -fg red} msg] $msg [.m2 cget -fg] [destroy .m1]
} {0 {} red {}}
test menu-9.8 {ConfigureMenu} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2 tearoff
    list [catch {.m2 configure -fg red} msg] $msg [.m1 cget -fg] [destroy .m1]
} {0 {} red {}}
test menu-9.9 {ConfigureMenu} {
    catch {destroy .m1}
    menu .m1
    list [catch {. configure -menu .m1} msg] $msg [. configure -menu ""] [destroy .m1]
} {0 {} {} {}}

test menu-10.1 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {unset foo}
    menu .m1
    .m1 add checkbutton -variable foo -onvalue on -offvalue off -label "Nonsense"
    list [catch {.m1 entryconfigure 1 -variable bar} msg] $msg [.m1 entrycget 1 -variable] [destroy .m1]
} {0 {} bar {}}
test menu-10.2 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command -label "test"
    list [catch {.m1 entryconfigure 1 -label ""} msg] $msg [.m1 entrycget 1 -label] [destroy .m1]
} {0 {} {} {}}
test menu-10.3 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command
    list [catch {.m1 entryconfigure 1 -label "test"} cmd] $cmd [.m1 entrycget 1 -label] [destroy .m1]
} {0 {} test {}}
test menu-10.4 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1 
    .m1 add command
    list [catch {.m1 entryconfigure 1 -accel "S"} msg] $msg [.m1 entrycget 1 -accel] [destroy .m1]
} {0 {} S {}}
test menu-10.5 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command
    list [catch {.m1 entryconfigure 1 -label "test"} msg] $msg [.m1 entrycget 1 -label] [destroy .m1]
} {0 {} test {}}
test menu-10.6 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add command
    list [catch {.m1 entryconfigure 1 -label "test"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.7 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m2
    menu .m1
    .m1 add cascade
    list [catch {.m1 entryconfigure 1 -label "test" -menu .m2} msg] $msg [destroy .m1 .m2]
} {0 {} {}}
test menu-10.8 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade
    list [catch {.m1 entryconfigure 1 -label "test" -menu .m2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.9 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade -menu .m3
    list [catch {.m1 entryconfigure 1 -label "test" -menu .m2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.10 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade
    list [catch {.m1 entryconfigure 1 -label "test" -menu .m2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.11 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add cascade -menu .m2
    list [catch {.m1 entryconfigure 1 -label "test" -menu .m2} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.12 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    catch {destroy .m5}
    menu .m1
    menu .m2 
    .m2 add cascade -menu .m1
    menu .m3 
    .m3 add cascade -menu .m1
    menu .m4 
    .m4 add cascade -menu .m1
    menu .m5 
    .m5 add cascade
    list [catch {.m5 entryconfigure 1 -label "test" -menu .m1} msg] $msg [destroy .m1 .m2 .m3 .m4 .m5]
} {0 {} {}}
test menu-10.13 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    menu .m2 
    .m2 add cascade -menu .m1
    menu .m3 
    .m3 add cascade -menu .m1
    menu .m4 
    .m4 add cascade -menu .m1
    list [catch {.m3 entryconfigure 1 -label "test" -menu .m1} msg] $msg [destroy .m1 .m2 .m3 .m4]
} {0 {} {}}
test menu-10.14 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add checkbutton
    list [catch {.m1 entryconfigure 1 -variable "test"} msg] $msg [.m1 entrycget 1 -variable] [destroy .m1]
} {0 {} test {}}
test menu-10.15 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add checkbutton -label "test"} msg] $msg [.m1 entrycget 1 -variable] [destroy .m1]
} {0 {} test {}}
test menu-10.16 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    list [catch {.m1 add radiobutton -label "test"} msg] $msg [destroy .m1]
} {0 {} {}}
test menu-10.17 {ConfigureMenuEntry} {
    catch {destroy .m1}
    menu .m1
    .m1 add checkbutton
    list [catch {.m1 entryconfigure 1 -onvalue "test"} msg] $msg [.m1 entrycget 1 -onvalue] [destroy .m1]
} {0 {} test {}}
test menu-10.18 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {image delete image1}
    menu .m1
    .m1 add command
    image create test image1
    list [catch {.m1 entryconfigure 1 -image image1} msg] $msg [destroy .m1] [image delete image1]
} {0 {} {} {}}
test menu-10.19 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {image delete image1}
    catch {image delete image2}
    image create test image1
    image create photo image2 -file [file join $tk_library demos images earth.gif]
    menu .m1
    .m1 add command -image image1
    list [catch {.m1 entryconfigure 1 -image image2} msg] $msg [destroy .m1] [image delete image1] [image delete image2]
} {0 {} {} {} {}}
test menu-10.20 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {image delete image1}
    catch {image delete image2}
    image create photo image1 -file [file join $tk_library demos images earth.gif]
    image create test image2
    menu .m1
    .m1 add checkbutton -image image1
    list [catch {.m1 entryconfigure 1 -selectimage image2} msg] $msg [destroy .m1] [image delete image1] [image delete image2]
} {0 {} {} {} {}}
test menu-10.21 {ConfigureMenuEntry} {
    catch {destroy .m1}
    catch {image delete image1}
    catch {image delete image2}
    catch {image delete image3}
    image create photo image1 -file [file join $tk_library demos images earth.gif]
    image create test image2
    image create test image3
    menu .m1
    .m1 add checkbutton -image image1 -selectimage image2
    list [catch {.m1 entryconfigure 1 -selectimage image3} msg] $msg [destroy .m1] [image delete image1] [image delete image2] [image delete image3]
} {0 {} {} {} {} {}}

test menu-11.1 {ConfigureMenuCloneEntries} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    menu .m1
    .m1 clone .m2
    .m2 configure -tearoff 0
    .m1 clone .m3
    .m1 add command -label "test"
    .m1 add command -label "test2"
    list [list [catch {.m1 entryconfigure 1 -gork "foo"} msg] $msg] [destroy .m1]
} {{1 {unknown option "-gork"}} {}}
test menu-11.2 {ConfigureMenuCloneEntries} {
    catch {destroy .m1}
    catch {destroy .m2}
    catch {destroy .m3}
    catch {destroy .m4}
    menu .m1
    .m1 clone .m2
    menu .m3
    .m1 add cascade -menu .m3
    menu .m4
    list [catch {.m1 entryconfigure 1 -menu .m4} msg] $msg [destroy .m1] [destroy .m3] [destroy .m4]
} {0 {} {} {} {}}
test menu-11.3 {ConfigureMenuCloneEntries} {
    catch {destroy .m1}
    catch {destroy .m2}
    menu .m1
    .m1 clone .m2
    .m1 add cascade -label dummy
    list [catch {.m1 entryconfigure dummy -menu .m3} msg] $msg [destroy .m1]
} {0 {} {}}

test menu-12.1 {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 active -label} msg] $msg [destroy .m1]
} {0 test2 {}}
test menu-12.2 {TkGetMenuIndex} {
    catch {destroy .m1}