#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Wed, 26 Feb 2020 09:09:40 +0100
changeset 9004 a9067f6b4e80
parent 9003 de9be1ccbdb4
child 9005 b0034f9c5067
#UI_ENHANCEMENT by exept class: WindowGroup changed: #eventLoopWhile:onLeave: state shown in processmonitor
WindowGroup.st
--- a/WindowGroup.st	Tue Feb 25 18:20:24 2020 +0100
+++ b/WindowGroup.st	Wed Feb 26 09:09:40 2020 +0100
@@ -1568,6 +1568,7 @@
                         Processor activeProcess setStateTo:(self isModal ifTrue:[#modalEventWait] ifFalse:[#eventWait]) if:#active.
 
                         "/ now, wait for an event to arrive
+                        Processor activeProcess setStateTo:(self isModal ifTrue:[#modalEventWait] ifFalse:[#eventWait]) if:#active.
                         gotSema := waitSema wait.
                     ] ifFalse:[
                         gotSema := mySema