# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377787247 -7200
# Node ID 6a3c7f771d1d2f947c0cc5e391c7fc7d949f8ba2
# Parent  3d48897de0c70990d7213781f28f6ae6b2f43186
class: WindowGroup
comment/format in: #isDebugged:
changed: #setActiveGroup:

diff -r 3d48897de0c7 -r 6a3c7f771d1d WindowGroup.st
--- a/WindowGroup.st	Thu Aug 29 16:37:56 2013 +0200
+++ b/WindowGroup.st	Thu Aug 29 16:40:47 2013 +0200
@@ -428,8 +428,14 @@
     "set the currently active windowGroup.
      Temporary; do not use this interface, it will vanish."
 
-    LastActiveProcess := Processor activeProcess.
-    LastActiveGroup := aGroup
+    aGroup isNil ifTrue:[
+        LastActiveProcess := LastActiveGroup := nil.
+    ] ifFalse:[
+        LastActiveProcess := Processor activeProcess.
+        LastActiveGroup := aGroup
+    ].
+
+    "Modified: / 29-08-2013 / 14:49:11 / cg"
 ! !
 
 !WindowGroup class methodsFor:'focus control support'!
@@ -2799,11 +2805,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
 ! !