* library/panedwindow.tcl (ReleaseSash): changed to not pass x and

	y args at all (they aren't used).

1 files changed, 4 insertions, 4 deletions

diff --git a/library/panedwindow.tcl b/library/panedwindow.tcl
index 58218c1..600ce42 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.2 2002/02/22 14:07:01 dkf Exp $
+# RCS: @(#) $Id: panedwindow.tcl,v 1.3 2002/02/22 21:07:35 hobbs Exp $
 #
 
 bind PanedWindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
@@ -12,8 +12,8 @@ bind PanedWindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
 bind PanedWindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
 bind PanedWindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
 
-bind PanedWindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W %x %y 1}
-bind PanedWindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W %x %y 0}
+bind PanedWindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
+bind PanedWindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
 
 bind PanedWindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
 
@@ -71,7 +71,7 @@ proc ::tk::panedwindow::DragSash {w x y proxy} {
 # Results:
 #   Returns ...
 #
-proc ::tk::panedwindow::ReleaseSash {w x y proxy} {
+proc ::tk::panedwindow::ReleaseSash {w proxy} {
     if { [info exists ::tk::Priv(sash)] } {
 	if {$proxy} {
 	    foreach {x y} [$w proxy coord] break