summaryrefslogtreecommitdiffstats
path: root/library/ttk/scrollbar.tcl
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2007-11-17 19:19:15 (GMT)
committerjenglish <jenglish@flightlab.com>2007-11-17 19:19:15 (GMT)
commit47bb49fb410bdc4333931805c2c3df2192d604c3 (patch)
treeaf96d1eadf6445c75afe8f487cdcb0a5eec3ffcd /library/ttk/scrollbar.tcl
parent529054fe046640eb870bea1db3e8cbc3f8076bd7 (diff)
downloadtk-47bb49fb410bdc4333931805c2c3df2192d604c3.zip
tk-47bb49fb410bdc4333931805c2c3df2192d604c3.tar.gz
tk-47bb49fb410bdc4333931805c2c3df2192d604c3.tar.bz2
Add mandatory 8.5-isms.
Diffstat (limited to 'library/ttk/scrollbar.tcl')
-rw-r--r--library/ttk/scrollbar.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl
index b901325..db07eb9 100644
--- a/library/ttk/scrollbar.tcl
+++ b/library/ttk/scrollbar.tcl
@@ -1,5 +1,5 @@
#
-# $Id: scrollbar.tcl,v 1.2 2007/11/17 19:17:50 jenglish Exp $
+# $Id: scrollbar.tcl,v 1.3 2007/11/17 19:19:15 jenglish Exp $
#
# Bindings for TScrollbar widget
#
@@ -11,14 +11,14 @@
if {[tk windowingsystem] eq "aqua"} {
rename ::ttk::scrollbar ::ttk::_scrollbar
proc ttk::scrollbar {w args} {
- set constructor ::scrollbar
+ set constructor ::tk::scrollbar
foreach {option _} $args {
if {$option eq "-class" || $option eq "-style"} {
set constructor ::ttk::_scrollbar
break
}
}
- return [eval [linsert $args 0 $constructor $w]]
+ return [$constructor $w {*}$args]
}
}