--- 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!