281 Processor isNil ifTrue:[^ nil]. "/ only during very early init phase |
281 Processor isNil ifTrue:[^ nil]. "/ only during very early init phase |
282 |
282 |
283 activeProcess := Processor activeProcess. |
283 activeProcess := Processor activeProcess. |
284 " caching the last value ..." |
284 " caching the last value ..." |
285 activeProcess == LastActiveProcess ifTrue:[ |
285 activeProcess == LastActiveProcess ifTrue:[ |
286 LastActiveGroup process == LastActiveProcess ifTrue:[ |
286 LastActiveGroup process == LastActiveProcess ifTrue:[ |
287 ^ LastActiveGroup |
287 ^ LastActiveGroup |
288 ] |
288 ] |
289 ]. |
289 ]. |
290 |
290 |
291 wg := WindowGroupQuerySignal raise. |
291 wg := WindowGroupQuerySignal query. |
292 |
292 |
293 wg isNil ifTrue:[ |
293 wg isNil ifTrue:[ |
294 "/ mhmh - noone willing to answer that question ... |
294 "/ mhmh - noone willing to answer that question ... |
295 "/ (how can this happen ?) |
295 "/ (how can this happen ?) |
296 groups := self scheduledWindowGroups |
296 groups := self scheduledWindowGroups |
297 select:[:wg | wg process == activeProcess]. |
297 select:[:wg | wg process == activeProcess]. |
298 groups size == 1 ifTrue:[ |
298 groups size == 1 ifTrue:[ |
299 wg := groups anElement |
299 wg := groups anElement |
300 ] ifFalse:[ |
300 ] ifFalse:[ |
301 wg := groups detect:[:wg | wg isModal] ifNone:nil. |
301 wg := groups detect:[:wg | wg isModal] ifNone:nil. |
302 wg isNil ifTrue:[ |
302 wg isNil ifTrue:[ |
303 wg := groups anElement |
303 wg := groups anElement |
304 ] |
304 ] |
305 ]. |
305 ]. |
306 ]. |
306 ]. |
307 |
307 |
308 wg notNil ifTrue:[ |
308 wg notNil ifTrue:[ |
309 LastActiveProcess := activeProcess. |
309 LastActiveProcess := activeProcess. |
310 LastActiveGroup := wg. |
310 LastActiveGroup := wg. |
311 ]. |
311 ]. |
312 ^ wg |
312 ^ wg |
313 |
313 |
314 " |
314 " |
315 WindowGroup activeGroup |
315 WindowGroup activeGroup |
316 " |
316 " |
317 |
317 |
318 "Modified: / 3.9.1995 / 14:49:53 / claus" |
318 "Modified: / 3.9.1995 / 14:49:53 / claus" |
319 "Modified: / 17.4.1998 / 11:49:28 / cg" |
319 "Modified: / 17.4.1998 / 11:49:28 / cg" |
|
320 "Modified: / 18.3.1999 / 18:30:33 / stefan" |
320 ! |
321 ! |
321 |
322 |
322 scheduledWindowGroups |
323 scheduledWindowGroups |
323 "return a collection of all windowGroups (possibly for different |
324 "return a collection of all windowGroups (possibly for different |
324 display devices) which are scheduled (i.e. which have a process |
325 display devices) which are scheduled (i.e. which have a process |