# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377205704 -7200
# Node ID 1a2751687549338d6ee83a83c8cd4a70c70e11f4
# Parent  b0f2ee9335479bf51acaae737e02f6c510a08268
class: WindowGroup
changed:
        #mainGroup:
        #setPreviousGroup:
        #startupModal:forGroup:

diff -r b0f2ee933547 -r 1a2751687549 WindowGroup.st
--- a/WindowGroup.st	Thu Aug 22 22:50:00 2013 +0200
+++ b/WindowGroup.st	Thu Aug 22 23:08:24 2013 +0200
@@ -584,6 +584,7 @@
      Exposeevents for that windowGroup will be handled by this group
      as well."
 
+    self assert:(aWindowGroup ~~ self).
     previousGroup := aWindowGroup
 
     "Created: 20.8.1997 / 17:57:35 / cg"
@@ -1007,7 +1008,10 @@
 
     "set previousGroup to the main (non-modal) group"
 
-    previousGroup isNil ifTrue:[previousGroup := mainGroup].
+    previousGroup isNil ifTrue:[
+        self assert:(mainGroup ~~ self).
+        previousGroup := mainGroup
+    ].
     prevGroup := previousGroup.
     prevGroup notNil ifTrue:[
         "/ remember current grab, in case I am opened by
@@ -2573,6 +2577,7 @@
      set the windowgroup that started this group (for modal groups only).
      This is not a public interface."
 
+    self assert:(aGroup ~~ self).
     previousGroup := aGroup
 
     "Modified: 3.9.1995 / 14:55:40 / claus"
@@ -2769,11 +2774,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.319 2013-07-13 20:49:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.319 2013-07-13 20:49:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $'
 ! !