# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1180987489 -7200
# Node ID e0d23764c8098b47dbc5bb67d6c6c8381dba5963
# Parent  4d424e94093c668cbe4eb799aa4be5b469c9e69a
*** empty log message ***

diff -r 4d424e94093c -r e0d23764c809 Socket.st
--- a/Socket.st	Mon Jun 04 21:44:03 2007 +0200
+++ b/Socket.st	Mon Jun 04 22:04:49 2007 +0200
@@ -1515,6 +1515,12 @@
     ^ self canReadWithoutBlocking
 !
 
+destroy
+    self close
+
+    "Created: / 04-06-2007 / 21:29:03 / cg"
+!
+
 listenOn:aPortNr
     self listenOn:aPortNr backlogSize:5
 
@@ -1584,6 +1590,12 @@
 
 waitForConnectionUntil:aMillisecondClockValue
     self shouldImplement.
+!
+
+waitForData
+    self readWait
+
+    "Created: / 04-06-2007 / 21:28:40 / cg"
 ! !
 
 !Socket methodsFor:'closing'!
@@ -4003,5 +4015,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.239 2007-06-04 19:44:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.240 2007-06-04 20:04:49 cg Exp $'
 ! !