equal
deleted
inserted
replaced
21 |
21 |
22 XBMReader comment:' |
22 XBMReader comment:' |
23 COPYRIGHT (c) 1992 by Claus Gittinger |
23 COPYRIGHT (c) 1992 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.13 1995-05-03 00:26:52 claus Exp $ |
26 $Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.14 1995-06-06 04:10:38 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !XBMReader class methodsFor:'documentation'! |
29 !XBMReader 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/XBMReader.st,v 1.13 1995-05-03 00:26:52 claus Exp $ |
47 $Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.14 1995-06-06 04:10:38 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
227 ^ nil. |
227 ^ nil. |
228 ]. |
228 ]. |
229 |
229 |
230 outStream := FileStream newFileNamed:aFileName. |
230 outStream := FileStream newFileNamed:aFileName. |
231 outStream isNil ifTrue:[ |
231 outStream isNil ifTrue:[ |
232 'create error' errorPrintNL. |
232 'XBMReader: create error' errorPrintNL. |
233 ^ nil |
233 ^ nil |
234 ]. |
234 ]. |
235 |
235 |
236 width := image width. |
236 width := image width. |
237 height := image height. |
237 height := image height. |