diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl index 0fd9bd7563..1989b8955c 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/ttk/panedwindow.tcl @@ -45,9 +45,9 @@ proc ttk::panedwindow::Press {w x y} { proc ttk::panedwindow::Drag {w x y} { variable State if {!$State(pressed)} { return } - switch -- [$w cget -orient] { - horizontal { set delta [expr {$x - $State(pressX)}] } - vertical { set delta [expr {$y - $State(pressY)}] } + switch -glob -- [$w cget -orient] { + h* { set delta [expr {$x - $State(pressX)}] } + v* { set delta [expr {$y - $State(pressY)}] } } $w sashpos $State(sash) [expr {$State(sashPos) + $delta}] } @@ -80,9 +80,9 @@ proc ttk::panedwindow::SetCursor {w x y} { set cursor $State(userConfCursor) if {[llength [$w identify $x $y]]} { # Assume we're over a sash. - switch -- [$w cget -orient] { - horizontal { set cursor hresize } - vertical { set cursor vresize } + switch -glob -- [$w cget -orient] { + h* { set cursor hresize } + v* { set cursor vresize } } } ttk::setCursor $w $cursor |