--- a/Scanner.st Thu Oct 01 12:10:22 1998 +0200
+++ b/Scanner.st Thu Oct 01 12:55:16 1998 +0200
@@ -748,12 +748,13 @@
|m|
errorFlag := true.
- m := 'Error: ' , aMessage.
+ m := 'Error: ' , (aMessage ? '???').
self notifyError:m position:position to:endPos.
exitBlock notNil ifTrue:[exitBlock value].
^ false
"Created: / 13.5.1998 / 16:44:55 / cg"
+ "Modified: / 28.9.1998 / 19:29:27 / cg"
!
showErrorMessage:aMessage position:pos
@@ -1879,6 +1880,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.85 1998-06-18 21:11:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.86 1998-10-01 10:55:16 cg Exp $'
! !
Scanner initialize!