--- a/FLIReader.st Mon Apr 21 21:05:36 1997 +0200
+++ b/FLIReader.st Mon Apr 21 21:16:58 1997 +0200
@@ -116,6 +116,13 @@
!FLIReader class methodsFor:'class initialization'!
initialize
+ "install myself in the Image classes fileFormat table
+ for the `.fli' and '.flc' extensions."
+
+"/ Image addReader:self suffix:'fli'.
+"/ Image addReader:self suffix:'flc'.
+
+
FLI_FILE_MAGIC := 16rAF11.
FLC_FILE_MAGIC := 16rAF12.
@@ -140,7 +147,7 @@
FLIReader initialize
"
- "Modified: 4.4.1997 / 22:19:45 / cg"
+ "Modified: 21.4.1997 / 21:16:48 / cg"
! !
!FLIReader class methodsFor:'testing'!
@@ -320,9 +327,10 @@
deltaChunkAt:chunkOffs
"/ 'deltaChunkAt' infoPrintCR.
- self halt:'FLI delta chunks not yet implemented'
- "Modified: 21.4.1997 / 17:30:29 / cg"
+ Image badImageFormatQuerySignal raiseErrorString:'FLIReader [error]: delta chunks not yet implemented'
+
+ "Modified: 21.4.1997 / 21:15:05 / cg"
!
lcChunkAt:chunkOffs
@@ -428,8 +436,13 @@
(self getHeader) ifFalse:[^ nil].
- 1 to:nframes do:[:frameIndex |
- self getFrame
+ Image badImageFormatQuerySignal handle:[:ex |
+ ex errorString infoPrintCR.
+ ^ nil
+ ] do:[
+ 1 to:nframes do:[:frameIndex |
+ self getFrame
+ ]
].
"/ return the first frame as image
@@ -449,7 +462,7 @@
FLIReader fromFile:'/usr/local/FLI/jeffmild.fli'
"
- "Modified: 4.4.1997 / 22:45:32 / cg"
+ "Modified: 21.4.1997 / 21:14:29 / cg"
!
getFrame
@@ -552,6 +565,6 @@
!FLIReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.5 1997-04-21 16:57:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.6 1997-04-21 19:16:58 cg Exp $'
! !
FLIReader initialize!