author | Claus Gittinger <cg@exept.de> |
Mon, 07 Nov 2016 16:54:00 +0100 | |
changeset 7672 | ef23e698c67e |
parent 7671 | 465f33f58b2e |
child 7673 | 8fcc7f754c03 |
WindowGroup.st | file | annotate | diff | comparison | revisions |
--- 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.