equal
deleted
inserted
replaced
21 |
21 |
22 ImageReader comment:' |
22 ImageReader comment:' |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libview/ImageReader.st,v 1.11 1994-11-17 14:29:36 claus Exp $ |
26 $Header: /cvs/stx/stx/libview/ImageReader.st,v 1.12 1995-02-06 00:37:26 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !ImageReader class methodsFor:'documentation'! |
29 !ImageReader class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libview/ImageReader.st,v 1.11 1994-11-17 14:29:36 claus Exp $ |
47 $Header: /cvs/stx/stx/libview/ImageReader.st,v 1.12 1995-02-06 00:37:26 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
144 ] |
144 ] |
145 ] ifFalse:[ |
145 ] ifFalse:[ |
146 inStream := FileStream readonlyFileNamed:aFilename. |
146 inStream := FileStream readonlyFileNamed:aFilename. |
147 ]. |
147 ]. |
148 inStream isNil ifTrue:[ |
148 inStream isNil ifTrue:[ |
149 'open error on: ' print. aFilename errorPrintNewline. |
149 'IMGREADER: open error on: ' errorPrint. aFilename errorPrintNL. |
150 ]. |
150 ]. |
151 ^ inStream |
151 ^ inStream |
152 ! ! |
152 ! ! |
153 |
153 |
154 !ImageReader methodsFor:'accessing'! |
154 !ImageReader methodsFor:'accessing'! |
326 %} |
326 %} |
327 . |
327 . |
328 self primitiveFailed |
328 self primitiveFailed |
329 ! ! |
329 ! ! |
330 |
330 |
331 !ImageReader class primitiveFunctions! |
331 !ImageReader primitiveFunctions! |
332 |
332 |
333 %{ |
333 %{ |
334 |
334 |
335 /* |
335 /* |
336 * ccitt decompression |
336 * ccitt decompression |