--- a/WindowGroup.st	Fri Sep 01 18:30:16 2000 +0200
+++ b/WindowGroup.st	Sun Sep 03 15:37:59 2000 +0200
@@ -756,6 +756,18 @@
 
 !
 
+modalDialogFinished
+    "invoked, when a modal dialog is closed"
+
+    inModalLoop := false.
+!
+
+modalDialogStarts
+    "invoked, when a modal dialog is opened"
+
+    inModalLoop := true.
+!
+
 realizeTopViews
     "realize all topViews associated to this windowGroup."
 
@@ -2167,9 +2179,9 @@
                     dev setCursor:cId in:vId.
                 ]
             ]
-        ]
+        ].
+        dev flush
     ].
-
 !
 
 withCursor:aCursor do:aBlock
@@ -2275,18 +2287,6 @@
     isForModalSubview := aBoolean
 !
 
-modalDialogFinished
-    inModalLoop := false.
-"/    busyHook notNil ifTrue:[
-"/        busyHook value:true.
-"/    ].
-"/    'xxx' printCR.
-!
-
-modalDialogStarts
-    inModalLoop := true.
-!
-
 setModal:aBoolean
     "special entry for debugger: set the modal flag.
      Not for public use"
@@ -2318,6 +2318,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.206 2000-09-01 16:03:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.207 2000-09-03 13:37:59 cg Exp $'
 ! !
 WindowGroup initialize!