--- a/YesNoBox.st	Thu Jul 25 18:07:34 2002 +0200
+++ b/YesNoBox.st	Thu Jul 25 18:12:19 2002 +0200
@@ -193,7 +193,7 @@
             RequestBitmap := Smalltalk imageFromFileNamed:imgFileName forClass:self.
         ].
         RequestBitmap notNil ifTrue:[
-            RequestBitmap := RequestBitmap onDevice:Display
+            RequestBitmap := RequestBitmap onDevice:Screen current
         ]
     ].
     ^ RequestBitmap
@@ -330,5 +330,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.48 2001-11-15 21:03:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.49 2002-07-25 16:12:19 stefan Exp $'
 ! !