--- a/SoundStr.st Wed Feb 15 11:21:53 1995 +0100
+++ b/SoundStr.st Wed Feb 15 11:29:31 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.12 1995-02-05 23:38:40 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.13 1995-02-15 10:29:26 claus Exp $
'!
!SoundStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.12 1995-02-05 23:38:40 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.13 1995-02-15 10:29:26 claus Exp $
"
!
@@ -561,7 +561,7 @@
else
ALsetwidth(config, AL_SAMPLE_8);
- if (_isSmallInteger(_INST(sampleRate)))
+ if (__isSmallInteger(_INST(sampleRate)))
params[3] = params[5] = _intVal(_INST(sampleRate));
ALsetparams(AL_DEFAULT_DEVICE, params, 6);
@@ -651,7 +651,7 @@
if (_INST(filePointer) != nil) {
if (_INST(mode) != _readonly) {
- if (_isSmallInteger(count) && _isSmallInteger(start)) {
+ if (__bothSmallInteger(count, start)) {
cnt = _intVal(count);
offs = _intVal(start) - 1;
p = MKAUDIO(_INST(filePointer));
@@ -698,7 +698,7 @@
if (_INST(filePointer) != nil) {
if (_INST(mode) != _writeonly) {
- if (_isSmallInteger(count) && _isSmallInteger(start)) {
+ if (__bothSmallInteger(count, start)) {
cnt = _intVal(count);
offs = _intVal(start) - 1;
p = MKAUDIO(_INST(filePointer));