summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-04-09 09:27:22 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-04-09 09:27:22 (GMT)
commit2d81bb0e842d88af1cb7b5bb2234bcf0acce836e (patch)
tree5bed9341f7107fab78f15f2a748ae4ea2e4d925d /tests/ttk
parentf901ea03dc9acd499f20f98ab06198c27c0f410f (diff)
downloadtk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.zip
tk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.tar.gz
tk-2d81bb0e842d88af1cb7b5bb2234bcf0acce836e.tar.bz2
Forgot to add this yesterday
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/vsapi.test48
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