Protect #closeFile.
authorStefan Vogel <sv@exept.de>
Tue, 07 Sep 2004 01:27:31 +0200
changeset 1474 1ad407692b0b
parent 1473 1a6c411ba49f
child 1475 37c5fb7333f7
Protect #closeFile.
Socket.st
SoundStream.st
--- a/Socket.st	Fri Sep 03 13:24:52 2004 +0200
+++ b/Socket.st	Tue Sep 07 01:27:31 2004 +0200
@@ -2084,7 +2084,9 @@
 	 bindTo:9999
 	 address:nil
     "
-!
+! !
+
+!Socket protectedMethodsFor:'low level'!
 
 closeFile
     "low level close"
@@ -2110,7 +2112,9 @@
     }
 #endif
 %}
-!
+! !
+
+!Socket methodsFor:'low level'!
 
 getSocketError
     "get the SO_ERROR form the socket, which indicates the 
@@ -3143,5 +3147,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.199 2004-07-14 21:42:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.200 2004-09-06 23:27:31 stefan Exp $'
 ! !
--- a/SoundStream.st	Fri Sep 03 13:24:52 2004 +0200
+++ b/SoundStream.st	Tue Sep 07 01:27:31 2004 +0200
@@ -1533,7 +1533,7 @@
     "
 ! !
 
-!SoundStream methodsFor:'redefined'!
+!SoundStream protectedMethodsFor:'redefined'!
 
 closeFile
     "a stream has been collected - close the file"
@@ -1645,7 +1645,9 @@
 #endif /* DEV_AUDIO */
 %}.
     ^ super closeFile
-!
+! !
+
+!SoundStream methodsFor:'redefined'!
 
 flush
     "wait until all sound has been played"
@@ -2660,7 +2662,7 @@
 !SoundStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.64 2004-04-21 14:11:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.65 2004-09-06 23:26:40 stefan Exp $'
 ! !
 
 SoundStream initialize!