--- a/PopUpView.st	Sat Sep 12 15:37:38 1998 +0200
+++ b/PopUpView.st	Sat Sep 12 15:43:17 1998 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:10:26 pm'                  !
-
 TopView subclass:#PopUpView
 	instanceVariableNames:'shadowView haveControl exclusivePointer mapTime'
 	classVariableNames:'DefaultShadow DefaultLevel DefaultBorderWidth DefaultBorderColor'
@@ -131,7 +129,14 @@
     ].
     self unmap.
 
-    "Modified: 3.5.1996 / 23:48:22 / stefan"
+    "/ allow for redraw events to arrive
+    "/ (actually, only req'd for win32 systems,
+    "/  but that short delay does not hurt on others)
+
+    Delay waitForSeconds:0.05.
+
+    "Modified: / 3.5.1996 / 23:48:22 / stefan"
+    "Modified: / 12.9.1998 / 14:58:33 / cg"
 !
 
 show
@@ -351,5 +356,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.35 1997-10-21 18:04:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.36 1998-09-12 13:43:17 cg Exp $'
 ! !