--- a/ArrowButton.st	Wed Feb 25 22:41:54 1998 +0100
+++ b/ArrowButton.st	Wed Feb 25 23:36:56 1998 +0100
@@ -359,7 +359,7 @@
      use cached form, if device is appropriate
     "
     CachedStyle ~~ styleSymbol ifTrue:[
-        UpArrowForm := DownArrowForm := LeftArrowForm := RightArrowForm := nil
+        DownArrowForm := nil
     ].
 
     ((form := DownArrowForm) notNil and:[form device == aDevice]) ifTrue:[
@@ -430,7 +430,7 @@
      use cached form, if device is appropriate
     "
     CachedStyle ~~ styleSymbol ifTrue:[
-        UpArrowForm := DownArrowForm := LeftArrowForm := RightArrowForm := nil
+        LeftArrowForm := nil
     ].
 
     ((form := LeftArrowForm) notNil and:[form device == aDevice]) ifTrue:[
@@ -501,7 +501,7 @@
      use cached form, if device is appropriate
     "
     CachedStyle ~~ styleSymbol ifTrue:[
-        UpArrowForm := DownArrowForm := LeftArrowForm := RightArrowForm := nil
+        RightArrowForm := nil
     ].
 
     ((form := RightArrowForm) notNil and:[form device == aDevice]) ifTrue:[
@@ -572,7 +572,7 @@
      use cached form, if device is appropriate
     "
     CachedStyle ~~ styleSymbol ifTrue:[
-        UpArrowForm := DownArrowForm := LeftArrowForm := RightArrowForm := nil
+        UpArrowForm := nil
     ].
 
     ((form := UpArrowForm) notNil and:[form device == aDevice]) ifTrue:[
@@ -888,5 +888,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.48 1998-02-25 21:41:54 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.49 1998-02-25 22:36:56 tz Exp $'
 ! !