# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 944078186 -3600
# Node ID ce11bcb1269b6afd2d1827ad2769b901915b574d
# Parent  05375618f24535c3259584c2b7657b91b91f06f4
try bitmaps in packages bitmap directory

diff -r 05375618f245 -r ce11bcb1269b ArrowButton.st
--- a/ArrowButton.st	Wed Dec 01 18:39:23 1999 +0100
+++ b/ArrowButton.st	Wed Dec 01 20:56:26 1999 +0100
@@ -453,9 +453,11 @@
         DownArrowFormFile notNil ifTrue:[
             form := Image fromFile:DownArrowFormFile resolution:100 on:aDevice.
             form isNil ifTrue:[
-                form := Image fromFile:('bitmaps/' , DownArrowFormFile) resolution:100 on:aDevice.
+                form := Smalltalk bitmapFromFileNamed:DownArrowFormFile inPackage:#'stx:libwidg'.
                 form isNil ifTrue:[
                     'ArrowButton [info]: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintCR.
+                ] ifFalse:[
+                    form := form onDevice:aDevice.
                 ]
             ]
         ]
@@ -524,9 +526,11 @@
         LeftArrowFormFile notNil ifTrue:[
             form := Image fromFile:LeftArrowFormFile resolution:100 on:aDevice.
             form isNil ifTrue:[
-                form := Image fromFile:'bitmaps/' , LeftArrowFormFile resolution:100 on:aDevice.
+                form := Smalltalk bitmapFromFileNamed:LeftArrowFormFile inPackage:#'stx:libwidg'.
                 form isNil ifTrue:[
                     'ArrowButton [info]: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintCR.
+                ] ifFalse:[
+                    form := form onDevice:aDevice.
                 ]
             ]
         ]
@@ -595,9 +599,11 @@
         RightArrowFormFile notNil ifTrue:[
             form := Image fromFile:RightArrowFormFile resolution:100 on:aDevice.
             form isNil ifTrue:[
-                form := Image fromFile:'bitmaps/' , RightArrowFormFile resolution:100 on:aDevice.
+                form := Smalltalk bitmapFromFileNamed:RightArrowFormFile inPackage:#'stx:libwidg'.
                 form isNil ifTrue:[
                     'ArrowButton [info]: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintCR.
+                ] ifFalse:[
+                    form := form onDevice:aDevice.
                 ]
             ]
         ]
@@ -666,9 +672,11 @@
         UpArrowFormFile notNil ifTrue:[
             form := Image fromFile:UpArrowFormFile resolution:100 on:aDevice.
             form isNil ifTrue:[
-                form := Image fromFile:'bitmaps/' , UpArrowFormFile resolution:100 on:aDevice.
+                form := Smalltalk bitmapFromFileNamed:UpArrowFormFile inPackage:#'stx:libwidg'.
                 form isNil ifTrue:[
                     'ArrowButton [info]: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintCR.
+                ] ifFalse:[
+                    form := form onDevice:aDevice.
                 ]
             ]
         ]
@@ -986,5 +994,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.55 1999-08-18 15:14:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.56 1999-12-01 19:56:26 cg Exp $'
 ! !