--- a/ProcessMonitor.st Thu Feb 29 00:47:48 1996 +0100
+++ b/ProcessMonitor.st Thu Feb 29 03:34:41 1996 +0100
@@ -238,10 +238,10 @@
con notNil ifTrue:[
c := con.
+ found := false.
running ifFalse:[
"/ search for a semaphore-wait in the top 10 contexts
- found := false.
1 to:10 do:[:n |
found ifFalse:[
c notNil ifTrue:[
@@ -254,23 +254,25 @@
]
]
].
- found ifFalse:[
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver ~~ Processor) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
+ ].
+ found ifFalse:[
+ "/ search for a non-processor receiver in the top 10 contexts
+
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver ~~ Processor) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
]
]
]
- ].
- found ifFalse:[
- c := con
- ].
+ ]
+ ].
+ found ifFalse:[
+ c := con
].
[c notNil and:[c isBlockContext]] whileTrue:[
@@ -311,7 +313,7 @@
Processor addTimedBlock:updateBlock afterSeconds:updateDelay
]
- "Modified: 23.12.1995 / 17:40:21 / cg"
+ "Modified: 29.2.1996 / 03:33:25 / cg"
!
updateView
@@ -620,4 +622,4 @@
!ProcessMonitor class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.30 1996-02-28 14:43:10 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.31 1996-02-29 02:34:41 cg Exp $'! !