diff options
Diffstat (limited to 'library/ttk/scrollbar.tcl')
| -rw-r--r-- | library/ttk/scrollbar.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl index 4bd5107..15cd805 100644 --- a/library/ttk/scrollbar.tcl +++ b/library/ttk/scrollbar.tcl @@ -11,7 +11,7 @@ if {[tk windowingsystem] eq "aqua"} { proc ttk::scrollbar {w args} { set constructor ::tk::scrollbar foreach {option _} $args { - if {$option eq "-class" || $option eq "-style"} { + if {$option in "-class -style"} { set constructor ::ttk::_scrollbar break } @@ -80,6 +80,7 @@ proc ttk::scrollbar::Press {w x y} { set State(first) [lindex [$w get] 0] } } + default {} } } |