--- a/WindowGroup.st Fri Mar 19 08:19:25 1999 +0100
+++ b/WindowGroup.st Fri Mar 19 08:28:30 1999 +0100
@@ -283,31 +283,31 @@
activeProcess := Processor activeProcess.
" caching the last value ..."
activeProcess == LastActiveProcess ifTrue:[
- LastActiveGroup process == LastActiveProcess ifTrue:[
- ^ LastActiveGroup
- ]
+ LastActiveGroup process == LastActiveProcess ifTrue:[
+ ^ LastActiveGroup
+ ]
].
- wg := WindowGroupQuerySignal raise.
+ wg := WindowGroupQuerySignal query.
wg isNil ifTrue:[
- "/ mhmh - noone willing to answer that question ...
- "/ (how can this happen ?)
- groups := self scheduledWindowGroups
- select:[:wg | wg process == activeProcess].
- groups size == 1 ifTrue:[
- wg := groups anElement
- ] ifFalse:[
- wg := groups detect:[:wg | wg isModal] ifNone:nil.
- wg isNil ifTrue:[
- wg := groups anElement
- ]
- ].
+ "/ mhmh - noone willing to answer that question ...
+ "/ (how can this happen ?)
+ groups := self scheduledWindowGroups
+ select:[:wg | wg process == activeProcess].
+ groups size == 1 ifTrue:[
+ wg := groups anElement
+ ] ifFalse:[
+ wg := groups detect:[:wg | wg isModal] ifNone:nil.
+ wg isNil ifTrue:[
+ wg := groups anElement
+ ]
+ ].
].
wg notNil ifTrue:[
- LastActiveProcess := activeProcess.
- LastActiveGroup := wg.
+ LastActiveProcess := activeProcess.
+ LastActiveGroup := wg.
].
^ wg
@@ -317,6 +317,7 @@
"Modified: / 3.9.1995 / 14:49:53 / claus"
"Modified: / 17.4.1998 / 11:49:28 / cg"
+ "Modified: / 18.3.1999 / 18:30:33 / stefan"
!
scheduledWindowGroups
@@ -2003,6 +2004,6 @@
!WindowGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.162 1999-03-18 17:17:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.163 1999-03-19 07:28:30 stefan Exp $'
! !
WindowGroup initialize!