summaryrefslogtreecommitdiffstats
path: root/library/panedwindow.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/panedwindow.tcl')
-rw-r--r--library/panedwindow.tcl16
1 files changed, 9 insertions, 7 deletions
diff --git a/library/panedwindow.tcl b/library/panedwindow.tcl
index dbdcaa8..073c47f 100644
--- a/library/panedwindow.tcl
+++ b/library/panedwindow.tcl
@@ -3,7 +3,7 @@
# This file defines the default bindings for Tk panedwindow widgets and
# provides procedures that help in implementing those bindings.
#
-# RCS: @(#) $Id: panedwindow.tcl,v 1.4 2002/02/23 01:36:45 hobbs Exp $
+# RCS: @(#) $Id: panedwindow.tcl,v 1.5 2002/02/26 01:06:55 hobbs Exp $
#
bind PanedWindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
@@ -41,6 +41,9 @@ proc ::tk::panedwindow::MarkSash {w x y proxy} {
if { !$::tk_strictMotif || [string equal $which "handle"] } {
if {!$proxy} { $w sash mark $index $x $y }
set ::tk::Priv(sash) $index
+ foreach {sx sy} [$w sash coord $index] break
+ set ::tk::Priv(dx) [expr {$sx-$x}]
+ set ::tk::Priv(dy) [expr {$sy-$y}]
}
}
}
@@ -60,10 +63,11 @@ proc ::tk::panedwindow::MarkSash {w x y proxy} {
proc ::tk::panedwindow::DragSash {w x y proxy} {
if { [info exists ::tk::Priv(sash)] } {
if {$proxy} {
- $w proxy place $x $y
+ $w proxy place \
+ [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
} else {
- $w sash dragto $::tk::Priv(sash) $x $y
- $w sash mark $::tk::Priv(sash) $x $y
+ $w sash place $::tk::Priv(sash) \
+ [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
}
}
}
@@ -83,11 +87,9 @@ proc ::tk::panedwindow::ReleaseSash {w proxy} {
if {$proxy} {
foreach {x y} [$w proxy coord] break
$w sash place $::tk::Priv(sash) $x $y
- unset ::tk::Priv(sash)
$w proxy forget
- } else {
- unset ::tk::Priv(sash)
}
+ unset ::tk::Priv(sash) ::tk::Priv(dx) ::tk::Priv(dy)
}
}