#DOCUMENTATION by stefan
authorStefan Vogel <sv@exept.de>
Thu, 03 May 2018 18:02:03 +0200
changeset 8352 2dc812e07b37
parent 8351 9f5fd3b800df
child 8353 44cd6b3c92e3
#DOCUMENTATION by stefan class: DeviceWorkstation comment/format in: #dispatchPendingEvents
DeviceWorkstation.st
--- a/DeviceWorkstation.st	Thu May 03 16:38:48 2018 +0200
+++ b/DeviceWorkstation.st	Thu May 03 18:02:03 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -4964,20 +4966,20 @@
 !
 
 dispatchPendingEvents
-    "go dispatch events as long as there is one.
-     This is only used with modal operation.
-     (i.e. when in the modal debugger)"
+    "go dispatch events as long as there is one."
 
     OSSignalInterrupt handle:[:ex |
-	ex return
+        ex return
     ] do:[
-	[self eventPending] whileTrue:[
-	    self dispatchEventFor:nil withMask:nil.
-	    "/ multi-screen config: give others a chance
-	    "/ (needed because we run at high (non-timesliced) prio)
-	    Processor yield.
-	]
+        [self eventPending] whileTrue:[
+            self dispatchEventFor:nil withMask:nil.
+            "/ multi-screen config: give others a chance
+            "/ (needed because we run at high (non-timesliced) prio)
+            Processor yield.
+        ]
     ]
+
+    "Modified (comment): / 03-05-2018 / 17:42:09 / stefan"
 !
 
 disposeButtonEventsFor:aViewIdOrNil