Import build of Tcl/Tk 8.6.10
This commit is contained in:
@@ -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) --
|
||||
|
||||
Reference in New Issue
Block a user