try bitmaps in package directory
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 1999 21:10:26 +0100
changeset 1622 ea4d9baf568f
parent 1621 16b4a3972030
child 1623 b588acb3dd8b
try bitmaps in package directory
ComboView.st
--- a/ComboView.st	Wed Dec 01 18:39:25 1999 +0100
+++ b/ComboView.st	Wed Dec 01 21:10:26 1999 +0100
@@ -77,7 +77,9 @@
     form := StyleSheet at:#'comboView.downForm'.
     form isNil ifTrue:[
         fileName := StyleSheet at:#'comboView.downFormFile' "default:'ComboDn.14.xbm'".
-        fileName notNil ifTrue:[form := Image fromFile:fileName].
+        fileName notNil ifTrue:[
+            form := Smalltalk bitmapFromFileNamed:fileName forClass:self.
+        ].
     ].
     form isNil ifTrue:[
         form  := Form width:12 height:12 
@@ -444,7 +446,7 @@
 
     l2 := styleSheet at:#'comboView.disabledDownFormFile'.
     l2 notNil ifTrue:[
-        l2 := Image fromFile:l2.
+        l2 := Smalltalk bitmapFromFileNamed:l2 forClass:self class.
     ] ifFalse:[
         l2 := styleSheet at:#'comboView.disabledDownForm'.
     ].    
@@ -615,5 +617,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.56 1999-09-26 11:36:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.57 1999-12-01 20:10:26 cg Exp $'
 ! !