--- a/ArrowButton.st	Wed Dec 01 20:58:54 1999 +0100
+++ b/ArrowButton.st	Wed Dec 01 21:03:25 1999 +0100
@@ -451,14 +451,11 @@
     "
     styleSymbol ~~ #st80 ifTrue:[
         DownArrowFormFile notNil ifTrue:[
-            form := Image fromFile:DownArrowFormFile resolution:100 on:aDevice.
+            form := Smalltalk bitmapFromFileNamed:DownArrowFormFile forClass:self.
             form isNil ifTrue:[
-                form := Smalltalk bitmapFromFileNamed:DownArrowFormFile inPackage:#'stx:libwidg'.
-                form isNil ifTrue:[
-                    'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR.
-                ] ifFalse:[
-                    form := form onDevice:aDevice.
-                ]
+                'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR.
+            ] ifFalse:[
+                form := form onDevice:aDevice.
             ]
         ]
     ].
@@ -524,14 +521,11 @@
     "
     styleSymbol ~~ #st80 ifTrue:[
         LeftArrowFormFile notNil ifTrue:[
-            form := Image fromFile:LeftArrowFormFile resolution:100 on:aDevice.
+            form := Smalltalk bitmapFromFileNamed:LeftArrowFormFile forClass:self.
             form isNil ifTrue:[
-                form := Smalltalk bitmapFromFileNamed:LeftArrowFormFile inPackage:#'stx:libwidg'.
-                form isNil ifTrue:[
-                    'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR.
-                ] ifFalse:[
-                    form := form onDevice:aDevice.
-                ]
+                'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR.
+            ] ifFalse:[
+                form := form onDevice:aDevice.
             ]
         ]
     ].
@@ -597,14 +591,11 @@
     "
     styleSymbol ~~ #st80 ifTrue:[
         RightArrowFormFile notNil ifTrue:[
-            form := Image fromFile:RightArrowFormFile resolution:100 on:aDevice.
+            form := Smalltalk bitmapFromFileNamed:RightArrowFormFile forClass:self.
             form isNil ifTrue:[
-                form := Smalltalk bitmapFromFileNamed:RightArrowFormFile inPackage:#'stx:libwidg'.
-                form isNil ifTrue:[
-                    'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR.
-                ] ifFalse:[
-                    form := form onDevice:aDevice.
-                ]
+                'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR.
+            ] ifFalse:[
+                form := form onDevice:aDevice.
             ]
         ]
     ].
@@ -670,14 +661,11 @@
     "
     styleSymbol ~~ #st80 ifTrue:[
         UpArrowFormFile notNil ifTrue:[
-            form := Image fromFile:UpArrowFormFile resolution:100 on:aDevice.
+            form := Smalltalk bitmapFromFileNamed:UpArrowFormFile forClass:self.
             form isNil ifTrue:[
-                form := Smalltalk bitmapFromFileNamed:UpArrowFormFile inPackage:#'stx:libwidg'.
-                form isNil ifTrue:[
-                    'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR.
-                ] ifFalse:[
-                    form := form onDevice:aDevice.
-                ]
+                'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR.
+            ] ifFalse:[
+                form := form onDevice:aDevice.
             ]
         ]
     ].
@@ -994,5 +982,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.56 1999-12-01 19:56:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.57 1999-12-01 20:03:25 cg Exp $'
 ! !