--- a/UpDownButton.st	Fri Jan 09 16:53:27 1998 +0100
+++ b/UpDownButton.st	Sat Jan 10 00:51:27 1998 +0100
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:3.2.1 on 25-oct-1997 at 2:25:15 pm'                  !
-
 SimpleView subclass:#UpDownButton
 	instanceVariableNames:'orientation upButton downButton'
 	classVariableNames:'DefaultDownForm DefaultUpForm DefaultLeftForm DefaultRightForm'
@@ -88,12 +86,13 @@
     ].
     form notNil ifTrue:[
         DefaultDownForm := form.
-        ^ form on:Display
+        ^ form onDevice:Display
     ].
     ^ nil
 
     "Created: / 1.4.1997 / 11:53:39 / cg"
     "Modified: / 25.10.1997 / 14:24:20 / cg"
+    "Modified: / 8.1.1998 / 16:33:54 / stefan"
 !
 
 leftButtonForm
@@ -130,12 +129,13 @@
     ].
     form notNil ifTrue:[
         DefaultLeftForm := form.
-        ^ form on:Display
+        ^ form onDevice:Display
     ].
     ^ nil
 
     "Created: / 1.4.1997 / 12:39:18 / cg"
     "Modified: / 25.10.1997 / 14:21:45 / cg"
+    "Modified: / 8.1.1998 / 16:34:05 / stefan"
 !
 
 rightButtonForm
@@ -172,12 +172,13 @@
     ].
     form notNil ifTrue:[
         DefaultRightForm := form.
-        ^ form on:Display
+        ^ form onDevice:Display
     ].
     ^ nil
 
     "Created: / 1.4.1997 / 12:39:34 / cg"
     "Modified: / 25.10.1997 / 14:23:04 / cg"
+    "Modified: / 8.1.1998 / 16:34:15 / stefan"
 !
 
 upButtonForm
@@ -210,12 +211,13 @@
     ].
     form notNil ifTrue:[
         DefaultUpForm := form.
-        ^ form on:Display
+        ^ form onDevice:Display
     ].
     ^ nil
 
     "Created: / 1.4.1997 / 11:54:13 / cg"
     "Modified: / 25.10.1997 / 14:23:49 / cg"
+    "Modified: / 8.1.1998 / 16:34:36 / stefan"
 !
 
 updateStyleCache
@@ -328,5 +330,5 @@
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.3 1997-10-28 19:16:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.4 1998-01-09 23:51:27 stefan Exp $'
 ! !