--- a/ArrowButton.st	Tue Jan 27 14:11:36 1998 +0100
+++ b/ArrowButton.st	Tue Jan 27 19:06:10 1998 +0100
@@ -814,7 +814,7 @@
                 self displayForm:logo x:labelOriginX  y:labelOriginY.
                 ^ self
             ].
-            logo := logo on:device.
+            logo := logo onDevice:device.
             orgX := labelOriginX.
             orgY := labelOriginY.
         ] ifTrue:[
@@ -868,5 +868,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.46 1997-10-28 20:01:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.47 1998-01-27 18:06:10 tz Exp $'
 ! !