# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 970064610 -7200
# Node ID a0fe280353bae0a61e0e96e2ad89c52c8c8814d7
# Parent  02cd600d410db47e4efdb29f9bd2187bf7a1a4ec
ignore other button-presses/releases while moving the bar

diff -r 02cd600d410d -r a0fe280353ba VariablePanelController.st
--- a/VariablePanelController.st	Wed Sep 27 09:48:20 2000 +0200
+++ b/VariablePanelController.st	Wed Sep 27 16:23:30 2000 +0200
@@ -136,8 +136,11 @@
     |handleView hindex isMin isMax layout|
 
     ((button == 1) or:[button == #select]) ifFalse:[
-          self pointerLeave:0.
-        ^ super buttonPress:button x:bx y:by.
+        movedHandle isNil ifTrue:[
+            self pointerLeave:0.
+            super buttonPress:button x:bx y:by.
+        ].
+        ^ self.
     ].
     hindex := self detectHandleIndexAt:bx y:by.
 
@@ -189,8 +192,11 @@
     |subViews layout aboveView|
 
     ((button == 1) or:[button == #select]) ifFalse:[
-        resizeMode := nil.
-        ^ super buttonRelease:button x:bx y:by
+        movedHandle isNil ifTrue:[
+            resizeMode := nil.
+            super buttonRelease:button x:bx y:by
+        ].
+        ^ self.
     ].
 
     view ungrabPointer.
@@ -500,7 +506,7 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.32 2000-09-07 17:00:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.33 2000-09-27 14:23:30 cg Exp $'
 
 
 ! !