--- a/ToolApplicationModel.st Fri Jan 24 17:34:07 2003 +0100
+++ b/ToolApplicationModel.st Fri Jan 24 21:48:20 2003 +0100
@@ -85,9 +85,9 @@
line := s nextLine. "/ line after [author:]
lines := OrderedCollection new.
[line notNil and:[line notEmpty]] whileTrue:[
- line := line trimBlanks.
+ line := line withoutSeparators.
line size > 1 ifTrue:[
- lines add:line trimBlanks.
+ lines add:line withoutSeparators.
line := s nextLine.
] ifFalse:[
line := nil
@@ -97,7 +97,7 @@
]
]
].
- ^ #('unnown')
+ ^ #('unknown')
"Created: / 1.2.1998 / 15:41:43 / cg"
"Modified: / 1.2.1998 / 15:59:10 / cg"
@@ -1368,5 +1368,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.113 2002-10-31 17:51:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.114 2003-01-24 20:48:20 stefan Exp $'
! !