--- a/VariablePanelController.st Mon Apr 06 14:23:28 1998 +0200
+++ b/VariablePanelController.st Thu Apr 09 13:32:29 1998 +0200
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 12:08:04 am' !
-
Controller subclass:#VariablePanelController
instanceVariableNames:'movedHandle prevPos startPos'
classVariableNames:''
@@ -248,10 +246,19 @@
] ifFalse:[
super buttonRelease:button x:x y:y
]
+!
+
+pointerEnter:state x:x y:y
+ state == 0 ifTrue:[
+ movedHandle notNil ifTrue:[self buttonRelease:1 x:x y:y]
+ ]
+
+ "Created: / 9.4.1998 / 12:34:22 / cg"
+ "Modified: / 9.4.1998 / 12:35:05 / cg"
! !
!VariablePanelController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.14 1997-09-21 18:11:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.15 1998-04-09 11:32:29 cg Exp $'
! !