--- 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:[