equal
deleted
inserted
replaced
21 |
21 |
22 SunRasterReader comment:' |
22 SunRasterReader comment:' |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.12 1995-02-18 17:55:37 claus Exp $ |
26 $Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.13 1995-07-02 16:17:30 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !SunRasterReader class methodsFor:'documentation'! |
29 !SunRasterReader 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/libview2/SunRasterReader.st,v 1.12 1995-02-18 17:55:37 claus Exp $ |
47 $Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.13 1995-07-02 16:17:30 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
76 ((inStream nextWord == 16r59A6) |
76 ((inStream nextWord == 16r59A6) |
77 and:[inStream nextWord == 16r6A95]) ifTrue: [ |
77 and:[inStream nextWord == 16r6A95]) ifTrue: [ |
78 inStream close. |
78 inStream close. |
79 ^ true |
79 ^ true |
80 ]. |
80 ]. |
|
81 |
|
82 inStream isPositionable ifFalse:[^ false]. |
81 |
83 |
82 "try sun bitmap image format" |
84 "try sun bitmap image format" |
83 inStream text. |
85 inStream text. |
84 inStream reset. |
86 inStream reset. |
85 |
87 |