--- a/UpDownButton.st	Mon Feb 23 17:53:35 1998 +0100
+++ b/UpDownButton.st	Mon Feb 23 19:28:01 1998 +0100
@@ -314,21 +314,18 @@
 !
 
 initializeButtons
+
     upButton := ArrowButton upIn:self.
-    upButton action:[self countUp].
     upButton autoRepeat:true.
 
     downButton := ArrowButton downIn:self.
-    downButton action:[self countDown].
     downButton autoRepeat:true.
 
     self initializeButtonDimensions
-
-    "Modified: 1.4.1997 / 12:42:58 / cg"
 ! !
 
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.4 1998-01-09 23:51:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.5 1998-02-23 18:28:01 tz Exp $'
 ! !