changeset 5196 | f2b4c109c24f |
parent 5001 | 11cbbbcbc87e |
child 5439 | a94cc6a90ff0 |
--- a/Socket.st Sat Aug 31 16:12:38 2019 +0200 +++ b/Socket.st Tue Sep 03 08:56:50 2019 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1992 by Claus Gittinger All Rights Reserved @@ -3829,6 +3827,10 @@ and:[peer notNil] ! +isListening + ^ listening notNil +! + port "return the port number (or name for unix-sockets) to which the socket is bound - so this is the local port." @@ -4483,3 +4485,4 @@ version_CVS ^ '$Header$' ! ! +