summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2007-11-17 19:17:49 (GMT)
committerjenglish <jenglish@flightlab.com>2007-11-17 19:17:49 (GMT)
commit529054fe046640eb870bea1db3e8cbc3f8076bd7 (patch)
tree87b07f039422079c5e6f18233f42cfb3bcd6d586 /tests
parent0be38ecf422e3fd3ba562aea5779eef8360ee84e (diff)
downloadtk-529054fe046640eb870bea1db3e8cbc3f8076bd7.zip
tk-529054fe046640eb870bea1db3e8cbc3f8076bd7.tar.gz
tk-529054fe046640eb870bea1db3e8cbc3f8076bd7.tar.bz2
Swap in core scrollbars for [ttk::scrollbar]s on OSX.
Diffstat (limited to 'tests')
-rw-r--r--tests/ttk/scrollbar.test33
1 files changed, 32 insertions, 1 deletions
diff --git a/tests/ttk/scrollbar.test b/tests/ttk/scrollbar.test
index f91659a..c83fc9b 100644
--- a/tests/ttk/scrollbar.test
+++ b/tests/ttk/scrollbar.test
@@ -1,11 +1,42 @@
#
-# $Id: scrollbar.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: scrollbar.test,v 1.2 2007/11/17 19:17:50 jenglish Exp $
#
package require Tk 8.5
package require tcltest ; namespace import -force tcltest::*
loadTestedCommands
+testConstraint coreScrollbar [expr {[tk windowingsystem] eq "aqua"}]
+
+test scrollbar-swapout-1 "Use core scrollbars on OSX..." -constraints {
+ coreScrollbar
+} -body {
+ ttk::scrollbar .sb -command "yadda"
+ list [winfo class .sb] [.sb cget -command]
+} -result [list Scrollbar yadda] -cleanup {
+ destroy .sb
+}
+
+test scrollbar-swapout-2 "... unless -style is specified ..." -constraints {
+ coreScrollbar
+} -body {
+ ttk::style layout Vertical.Custom.TScrollbar \
+ [ttk::style layout Vertical.TScrollbar] ; # See #1833339
+ ttk::scrollbar .sb -command "yadda" -style Custom.TScrollbar
+ list [winfo class .sb] [.sb cget -command] [.sb cget -style]
+} -result [list TScrollbar yadda Custom.TScrollbar] -cleanup {
+ destroy .sb
+}
+
+test scrollbar-swapout-3 "... or -class." -constraints {
+ coreScrollbar
+} -body {
+ ttk::scrollbar .sb -command "yadda" -class Custom.TScrollbar
+ list [winfo class .sb] [.sb cget -command]
+} -result [list Custom.TScrollbar yadda] -cleanup {
+ destroy .sb
+}
+
test scrollbar-1.0 "Setup" -body {
ttk::scrollbar .tsb
} -result .tsb