SoundStream.st
changeset 1432 077bf1bfc8c4
parent 1422 59ad87529b94
child 1446 c59e6816f4b8
--- 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!