Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed leftOver-inverted bar redraw bug
authorClaus Gittinger <cg@exept.de>
Fri, 12 Mar 1999 10:53:30 +0100
changeset 1785 3103fc945869
parent 1784 e45846a6af7a
child 1786 de0c76051af4
fixed leftOver-inverted bar redraw bug
VarPanelC.st file | annotate | diff | comparison | revisions
VariablePanelController.st file | annotate | diff | comparison | revisions 
--- a/VarPanelC.st	Fri Mar 12 09:34:57 1999 +0100
+++ b/VarPanelC.st	Fri Mar 12 10:53:30 1999 +0100
@@ -267,10 +267,11 @@
         ].
 
         "/ any change ?
-        isHorizontal ifTrue:[
-            bx == clickPos x ifTrue:[^ self].
-        ] ifFalse:[
-            by == clickPos y ifTrue:[^ self].
+        ((isHorizontal and:[bx == clickPos x])
+        or:[isHorizontal not and:[by == clickPos y]]) ifTrue:[
+            'no change' printCR.
+            movedHandle := nil.
+            ^ self.
         ].
 
         "compute the new relative heights"
@@ -312,7 +313,7 @@
         super buttonRelease:button x:bx y:by
     ]
 
-    "Modified: / 13.11.1998 / 15:17:54 / cg"
+    "Modified: / 11.3.1999 / 16:31:29 / cg"
 !
 
 pointerEnter:state x:x y:y
@@ -327,5 +328,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.18 1998-11-19 12:06:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.19 1999-03-12 09:53:30 cg Exp $'
 ! !
--- a/VariablePanelController.st	Fri Mar 12 09:34:57 1999 +0100
+++ b/VariablePanelController.st	Fri Mar 12 10:53:30 1999 +0100
@@ -267,10 +267,11 @@
         ].
 
         "/ any change ?
-        isHorizontal ifTrue:[
-            bx == clickPos x ifTrue:[^ self].
-        ] ifFalse:[
-            by == clickPos y ifTrue:[^ self].
+        ((isHorizontal and:[bx == clickPos x])
+        or:[isHorizontal not and:[by == clickPos y]]) ifTrue:[
+            'no change' printCR.
+            movedHandle := nil.
+            ^ self.
         ].
 
         "compute the new relative heights"
@@ -312,7 +313,7 @@
         super buttonRelease:button x:bx y:by
     ]
 
-    "Modified: / 13.11.1998 / 15:17:54 / cg"
+    "Modified: / 11.3.1999 / 16:31:29 / cg"
 !
 
 pointerEnter:state x:x y:y
@@ -327,5 +328,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.18 1998-11-19 12:06:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.19 1999-03-12 09:53:30 cg Exp $'
 ! !
hg/stx-libwidg