--- a/FLIReader.st	Fri Apr 04 22:34:03 1997 +0200
+++ b/FLIReader.st	Fri Apr 04 22:46:41 1997 +0200
@@ -165,7 +165,7 @@
 brunChunkAt:chunkOffs
     |offs lineIdx nextLineIdx packets sz|
 
-    'brunChunkAt' infoPrintCR.
+"/    'brunChunkAt' infoPrintCR.
 
     imageBuffer := ByteArray uninitializedNew:(width*height).
 
@@ -202,27 +202,27 @@
      FLIReader imagesFromFile:'/usr/local/FLI/jeffmild.fli'      
     "
 
-    "Modified: 4.4.1997 / 21:43:12 / cg"
+    "Modified: 4.4.1997 / 22:45:37 / cg"
 !
 
 color256ChunkAt:chunkOffs
-    'color256Chunk' infoPrintCR.
+"/    'color256Chunk' infoPrintCR.
     self colorChunkAt:chunkOffs shift:0
 
-    "Modified: 3.4.1997 / 22:49:45 / cg"
+    "Modified: 4.4.1997 / 22:45:42 / cg"
 !
 
 color64ChunkAt:chunkOffs
-    'color64Chunk' infoPrintCR.
+"/    'color64Chunk' infoPrintCR.
     self colorChunkAt:chunkOffs shift:2
 
-    "Modified: 3.4.1997 / 22:49:41 / cg"
+    "Modified: 4.4.1997 / 22:45:45 / cg"
 !
 
 colorChunkAt:chunkOffs shift:colorShift
     |b0 b1 packets offs ic skip change red green blue|
 
-    '  colorChunk' infoPrintCR.
+"/    '  colorChunk' infoPrintCR.
 
     offs := chunkOffs.
     packets := frameBuffer wordAt:offs. offs := offs + 2.
@@ -255,19 +255,20 @@
      FLIReader fromFile:'/usr/local/FLI/jeffmild.fli'      
     "
 
-    "Modified: 4.4.1997 / 12:23:06 / cg"
+    "Modified: 4.4.1997 / 22:45:49 / cg"
 !
 
 deltaChunkAt:chunkOffs
-    'deltaChunkAt' infoPrintCR.
+"/    'deltaChunkAt' infoPrintCR.
+    self halt:'not yet implemented'
 
-    "Modified: 3.4.1997 / 22:36:13 / cg"
+    "Modified: 4.4.1997 / 22:46:11 / cg"
 !
 
 lcChunkAt:chunkOffs
     |jnext lines lineCnt offs lineIdx packets idx skip sz|
 
-    'lcChunkAt' infoPrintCR.
+"/    'lcChunkAt' infoPrintCR.
 
     imageBuffer := imageBuffer copyFrom:1 to:(width*height).
 
@@ -310,7 +311,7 @@
     ].
     frames add:imageBuffer.
 
-    "Modified: 4.4.1997 / 21:32:56 / cg"
+    "Modified: 4.4.1997 / 22:46:15 / cg"
 !
 
 processChunks:nchunks size:dataLen
@@ -361,7 +362,7 @@
 !FLIReader methodsFor:'reading from stream'!
 
 fromStream:aStream
-    "read a FLI-movie from aStream. Return a frame sequence."
+    "read a FLI-movie from aStream."
 
     inStream := aStream.
 
@@ -388,7 +389,7 @@
      FLIReader fromFile:'/usr/local/FLI/jeffmild.fli'      
     "
 
-    "Modified: 4.4.1997 / 21:36:14 / cg"
+    "Modified: 4.4.1997 / 22:45:32 / cg"
 !
 
 getFrame
@@ -431,7 +432,7 @@
 !
 
 getHeader
-    "return true, if aFileName contains a FLI-movie"
+    "read the header; return true, if its valid"
 
     |header n len type speed|
 
@@ -485,12 +486,12 @@
     "
 
     "Created: 3.4.1997 / 22:09:12 / cg"
-    "Modified: 4.4.1997 / 22:31:11 / cg"
+    "Modified: 4.4.1997 / 22:45:20 / cg"
 ! !
 
 !FLIReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.2 1997-04-04 20:34:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.3 1997-04-04 20:46:41 cg Exp $'
 ! !
 FLIReader initialize!