# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1026394162 -7200
# Node ID 91340b09e04538c671f3c43dabf79c8713f892e0
# Parent  b4947102141f6db184780d27200529e99b2e55ab
*** empty log message ***

diff -r b4947102141f -r 91340b09e045 XWorkstation.st
--- a/XWorkstation.st	Thu Jul 11 15:22:57 2002 +0200
+++ b/XWorkstation.st	Thu Jul 11 15:29:22 2002 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:4.1.4 on 20-Mai-2002 at 15:13:38'                    !
-
 "{ Package: 'stx:libview' }"
 
 DeviceWorkstation subclass:#XWorkstation
@@ -5257,6 +5255,20 @@
     ^ false
 !
 
+dispatchLoop
+    |flushBlock|
+
+    flushBlock := [self flush].
+
+    Processor addPreWaitAction:flushBlock.
+
+    [
+        super dispatchLoop
+    ] ifCurtailed:[
+        Processor removePreWaitAction:flushBlock.
+    ].
+!
+
 dispatchPendingEvents
     "central event handling method for modal operation.
      (i.e. this is now only used in the modal debugger)
@@ -11751,6 +11763,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.408 2002-05-21 08:09:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.409 2002-07-11 13:29:22 cg Exp $'
 ! !
 XWorkstation initialize!