--- a/WarningBox.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/WarningBox.st	Wed Aug 18 16:31:38 1999 +0200
@@ -149,7 +149,7 @@
             img := Image fromFile:imgFileName.
         ].
         img notNil ifTrue:[
-            img := img on:Display
+            img := img onDevice:Display
         ].
         WarnBitmap := img
     ].
@@ -208,5 +208,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.24 1999-05-25 14:15:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.25 1999-08-18 14:29:45 cg Exp $'
 ! !