equal
deleted
inserted
replaced
132 'XBMReader [warning]: short file' errorPrintCR. |
132 'XBMReader [warning]: short file' errorPrintCR. |
133 ^ nil |
133 ^ nil |
134 ]. |
134 ]. |
135 |
135 |
136 [line startsWith:'#'] whileFalse:[ |
136 [line startsWith:'#'] whileFalse:[ |
137 line := aStream nextLine |
137 line := aStream nextLine. |
|
138 line isNil ifTrue:[ |
|
139 ^ nil |
|
140 ]. |
138 ]. |
141 ]. |
139 |
142 |
140 (line startsWith:'#define') ifFalse:[ |
143 (line startsWith:'#define') ifFalse:[ |
141 'XBMReader [warning]: format error (expected #define)' errorPrintCR. |
144 'XBMReader [warning]: format error (expected #define)' errorPrintCR. |
142 ^ nil |
145 ^ nil |
211 |
214 |
212 " |
215 " |
213 XBMReader fromFile:'bitmaps/globe1.xbm' |
216 XBMReader fromFile:'bitmaps/globe1.xbm' |
214 " |
217 " |
215 |
218 |
216 "Modified: 10.1.1997 / 18:16:34 / cg" |
219 "Modified: 5.3.1997 / 21:53:28 / cg" |
217 ! ! |
220 ! ! |
218 |
221 |
219 !XBMReader methodsFor:'writing to file'! |
222 !XBMReader methodsFor:'writing to file'! |
220 |
223 |
221 save:image onFile:aFileName |
224 save:image onFile:aFileName |
300 ! ! |
303 ! ! |
301 |
304 |
302 !XBMReader class methodsFor:'documentation'! |
305 !XBMReader class methodsFor:'documentation'! |
303 |
306 |
304 version |
307 version |
305 ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.31 1997-02-27 11:49:56 cg Exp $' |
308 ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.32 1997-03-06 00:32:24 cg Exp $' |
306 ! ! |
309 ! ! |
307 XBMReader initialize! |
310 XBMReader initialize! |