1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
|
menu .m1
} -body {
.m1 xposition 1
subst {} ;# just checking that the xposition does not produce an error...
} -cleanup {
destroy .m1
} -result {}
test menu-4.1 {TkInvokeMenu: disabled} -setup {
destroy .m1
} -body {
catch {unset foo}
menu .m1
|
>
>
>
>
>
>
>
>
|
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
|
menu .m1
} -body {
.m1 xposition 1
subst {} ;# just checking that the xposition does not produce an error...
} -cleanup {
destroy .m1
} -result {}
test menu-3.71 {MenuWidgetCmd procedure, "index end" option, bug [f3cd942e9e]} -setup {
destroy .m1
} -body {
menu .m1
list [.m1 index "end"]
} -cleanup {
destroy .m1
} -result none
test menu-4.1 {TkInvokeMenu: disabled} -setup {
destroy .m1
} -body {
catch {unset foo}
menu .m1
|
