diff options
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/panedwindow.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/ttk/panedwindow.tcl b/library/ttk/panedwindow.tcl index 15ec4f8..9cb046d 100644 --- a/library/ttk/panedwindow.tcl +++ b/library/ttk/panedwindow.tcl @@ -1,5 +1,5 @@ # -# $Id: panedwindow.tcl,v 1.3 2007/04/13 00:21:47 hobbs Exp $ +# $Id: panedwindow.tcl,v 1.4 2007/06/09 21:45:45 jenglish Exp $ # # Bindings for ttk::panedwindow widget. # @@ -33,8 +33,8 @@ bind TPanedwindow <<EnteredChild>> { ttk::panedwindow::ResetCursor %W } proc ttk::panedwindow::Press {w x y} { variable State - lassign [$w identify $x $y] sash element - if {![info exists sash] || $sash eq ""} { + set sash [$w identify $x $y] + if {$sash eq ""} { set State(pressed) 0 return } |