--- a/WarningBox.st	Wed Dec 08 21:49:22 1999 +0100
+++ b/WarningBox.st	Thu Dec 09 12:10:41 1999 +0100
@@ -146,7 +146,7 @@
         img := StyleSheet at:'warningBox.icon'.
         img isNil ifTrue:[
             imgFileName := StyleSheet at:'warningBox.iconFile' default:'bitmaps/Warning.xbm'.
-            img := Smalltalk bitmapFromFileNamed:imgFileName forClass:self.
+            img := Smalltalk imageFromFileNamed: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.26 1999-12-01 20:38:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.27 1999-12-09 11:10:21 cg Exp $'
 ! !