summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-02-22 21:07:35 (GMT)
committerhobbs <hobbs>2002-02-22 21:07:35 (GMT)
commit5f4fa4a2061ff2beacb7e908113fb7e92d510414 (patch)
treec3e3560bd362fc003f4ee795e6c0985b3b8b0164 /library
parentf9629fc1524f08373dd4a4f5be5dbb567e9f0bac (diff)
downloadtk-5f4fa4a2061ff2beacb7e908113fb7e92d510414.zip
tk-5f4fa4a2061ff2beacb7e908113fb7e92d510414.tar.gz
tk-5f4fa4a2061ff2beacb7e908113fb7e92d510414.tar.bz2
* library/panedwindow.tcl (ReleaseSash): changed to not pass x and
y args at all (they aren't used).
Diffstat (limited to 'library')
-rw-r--r--library/panedwindow.tcl8
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