--- a/VarPanelC.st	Mon Apr 06 14:23:28 1998 +0200
+++ b/VarPanelC.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/Attic/VarPanelC.st,v 1.14 1997-09-21 18:11:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanelC.st,v 1.15 1998-04-09 11:32:29 cg Exp $'
 ! !

--- 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 $'
 ! !