summaryrefslogtreecommitdiffstats
path: root/library
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 /library
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 'library')
-rw-r--r--library/ttk/scrollbar.tcl20
1 files changed, 19 insertions, 1 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl
index 6b37b24..b901325 100644
--- a/library/ttk/scrollbar.tcl
+++ b/library/ttk/scrollbar.tcl
@@ -1,9 +1,27 @@
#
-# $Id: scrollbar.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: scrollbar.tcl,v 1.2 2007/11/17 19:17:50 jenglish Exp $
#
# Bindings for TScrollbar widget
#
+# Still don't have a working ttk::scrollbar under OSX -
+# Swap in a [tk::scrollbar] on that platform,
+# unless user specifies -class or -style.
+#
+if {[tk windowingsystem] eq "aqua"} {
+ rename ::ttk::scrollbar ::ttk::_scrollbar
+ proc ttk::scrollbar {w args} {
+ set constructor ::scrollbar
+ foreach {option _} $args {
+ if {$option eq "-class" || $option eq "-style"} {
+ set constructor ::ttk::_scrollbar
+ break
+ }
+ }
+ return [eval [linsert $args 0 $constructor $w]]
+ }
+}
+
namespace eval ttk::scrollbar {
variable State
# State(xPress) --