--- a/Scanner.st Fri Jun 28 09:06:06 2019 +0200
+++ b/Scanner.st Fri Jun 28 09:12:19 2019 +0200
@@ -1586,7 +1586,7 @@
(Smalltalk isInitialized not and:[Smalltalk isDebuggableApp]) ifTrue:[
"/ error during startup, but sometimes we expect an error and want to suppress it
Parser parseWarningSignal query ~~ #ignore ifTrue:[
- (self class name,' [error]: error during initialization:') errorPrint.
+ (self className,' [error]: error during initialization:') errorPrint.
aMessage errorPrintCR.
thisContext fullPrintAll.
].
@@ -1617,6 +1617,7 @@
].
"Created: / 08-02-2019 / 11:15:37 / Claus Gittinger"
+ "Modified: / 28-06-2019 / 09:11:44 / Claus Gittinger"
!
notifyWarning:aMessage doNotShowAgainAction:doNotShowAgainAction doNotShowAgainForThisMethodAction:doNotShowAgainForThisMethodAction position:position to:endPos
@@ -1721,9 +1722,9 @@
|fullMessage|
Smalltalk isInitialized ifFalse:[
- (self class name,' [error]: error during initialization:') errorPrint.
- aMessage errorPrintCR.
- thisContext fullPrintAll.
+ (self className,' [error]: error during initialization:') errorPrint.
+ aMessage errorPrintCR.
+ thisContext fullPrintAll.
].
"/ fullMessage := (self errorMessagePrefix) , ' ' , (aMessage ? '???').
@@ -1735,6 +1736,7 @@
"Created: / 13-05-1998 / 16:44:55 / cg"
"Modified: / 22-08-2006 / 14:13:11 / cg"
+ "Modified: / 28-06-2019 / 09:11:48 / Claus Gittinger"
!
positionFromLineNumber:lNr