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