--- a/WinIconRdr.st Sat Mar 25 23:11:46 1995 +0100
+++ b/WinIconRdr.st Sat Mar 25 23:16:24 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.11 1995-02-18 15:52:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.12 1995-03-25 22:15:59 claus Exp $
'!
!WindowsIconReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.11 1995-02-18 15:52:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.12 1995-03-25 22:15:59 claus Exp $
"
!
@@ -60,7 +60,7 @@
Image fileFormats at:'.ico' put:self.
! !
-!WindowsIconReader class methodsFor:'reading from file'!
+!WindowsIconReader methodsFor:'reading from file'!
fromOS2File: aFilename
|reader stream|
--- a/WindowsIconReader.st Sat Mar 25 23:11:46 1995 +0100
+++ b/WindowsIconReader.st Sat Mar 25 23:16:24 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.11 1995-02-18 15:52:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.12 1995-03-25 22:15:59 claus Exp $
'!
!WindowsIconReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.11 1995-02-18 15:52:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.12 1995-03-25 22:15:59 claus Exp $
"
!
@@ -60,7 +60,7 @@
Image fileFormats at:'.ico' put:self.
! !
-!WindowsIconReader class methodsFor:'reading from file'!
+!WindowsIconReader methodsFor:'reading from file'!
fromOS2File: aFilename
|reader stream|
--- a/XBMReader.st Sat Mar 25 23:11:46 1995 +0100
+++ b/XBMReader.st Sat Mar 25 23:16:24 1995 +0100
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.11 1995-03-23 16:53:49 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.12 1995-03-25 22:16:24 claus Exp $
'!
!XBMReader class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.11 1995-03-23 16:53:49 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.12 1995-03-25 22:16:24 claus Exp $
"
!
@@ -179,10 +179,14 @@
line := aStream nextLine.
[line startsWith:'#'] whileTrue:[
- line := aStream nextLine
+ line := aStream nextLine.
].
+ [line notNil and:[(line startsWith:'static') not]] whileTrue:[
+ line := aStream nextLine.
+ ].
line := aStream nextLine.
+
[line notNil] whileTrue:[
index := 1.
[index ~~ 0] whileTrue:[