changeset 7672 | ef23e698c67e |
parent 7665 | 54b3c033dace |
child 7676 | 4b802958bc37 |
--- 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.