--- a/WarningBox.st Wed Dec 01 21:35:07 1999 +0100
+++ b/WarningBox.st Wed Dec 01 21:39:23 1999 +0100
@@ -146,7 +146,7 @@
img := StyleSheet at:'warningBox.icon'.
img isNil ifTrue:[
imgFileName := StyleSheet at:'warningBox.iconFile' default:'bitmaps/Warning.xbm'.
- img := Image fromFile:imgFileName.
+ img := Smalltalk bitmapFromFileNamed:imgFileName forClass:self.
].
img notNil ifTrue:[
img := img onDevice:Display
@@ -208,5 +208,5 @@
!WarningBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.25 1999-08-18 14:29:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.26 1999-12-01 20:38:59 cg Exp $'
! !