diff options
author | patthoyts <patthoyts@users.sourceforge.net> | 2008-04-09 09:27:22 (GMT) |
---|---|---|
committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-04-09 09:27:22 (GMT) |
commit | 2d81bb0e842d88af1cb7b5bb2234bcf0acce836e (patch) | |
tree | 5bed9341f7107fab78f15f2a748ae4ea2e4d925d /tests | |
parent | f901ea03dc9acd499f20f98ab06198c27c0f410f (diff) | |
download | tk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.zip tk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.tar.gz tk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.tar.bz2 |
Forgot to add this yesterday
Diffstat (limited to 'tests')
-rw-r--r-- | tests/ttk/vsapi.test | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/tests/ttk/vsapi.test b/tests/ttk/vsapi.test new file mode 100644 index 0000000..5ce2b13 --- /dev/null +++ b/tests/ttk/vsapi.test @@ -0,0 +1,48 @@ +# -*- tcl -*- +# $Id: vsapi.test,v 1.1 2008/04/09 09:27:22 patthoyts Exp $ +# + +package require Tk 8.5 +package require tcltest ; namespace import -force tcltest::* +loadTestedCommands + +testConstraint xpnative \ + [expr {[lsearch -exact [ttk::style theme names] xpnative] != -1}] + +test vsapi-1.1 "WINDOW WP_SMALLCLOSEBUTTON" -constraints {xpnative} -body { + ttk::style element create smallclose vsapi \ + WINDOW 19 {disabled 4 pressed 3 active 2 {} 1} + ttk::style layout CloseButton {CloseButton.smallclose -sticky news} + ttk::button .b -style CloseButton + pack .b -expand true -fill both + list [winfo reqwidth .b] [winfo reqheight .b] +} -cleanup { destroy .b } -result [list 13 13] + +test vsapi-1.2 "EXPLORERBAR EBP_HEADERPIN" -constraints {xpnative} -body { + ttk::style element create pin vsapi \ + EXPLORERBAR 3 { + {pressed !selected} 3 + {active !selected} 2 + {pressed selected} 6 + {active selected} 5 + {selected} 4 + {} 1 + } + ttk::style layout Explorer.Pin {Explorer.Pin.pin -sticky news} + ttk::checkbutton .pin -style Explorer.Pin + pack .pin -expand true -fill both + list [winfo reqwidth .pin] [winfo reqheight .pin] +} -cleanup { destroy .pin } -result [list 16 16] + +test vsapi-1.3 "EXPLORERBAR EBP_HEADERCLOSE" -constraints {xpnative} -body { + ttk::style element create headerclose vsapi \ + EXPLORERBAR 2 {pressed 3 active 2 {} 1} + ttk::style layout Explorer.CloseButton { + Explorer.CloseButton.headerclose -sticky news + } + ttk::button .b -style Explorer.CloseButton + pack .b -expand true -fill both + list [winfo reqwidth .b] [winfo reqheight .b] +} -cleanup { destroy .b } -result [list 16 16] + +tcltest::cleanupTests |