--- a/SoundStream.st Sat Mar 20 16:00:26 2004 +0100
+++ b/SoundStream.st Sat Mar 20 16:28:21 2004 +0100
@@ -734,7 +734,7 @@
soundStream := self writing.
soundStream isNil ifTrue:[self error:'cannot open sound device'].
- startTime := AbsoluteTime now.
+ startTime := Timestamp now.
totalCount := 0.
buffer := ByteArray new:4096.
@@ -750,7 +750,7 @@
"/ at least the linux audio driver behaves funny, if we close too early ...
"/
playTime := totalCount / soundStream sampleRate.
- delayedTime := (AbsoluteTime now getSeconds - startTime getSeconds).
+ delayedTime := (Timestamp now getSeconds - startTime getSeconds).
waitTime := playTime - delayedTime + 0.1.
(Delay forSeconds:waitTime) wait.
@@ -2660,7 +2660,7 @@
!SoundStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.62 2004-03-09 11:24:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.63 2004-03-20 15:28:21 stefan Exp $'
! !
SoundStream initialize!