equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Object subclass:#WindowGroup |
13 Object subclass:#WindowGroup |
14 instanceVariableNames:'views topViews myProcess mySensor isModal previousGroup focusView |
14 instanceVariableNames:'views topViews myProcess mySensor isModal previousGroup focusView |
15 focusSequence preEventHook postEventHook' |
15 focusSequence preEventHook postEventHook' |
16 classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal' |
16 classVariableNames:'LastActiveGroup LastActiveProcess LeaveSignal' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-Support' |
18 category:'Interface-Support' |
19 ! |
19 ! |
20 |
20 |
339 topViews := nil |
339 topViews := nil |
340 ] |
340 ] |
341 ]. |
341 ]. |
342 " |
342 " |
343 wakeup my process to look if last view has been |
343 wakeup my process to look if last view has been |
344 removed (and terminate if so) |
344 removed (modalBoxes terminate their modalLoop if so) |
345 " |
345 " |
346 mySensor notNil ifTrue:[mySensor eventSemaphore signal] |
346 mySensor notNil ifTrue:[ |
|
347 (sema := mySensor eventSemaphore) notNil ifTrue:[ |
|
348 sema signal |
|
349 ] |
|
350 ] |
347 ! |
351 ! |
348 |
352 |
349 sensor |
353 sensor |
350 "return the windowGroups sensor" |
354 "return the windowGroups sensor" |
351 |
355 |
988 ! ! |
992 ! ! |
989 |
993 |
990 !WindowGroup class methodsFor:'documentation'! |
994 !WindowGroup class methodsFor:'documentation'! |
991 |
995 |
992 version |
996 version |
993 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.37 1995-11-23 17:44:52 cg Exp $' |
997 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.38 1995-11-24 18:34:49 cg Exp $' |
994 ! ! |
998 ! ! |
995 WindowGroup initialize! |
999 WindowGroup initialize! |