#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Mon, 07 Nov 2016 16:54:00 +0100
changeset 7672 ef23e698c67e
parent 7671 465f33f58b2e
child 7673 8fcc7f754c03
#BUGFIX by cg class: WindowGroup changed: #scheduledWindowGroups
WindowGroup.st
--- a/WindowGroup.st	Mon Nov 07 09:53:09 2016 +0100
+++ b/WindowGroup.st	Mon Nov 07 16:54:00 2016 +0100
@@ -416,7 +416,7 @@
             |wg|
 
             (wg := aView windowGroup) notNil ifTrue:[
-                wg process notNil ifTrue:[
+                (wg process notNil and:[wg process isDead not]) ifTrue:[
                     (set includes:wg) ifFalse:[
                         set add:wg.
                         coll add:wg.