--- a/RIFFReader.st	Fri Dec 15 17:05:59 2000 +0100
+++ b/RIFFReader.st	Fri Dec 15 21:27:07 2000 +0100
@@ -53,6 +53,17 @@
 "
 ! !
 
+!RIFFReader class methodsFor:'instance creation'!
+
+fromFile:aFilename
+    |s reader|
+
+    s := aFilename asFilename readStream.
+    reader := self new fromStream:s.
+    s close.
+    ^ reader
+! !
+
 !RIFFReader class methodsFor:'class initialization'!
 
 initialize
@@ -167,7 +178,7 @@
 
     "
      RIFFReader fromFile:'/phys/exept/home/pd_stuff/movies/avi/hangldm.avi'      
-     RIFFReader fromFile:'/phys/exept/opt/office52/share/gallery/sounds/gong.wav'      
+     RIFFReader fromFile:'../../goodies/sounds/testSounds/wav/gong.wav'      
 
      AVIReader fromFile:'/phys/exept/home/pd_stuff/movies/avi/hangldm.avi'      
      WAVFileReader fromFile:'/phys/exept/opt/office52/share/gallery/sounds/gong.wav'      
@@ -269,9 +280,11 @@
 getChunk_RIFF:chunkSize
     "process a RIFF chunk"
 
-    'getChunk_RIFF' infoPrint.
+    'getChunk_RIFF' infoPrintCR.
 
     fileType := (inStream next:4) asString.
+
+    'fileType -> ' infoPrint. fileType infoPrint.
 !
 
 getChunk_Unknown:chunkSize
@@ -320,6 +333,6 @@
 !RIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.5 2000-11-23 18:40:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/RIFFReader.st,v 1.6 2000-12-15 20:27:07 cg Exp $'
 ! !
 RIFFReader initialize!