--- a/SelectionInListView.st	Sat Apr 26 13:45:07 1997 +0200
+++ b/SelectionInListView.st	Sat Apr 26 13:46:20 1997 +0200
@@ -808,56 +808,63 @@
 rightArrowFormOn:aDevice
     "return the form used for the right arrow (non 3D)"
 
-    |f bits|
+    <resource: #style (#rightArrowForm #rightArrowFormFile)>
+
+    |f fn bits|
 
     ((aDevice == Display) and:[RightArrowForm notNil]) ifTrue:[
         ^ RightArrowForm
     ].
-    f := Image fromFile:'bitmaps/RightArrow.xbm' resolution:100 on:aDevice.
+
+    f := StyleSheet at:'selectionRightArrowForm' default:nil.
     f isNil ifTrue:[
-        DefaultRightArrowStyle == #solid ifTrue:[
-            bits := #[2r00000000 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000010 2r00000000 
-                      2r00000011 2r00000000 
-                      2r00000011 2r10000000 
-                      2r00000011 2r11000000 
-                      2r00000011 2r11100000 
-                      2r00000011 2r11110000 
-                      2r00000011 2r11100000
-                      2r00000011 2r11000000 
-                      2r00000011 2r10000000 
-                      2r00000011 2r00000000
-                      2r00000010 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000000 2r00000000]
-        ] ifFalse:[
-            bits := #[2r00000000 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000110 2r00000000 
-                      2r00000101 2r00000000 
-                      2r00000100 2r10000000 
-                      2r00000100 2r01000000 
-                      2r00000100 2r00100000 
-                      2r00000100 2r00010000 
-                      2r00000100 2r00100000
-                      2r00000100 2r01000000 
-                      2r00000100 2r10000000 
-                      2r00000101 2r00000000
-                      2r00000110 2r00000000 
-                      2r00000000 2r00000000 
-                      2r00000000 2r00000000]
-        ].
-        f := Form width:16 height:16 fromArray:bits on:aDevice
+        fn := StyleSheet at:'selectionRightArrowFormFile' default:'RightArrow.xbm'.
+        f := Image fromFile:fn resolution:100 on:aDevice.
+        f isNil ifTrue:[
+            DefaultRightArrowStyle == #solid ifTrue:[
+                bits := #[2r00000000 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000010 2r00000000 
+                          2r00000011 2r00000000 
+                          2r00000011 2r10000000 
+                          2r00000011 2r11000000 
+                          2r00000011 2r11100000 
+                          2r00000011 2r11110000 
+                          2r00000011 2r11100000
+                          2r00000011 2r11000000 
+                          2r00000011 2r10000000 
+                          2r00000011 2r00000000
+                          2r00000010 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000000 2r00000000]
+            ] ifFalse:[
+                bits := #[2r00000000 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000110 2r00000000 
+                          2r00000101 2r00000000 
+                          2r00000100 2r10000000 
+                          2r00000100 2r01000000 
+                          2r00000100 2r00100000 
+                          2r00000100 2r00010000 
+                          2r00000100 2r00100000
+                          2r00000100 2r01000000 
+                          2r00000100 2r10000000 
+                          2r00000101 2r00000000
+                          2r00000110 2r00000000 
+                          2r00000000 2r00000000 
+                          2r00000000 2r00000000]
+            ].
+            f := Form width:16 height:16 fromArray:bits on:aDevice
+        ]
     ].
     (aDevice == Display) ifTrue:[
         RightArrowForm := f
     ].
     ^ f
 
-    "Modified: 1.1.1970 / 01:00:00 / cg"
+    "Modified: 26.4.1997 / 13:45:35 / cg"
 !
 
 rightArrowLightFormOn:aDevice
@@ -3275,5 +3282,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.103 1997-04-24 14:26:43 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.104 1997-04-26 11:46:20 cg Exp $'
 ! !