--- a/UpDownButton.st	Fri Mar 19 20:58:55 1999 +0100
+++ b/UpDownButton.st	Fri Mar 19 21:19:37 1999 +0100
@@ -210,14 +210,6 @@
     self initializeButtonDimensions
 ! !
 
-!UpDownButton methodsFor:'displaying'!
-
-showFocus:explicit 
-    "display myself as having-focus"
-
-    (upButton enabled or:[downButton enabled]) ifTrue: [super showFocus:explicit]
-! !
-
 !UpDownButton methodsFor:'event handling'!
 
 keyPress:aKey x:x y:y
@@ -248,6 +240,16 @@
     "Modified: / 21.4.1998 / 19:56:28 / cg"
 ! !
 
+!UpDownButton methodsFor:'focus handling'!
+
+showFocus:explicit 
+    "display myself as having-focus"
+
+    (upButton enabled or:[downButton enabled]) ifTrue: [
+        super showFocus:explicit
+    ]
+! !
+
 !UpDownButton methodsFor:'initialization'!
 
 initialize
@@ -309,5 +311,5 @@
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.11 1998-06-06 17:54:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.12 1999-03-19 20:19:37 cg Exp $'
 ! !