diff options
| author | culler <culler> | 2019-03-27 19:11:02 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-03-27 19:11:02 (GMT) |
| commit | ac76edf06fe2e72f49ee79f2705eb3371964f67a (patch) | |
| tree | 10091b74755389b8ee6cfccb24b1fc6739f1f923 /library/ttk | |
| parent | 549747a2a8c86ef81e37f32f1d96cb94b6b99a95 (diff) | |
| download | tk-ac76edf06fe2e72f49ee79f2705eb3371964f67a.zip tk-ac76edf06fe2e72f49ee79f2705eb3371964f67a.tar.gz tk-ac76edf06fe2e72f49ee79f2705eb3371964f67a.tar.bz2 | |
Implemented a real ttk::scrollbar for Aqua.
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/scrollbar.tcl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl index 4bd5107..d08e1e2 100644 --- a/library/ttk/scrollbar.tcl +++ b/library/ttk/scrollbar.tcl @@ -2,24 +2,6 @@ # 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 ::tk::scrollbar - foreach {option _} $args { - if {$option eq "-class" || $option eq "-style"} { - set constructor ::ttk::_scrollbar - break - } - } - return [$constructor $w {*}$args] - } -} - namespace eval ttk::scrollbar { variable State # State(xPress) -- |