diff options
| author | jenglish <jenglish@flightlab.com> | 2007-11-17 19:19:15 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-11-17 19:19:15 (GMT) |
| commit | 47bb49fb410bdc4333931805c2c3df2192d604c3 (patch) | |
| tree | af96d1eadf6445c75afe8f487cdcb0a5eec3ffcd /library/ttk | |
| parent | 529054fe046640eb870bea1db3e8cbc3f8076bd7 (diff) | |
| download | tk-47bb49fb410bdc4333931805c2c3df2192d604c3.zip tk-47bb49fb410bdc4333931805c2c3df2192d604c3.tar.gz tk-47bb49fb410bdc4333931805c2c3df2192d604c3.tar.bz2 | |
Add mandatory 8.5-isms.
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/scrollbar.tcl | 6 |
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] } } |