changeset 4506 | 9ea05177d1f7 |
parent 4497 | bf5e9d5ec532 |
child 4568 | c2b933093d63 |
--- a/Socket.st Fri Aug 11 11:24:22 2017 +0200 +++ b/Socket.st Tue Aug 22 20:35:21 2017 +0200 @@ -3763,7 +3763,6 @@ " ! ! - !Socket methodsFor:'specials'! linger:anIntegerOrNil @@ -4039,6 +4038,14 @@ ^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil. ! ! +!Socket methodsFor:'testing'! + +isSocket + "return true, if the receiver is some kind of socket; + false returned here - the method is only redefined in Socket." + + ^ true +! ! !Socket methodsFor:'waiting'!