--- a/ArrowButton.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/ArrowButton.st	Mon Sep 08 20:32:30 1997 +0200
@@ -385,7 +385,7 @@
             form displayLineFromX:4 y:6 toX:8 y:2.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultDownArrowButtonForm on:aDevice.
+            form  := self defaultDownArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -460,7 +460,7 @@
             form displayLineFromX:2 y:4 toX:6 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultLeftArrowButtonForm on:aDevice.
+            form  := self defaultLeftArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -535,7 +535,7 @@
             form displayLineFromX:6 y:4 toX:2 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultRightArrowButtonForm on:aDevice.
+            form  := self defaultRightArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -610,7 +610,7 @@
             form displayLineFromX:4 y:2 toX:8 y:6.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultUpArrowButtonForm on:aDevice.
+            form  := self defaultUpArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -884,5 +884,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.42 1997-07-28 10:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.43 1997-09-08 18:32:27 cg Exp $'
 ! !