dont send #isMemberOf: to the receiver (could be nil-subclass)
authorClaus Gittinger <cg@exept.de>
Wed, 28 Feb 1996 15:43:10 +0100
changeset 409 86125c414826
parent 408 33b1b3dfdac4
child 410 5564d9d6d063
dont send #isMemberOf: to the receiver (could be nil-subclass)
ProcMonitor.st
ProcessMonitor.st
--- a/ProcMonitor.st	Tue Feb 27 17:55:02 1996 +0100
+++ b/ProcMonitor.st	Wed Feb 28 15:43:10 1996 +0100
@@ -245,7 +245,7 @@
                                 1 to:10 do:[:n |
                                     found ifFalse:[
                                         c notNil ifTrue:[
-                                            (c receiver isMemberOf:Semaphore) ifTrue:[
+                                            (c receiver class == Semaphore) ifTrue:[
                                                 c selector == #wait ifTrue:[
                                                     found := true.
                                                 ]
@@ -620,4 +620,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.29 1995-12-23 17:42:32 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.30 1996-02-28 14:43:10 cg Exp $'! !
--- a/ProcessMonitor.st	Tue Feb 27 17:55:02 1996 +0100
+++ b/ProcessMonitor.st	Wed Feb 28 15:43:10 1996 +0100
@@ -245,7 +245,7 @@
                                 1 to:10 do:[:n |
                                     found ifFalse:[
                                         c notNil ifTrue:[
-                                            (c receiver isMemberOf:Semaphore) ifTrue:[
+                                            (c receiver class == Semaphore) ifTrue:[
                                                 c selector == #wait ifTrue:[
                                                     found := true.
                                                 ]
@@ -620,4 +620,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.29 1995-12-23 17:42:32 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.30 1996-02-28 14:43:10 cg Exp $'! !