Protect #closeFile.
--- 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!