--- a/ArrowButton.st	Thu Jan 09 13:42:40 1997 +0100
+++ b/ArrowButton.st	Thu Jan 09 14:04:26 1997 +0100
@@ -206,8 +206,7 @@
 
     DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil.
     DownArrowForm notNil ifTrue:[
-        DownArrowForm := DownArrowForm on:Display.
-        ^ DownArrowForm on:aDevice
+        ^ DownArrowForm
     ].
 
     "
@@ -276,7 +275,7 @@
 
     ^ form
 
-    "Modified: 9.1.1997 / 10:58:36 / cg"
+    "Modified: 9.1.1997 / 14:04:11 / cg"
 !
 
 leftArrowButtonForm:style on:aDevice
@@ -483,8 +482,7 @@
 
     UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil.
     UpArrowForm notNil ifTrue:[
-        UpArrowForm := UpArrowForm on:Display.
-        ^ UpArrowForm on:aDevice
+        ^ UpArrowForm
     ].
 
     "
@@ -553,7 +551,7 @@
 
     ^ form
 
-    "Modified: 9.1.1997 / 10:59:28 / cg"
+    "Modified: 9.1.1997 / 14:03:45 / cg"
 !
 
 updateStyleCache
@@ -785,5 +783,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.31 1997-01-09 11:50:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.32 1997-01-09 13:04:26 cg Exp $'
 ! !