equal
deleted
inserted
replaced
13 |
13 |
14 Object subclass:#WindowGroup |
14 Object subclass:#WindowGroup |
15 instanceVariableNames:'graphicsDevice views topViews myProcess mySensor isModal |
15 instanceVariableNames:'graphicsDevice views topViews myProcess mySensor isModal |
16 previousGroup focusView focusSequence preEventHook postEventHook |
16 previousGroup focusView focusSequence preEventHook postEventHook |
17 pointerView isForModalSubview focusByTab groupHasFocus busyHook |
17 pointerView isForModalSubview focusByTab groupHasFocus busyHook |
18 busyHookTimeout inModalLoop preEventHooks postEventHooks |
18 busyHookTimeout inModalLoop isDebugged preEventHooks |
19 creatingProcess traceEvents processPriority inWithCursorDoBlock |
19 postEventHooks creatingProcess traceEvents processPriority |
20 doNotCloseOnAbortSignal' |
20 inWithCursorDoBlock doNotCloseOnAbortSignal' |
21 classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal |
21 classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal |
22 WindowGroupQuerySignal LastEventQuerySignal BusyHookTime' |
22 WindowGroupQuerySignal LastEventQuerySignal BusyHookTime' |
23 poolDictionaries:'' |
23 poolDictionaries:'' |
24 category:'Interface-Support-UI' |
24 category:'Interface-Support-UI' |
25 ! |
25 ! |
153 |
153 |
154 myProcess the process executing the events |
154 myProcess the process executing the events |
155 |
155 |
156 mySensor my input sensor |
156 mySensor my input sensor |
157 |
157 |
158 isModal true if this is for a modal box |
158 isModal true if this is for a modal box; i.e. running a separate |
|
159 modal event loop on top of another window group. |
|
160 Those execute in the same process as the underlying group |
|
161 |
|
162 inModalLoop true if this group's event processing is currently suspended |
|
163 because I have opened a modal window (with its own 'isModal' |
|
164 group) which handles events for a while. |
|
165 |
|
166 isDebugged true if a debugger sits on top of me |
159 |
167 |
160 previousGroup if modal, the group that started this one |
168 previousGroup if modal, the group that started this one |
161 |
169 |
162 focusView the one that has the keyboard focus (or nil) |
170 focusView the one that has the keyboard focus (or nil) |
163 |
171 |
536 ^ previousGroup graphicsDevice |
544 ^ previousGroup graphicsDevice |
537 ]. |
545 ]. |
538 ^ nil |
546 ^ nil |
539 |
547 |
540 "Modified: / 9.7.1998 / 18:18:08 / cg" |
548 "Modified: / 9.7.1998 / 18:18:08 / cg" |
|
549 ! |
|
550 |
|
551 isDebugged |
|
552 "return true, if the receiver has a debugger sitting on top of me, |
|
553 so I do not have control" |
|
554 |
|
555 ^ isDebugged ? false |
|
556 |
|
557 "Created: / 28-08-2013 / 21:51:33 / cg" |
|
558 ! |
|
559 |
|
560 isDebugged:aBoolean |
|
561 "only set by the debugger to mark the currently active group as being debugged" |
|
562 |
|
563 isDebugged := aBoolean |
|
564 |
|
565 "Created: / 28-08-2013 / 21:52:35 / cg" |
541 ! |
566 ! |
542 |
567 |
543 isInModalLoop |
568 isInModalLoop |
544 "return true, if the receiver has given up control to some other modal windowGroup |
569 "return true, if the receiver has given up control to some other modal windowGroup |
545 (i.e. if it has popped up a modal dialog or a popUpMenu)" |
570 (i.e. if it has popped up a modal dialog or a popUpMenu)" |
2772 ! ! |
2797 ! ! |
2773 |
2798 |
2774 !WindowGroup class methodsFor:'documentation'! |
2799 !WindowGroup class methodsFor:'documentation'! |
2775 |
2800 |
2776 version |
2801 version |
2777 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $' |
2802 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $' |
2778 ! |
2803 ! |
2779 |
2804 |
2780 version_CVS |
2805 version_CVS |
2781 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.320 2013-08-22 21:08:24 cg Exp $' |
2806 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $' |
2782 ! ! |
2807 ! ! |
2783 |
2808 |
2784 |
2809 |
2785 WindowGroup initialize! |
2810 WindowGroup initialize! |