diff -r cfe34e335f2c -r f2b4c109c24f Socket.st --- 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$' ! ! +