tests/ttk/ttk.test

29 test ttk-6.1 "Self-destructing checkbutton" -body {
30     pack [ttk::checkbutton .sd -text "Self-destruction" -variable ::sd]
35 test ttk-6.2 "Checkbutton self-destructed" -body {
39 # test ttk-6.3 not applicable [see #2175411]
41 test ttk-6.4 "Destroy widget in configure" -setup {
48     pack [ttk::checkbutton .b]
53 test ttk-6.5 "Clean up -textvariable traces" -body {
54     foreach class {ttk::button ttk::checkbutton ttk::radiobutton} {
62 test ttk-6.6 "Bad color spec in styles" -body {
63     pack [ttk::button .b1 -text Hi!]
64     ttk::style configure TButton -foreground badColor
67     ttk::style configure TButton -foreground black
72 test ttk-6.7 "Basic destruction test" -body {
74 	ttk::$widget .w
80 test ttk-6.8 "Button command removes itself" -body {
81     ttk::button .b -command ".b configure -command {}; set ::A {it worked}"
87 test ttk-6.9 "Bad font spec in styles" -setup {
88     ttk::style theme create badfont -settings {
89     	ttk::style configure . -font {Helvetica 12 Bogus}
91     ttk::style theme use badfont
93     ttk::style theme use default
95     pack [ttk::label .l -text Hi! -font {}]
102 test ttk-construction-failure-1 "Excercise construction failure path" -setup {
107     catch {ttk::label .l} errmsg
111 test ttk-construction-failure-2 "Destroy widget in constructor" -setup {
119 	[catch { ttk::checkbutton .b -variable OUCH } msg] \
126 test ttk-selfdestruct-ok-1 "Intentional self-destruction" -body {
129     ttk::button .t.b -command [list destroy .t]
137 test ttk-1.1 "Create button" -body {
138     pack [ttk::button .t] -expand true -fill both
142 test ttk-1.2 "Check style" -body {
146 test ttk-1.3 "Set bad style" -body {
150 test ttk-1.4 "Original style preserved" -body {
169 test ttk-2.0 "Check state" -body {
173 test ttk-2.1 "Change state" -body {
177 test ttk-2.2 "Check state again" -body {
181 test ttk-2.3 "Change state again" -body {
185 test ttk-2.4 "Check state again" -body {
189 test ttk-2.5 "Change state again" -body {
193 test ttk-2.6 "instate scripts, false" -body {
199 test ttk-2.7 "instate scripts, true" -body {
205 test ttk-2.8 "bug 3223850: button state disabled during click" -setup {
208     pack [ttk::button .b -command {set ::ttk28 failed}]
223     test ttk-coreoptions-$wc "$wc has all core options" -body {
224 	ttk::$wc .w
238 test ttk-3.0 "Bad option" -body {
239     ttk::button .bad -badoption foo
242 test ttk-3.1 "Make sure widget command not created" -body {
246 test ttk-3.2 "Propagate errors from variable traces" -body {
249     ttk::checkbutton .cb -variable A
255 test ttk-3.3 "Constructor failure with cursor" -body {
256     ttk::button .b -cursor bottom_right_corner -style BadStyle
259 test ttk-3.4 "SF#2009213" -body {
260     ttk::style configure TScale -sliderrelief {}
261     pack [ttk::scale .s]
264     ttk::style configure TScale -sliderrelief raised
273 test ttk-4.0 "Setup" -body {
275     pack [ttk::label .t -text "Button 1"]
280 test ttk-4.1 "Change font" -constraints fontOption -body {
283 test ttk-4.2 "Check font" -constraints fontOption -body {
287 test ttk-4.3 "Restore font" -constraints fontOption -body {
291 test ttk-4.4 "Bad resource specifications" -body {
292     ttk::style theme settings alt {
293 	ttk::style configure TButton -font {Bad font}
297     pack [ttk::button .tb1 -text "Ouch"]
298     ttk::style theme use alt
301     ttk::style theme settings alt {
302     	ttk::style configure TButton -font TkDefaultFont
304     ttk::style theme use default
335 test ttk-8.0 "Setup for 8.X" -body {
336     ttk::button .ctb
343 test ttk-8.1 "Test -compound options" -body {
357 test ttk-8.2 "Test -compound options with regular button" -body {
372 test ttk-8.3 "Rerun test 8.1" -body {
384 test ttk-8.4 "ImageChanged" -body {
385     ttk::button .b -image icon
391 test ttk-9.1 "Traces on nonexistant namespaces" -body {
392     ttk::checkbutton .tcb -variable foo::bar
395 test ttk-9.2 "Traces on nonexistant namespaces II" -body {
396     ttk::checkbutton .tcb -variable X
400 test ttk-9.3 "Restore saved options on configure error" -body {
404 test ttk-9.4 "Textvariable tests" -body {
412 test ttk-9.5 "Change -text" -body {
421 test ttk-9.6 "Unset -textvariable" -body {
426 test ttk-9.7 "Unset textvariable, comparison" -body {
428 # NB: ttk::label behaves differently from the standard label here;
432     label .l -text Foo ; ttk::label .tl -text Foo
438 test ttk-9.8 "-textvariable overrides -text" -body {
439     ttk::label .tl -textvariable TV
449 test ttk-10.1 "ttk::frame -class resource" -body {
450     ttk::frame .f -class Foo
453 test ttk-10.2 "Check widget class" -body {
457 test ttk-10.3 "Check class resource" -body {
461 test ttk-10.4 "Try to modify class resource" -body {
465 test ttk-10.5 "Check class resource again" -body {
469 test ttk-11.1 "-state test, setup" -body {
470     ttk::button .b
474 test ttk-11.2 "-state test, disable" -body {
479 test ttk-11.3 "-state test, reenable" -body {
484 test ttk-11.4 "-state test, unrecognized -state value" -body {
489 test ttk-11.5 "-state test, 'active'" -body {
494 test ttk-11.6 "-state test, 'readonly'" -body {
499 test ttk-11.7 "-state test, cleanup" -body {
503 test ttk-12.1 "-cursor option" -body {
504     ttk::button .b
508 test ttk-12.2 "-cursor option" -body {
513 test ttk-12.3 "-borderwidth frame option" -body {
517     pack [set t [ttk::frame .t.f]] -expand true -fill x ;
518     pack [ttk::label $t.l -text "ASDF QWERTY"] -expand true -fill both
519     foreach theme {default alt} {
520 	ttk::style theme use $theme
531 test ttk-12.4 "-borderwidth frame option" -body {
534     ttk::style theme use alt
538 test ttk-13.1 "Custom styles -- bad -style option" -body {
539     ttk::button .tb1 -style badstyle
542 test ttk-13.4 "Custom styles -- bad -style option" -body {
543     ttk::button .tb1
549 test ttk-13.5 "Custom layouts -- missing element definition" -body {
550     ttk::style layout badstyle {
553     ttk::button .tb1 -style badstyle
563 test ttk-14.1 "-variable in nonexistant namespace" -body {
564     ttk::checkbutton .tw -variable ::nsn::foo
568 test ttk-14.2 "-textvariable in nonexistant namespace" -body {
569     ttk::label .tw -textvariable ::nsn::foo
573 test ttk-14.3 "-textvariable in nonexistant namespace" -body {
574     ttk::entry .tw -textvariable ::nsn::foo
578 test ttk-15.1 {Bug 3062331} -setup {
582     ttk::button .b -textvariable Y
589 test ttk-15.2 {Bug 3341056} -setup {
592 	ttk::labelframe .lf
593 	ttk::checkbutton .lf.cb -text xxx
596     ttk::button .b -text xxx -command foo
619 test ttk-ensemble-0 "style element create: insufficient args" -body {
620      ttk::style
622     [wrong#varargs arg ttk::style option]
624 test ttk-ensemble-1 "style element create: insufficient args" -body {
625      ttk::style element
627     [wrong#varargs arg ttk::style element option]
629 test ttk-ensemble-2 "style element create: insufficient args" -body {
630      ttk::style element create
632     [wrong#varargs {-option value} ttk::style element create name type]
634 test ttk-ensemble-3 "style element create: insufficient args" -body {
635      ttk::style element create plain.background
637     [wrong#varargs {-option value} ttk::style element create name type]
639 test ttk-ensemble-4 "style element create: insufficient args" -body {
640      ttk::style element create plain.background from
641 } -returnCodes 1 -result [wrong#args theme ?element?]
643 test ttk-ensemble-5 "style element create: valid" -body {
644      ttk::style element create plain.background from default