--- a/MotionButton.st	Sun Mar 07 14:25:33 1999 +0100
+++ b/MotionButton.st	Sun Mar 07 14:27:34 1999 +0100
@@ -11,10 +11,10 @@
 "
 
 Button subclass:#MotionButton
-    instanceVariableNames:'oldBorderWidth'
-    classVariableNames:''
-    poolDictionaries:''
-    category:'Views-Interactors'
+	instanceVariableNames:'oldBorderWidth'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Obsolete'
 !
 
 !MotionButton class methodsFor:'documentation'!
@@ -39,18 +39,9 @@
 
     a motionButton highlights itself whenever the cursor
     walks into it ...
+    ... this is no longer needed, since every button not
+    supports this.
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MotionButton.st,v 1.4 1995-11-11 16:29:12 cg Exp $'
-! !
-
-!MotionButton methodsFor:'initialization'!
-
-initEvents
-    super initEvents.
-    self enableEnterLeaveEvents
 ! !
 
 !MotionButton methodsFor:'events'!
@@ -63,3 +54,16 @@
 pointerLeave:state
     self borderWidth:oldBorderWidth
 ! !
+
+!MotionButton methodsFor:'initialization'!
+
+initEvents
+    super initEvents.
+    self enableEnterLeaveEvents
+! !
+
+!MotionButton class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/MotionButton.st,v 1.5 1999-03-07 13:27:34 cg Exp $'
+! !