--- 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 $'
! !