--- 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 $'
! !