--- a/ModalBox.st	Mon Oct 09 17:31:30 2000 +0200
+++ b/ModalBox.st	Mon Oct 09 17:32:08 2000 +0200
@@ -604,7 +604,7 @@
     ].
 
     self unmap.
-    device flush. 
+    device sync. 
 
     masterGroup notNil ifTrue:[
         "
@@ -901,6 +901,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.72 2000-09-27 07:41:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.73 2000-10-09 15:32:08 src Exp $'
 ! !
 ModalBox initialize!