diff options
| author | jenglish <jenglish@noemail.net> | 2007-11-17 19:19:14 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2007-11-17 19:19:14 (GMT) |
| commit | fbf03b8faccb26cfa6ff97800a1aa3054352a405 (patch) | |
| tree | af96d1eadf6445c75afe8f487cdcb0a5eec3ffcd /library | |
| parent | 9e6d445ec74e277a93b4950a7545835310645fb9 (diff) | |
| download | tk-fbf03b8faccb26cfa6ff97800a1aa3054352a405.zip tk-fbf03b8faccb26cfa6ff97800a1aa3054352a405.tar.gz tk-fbf03b8faccb26cfa6ff97800a1aa3054352a405.tar.bz2 | |
Add mandatory 8.5-isms.
FossilOrigin-Name: 77f28ae8cae254aa56c516802dc4e23aa8d9acb2
Diffstat (limited to 'library')
| -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] } } |