diff -r e7de49fefa9a -r 71e5142091fc WindowGroup.st
--- a/WindowGroup.st	Sat Aug 24 14:39:27 2013 +0200
+++ b/WindowGroup.st	Thu Aug 29 12:32:36 2013 +0200
@@ -15,9 +15,9 @@
 	instanceVariableNames:'graphicsDevice views topViews myProcess mySensor isModal
 		previousGroup focusView focusSequence preEventHook postEventHook
 		pointerView isForModalSubview focusByTab groupHasFocus busyHook
-		busyHookTimeout inModalLoop preEventHooks postEventHooks
-		creatingProcess traceEvents processPriority inWithCursorDoBlock
-		doNotCloseOnAbortSignal'
+		busyHookTimeout inModalLoop isDebugged preEventHooks
+		postEventHooks creatingProcess traceEvents processPriority
+		inWithCursorDoBlock doNotCloseOnAbortSignal'
 	classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal
 		WindowGroupQuerySignal LastEventQuerySignal BusyHookTime'
 	poolDictionaries:''
@@ -155,7 +155,15 @@
 
         mySensor                my input sensor
 
-        isModal                 true if this is for a modal box
+        isModal                 true if this is for a modal box; i.e. running a separate
+                                modal event loop on top of another window group.
+                                Those execute in the same process as the underlying group
+
+        inModalLoop             true if this group's event processing is currently suspended
+                                because I have opened a modal window (with its own 'isModal'
+                                group) which handles events for a while.
+
+        isDebugged              true if a debugger sits on top of me
 
         previousGroup           if modal, the group that started this one
 
@@ -540,6 +548,23 @@
     "Modified: / 9.7.1998 / 18:18:08 / cg"
 !
 
+isDebugged
+    "return true, if the receiver has a debugger sitting on top of me,
+     so I do not have control"
+
+    ^ isDebugged ? false
+
+    "Created: / 28-08-2013 / 21:51:33 / cg"
+!
+
+isDebugged:aBoolean
+    "only set by the debugger to mark the currently active group as being debugged"
+
+    isDebugged := aBoolean
+
+    "Created: / 28-08-2013 / 21:52:35 / cg"
+!
+
 isInModalLoop
     "return true, if the receiver has given up control to some other modal windowGroup
      (i.e. if it has popped up a modal dialog or a popUpMenu)"
@@ -2774,11 +2799,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
 ! !