ProcessMonitor.st
changeset 409 86125c414826
parent 322 e3ccd5e431df
child 413 715a6a18f825
equal deleted inserted replaced
408:33b1b3dfdac4 409:86125c414826
   243 
   243 
   244                                 found := false.
   244                                 found := false.
   245                                 1 to:10 do:[:n |
   245                                 1 to:10 do:[:n |
   246                                     found ifFalse:[
   246                                     found ifFalse:[
   247                                         c notNil ifTrue:[
   247                                         c notNil ifTrue:[
   248                                             (c receiver isMemberOf:Semaphore) ifTrue:[
   248                                             (c receiver class == Semaphore) ifTrue:[
   249                                                 c selector == #wait ifTrue:[
   249                                                 c selector == #wait ifTrue:[
   250                                                     found := true.
   250                                                     found := true.
   251                                                 ]
   251                                                 ]
   252                                             ].
   252                                             ].
   253                                             c := c sender.
   253                                             c := c sender.
   618 ! !
   618 ! !
   619 
   619 
   620 !ProcessMonitor class methodsFor:'documentation'!
   620 !ProcessMonitor class methodsFor:'documentation'!
   621 
   621 
   622 version
   622 version
   623 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.29 1995-12-23 17:42:32 cg Exp $'! !
   623 ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.30 1996-02-28 14:43:10 cg Exp $'! !