Server: Make listenOn listen on the Socket

2010-11-07 22:01:44 +01:00 · 2010-11-07 22:01:44 +01:00 · 0870c9ff09
parent 832ab76d7f
commit 0870c9ff09
1 changed files with 3 additions and 1 deletions
--- a/Server.st
+++ b/Server.st
@ -18,7 +18,9 @@ Object subclass: IPAServer [

    IPAServer class >> listenOn: anAddr port: aPort [
        ^ (self new)
-            addr: anAddr port: aPort.
+            addr: anAddr port: aPort;
+            listen;
+            yourself
    ]

    addr: anAddr port: aPort [