--- a/WarningBox.st	Wed Feb 17 13:33:44 1999 +0100
+++ b/WarningBox.st	Wed Feb 17 14:11:59 1999 +0100
@@ -144,15 +144,14 @@
 
     WarnBitmap isNil ifTrue:[
         img := StyleSheet at:'warningBox.icon'.
-        img notNil ifTrue:[
-            WarnBitmap := img
-        ] ifFalse:[
+        img isNil ifTrue:[
             imgFileName := StyleSheet at:'warningBox.iconFile' default:'bitmaps/Warning.xbm'.
-            WarnBitmap := Image fromFile:imgFileName.
+            img := Image fromFile:imgFileName.
         ].
-        WarnBitmap notNil ifTrue:[
-            WarnBitmap := WarnBitmap on:Display
-        ]
+        img notNil ifTrue:[
+            img := img on:Display
+        ].
+        WarnBitmap := img
     ].
     ^ WarnBitmap
 
@@ -213,5 +212,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.22 1997-10-28 20:02:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.23 1999-02-17 13:11:59 cg Exp $'
 ! !