--- a/DeviceWorkstation.st Tue Feb 07 14:14:07 2017 +0100
+++ b/DeviceWorkstation.st Tue Feb 07 14:16:43 2017 +0100
@@ -4891,19 +4891,21 @@
the workstation)
"
myFd := self displayFileDescriptor.
- [aBlock value] whileTrue:[
- self eventPending ifFalse:[
- myFd isNil ifTrue:[
- OperatingSystem millisecondDelay:50
- ] ifFalse:[
- OperatingSystem selectOn:myFd withTimeOut:50.
- ].
- Processor evaluateTimeouts.
- ].
- self eventPending ifTrue:[
- self dispatchEvent
- ].
+ aBlock whileTrue:[
+ self eventPending ifFalse:[
+ myFd isNil ifTrue:[
+ OperatingSystem millisecondDelay:50
+ ] ifFalse:[
+ OperatingSystem selectOn:myFd withTimeOut:50.
+ ].
+ Processor evaluateTimeouts.
+ ].
+ self eventPending ifTrue:[
+ self dispatchEvent
+ ].
]
+
+ "Modified (format): / 07-02-2017 / 12:50:58 / stefan"
!
dispatchPendingEvents