equal
deleted
inserted
replaced
169 (line notNil and:[line startsWith:'/* XPM']) ifFalse:[ |
169 (line notNil and:[line startsWith:'/* XPM']) ifFalse:[ |
170 ^ self fileFormatError:'format error (expected XPM)'. |
170 ^ self fileFormatError:'format error (expected XPM)'. |
171 ]. |
171 ]. |
172 |
172 |
173 line := aStream nextLine. |
173 line := aStream nextLine. |
174 [line notNil and:[(line startsWith:'/*') or:[line isBlank]]] whileTrue:[ |
174 [line notNil and:[(line startsWith:'/*') or:[line isBlank or:[(line startsWith:' *')]]]] whileTrue:[ |
175 line := aStream nextLine. |
175 line := aStream nextLine. |
176 ]. |
176 ]. |
177 (line notNil and:[line startsWith:'static char']) ifFalse:[ |
177 (line notNil and:[line startsWith:'static char']) ifFalse:[ |
178 ^ self fileFormatError:'format error (expected static char)'. |
178 ^ self fileFormatError:'format error (expected static char)'. |
179 ]. |
179 ]. |
570 ! ! |
570 ! ! |
571 |
571 |
572 !XPMReader class methodsFor:'documentation'! |
572 !XPMReader class methodsFor:'documentation'! |
573 |
573 |
574 version |
574 version |
575 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.47 2001-11-15 11:09:54 penk Exp $' |
575 ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.48 2002-10-25 18:27:20 cg Exp $' |
576 ! ! |
576 ! ! |
|
577 |
577 XPMReader initialize! |
578 XPMReader initialize! |