changed: #notifyError:position:to:
only print full-trace on error during startup,
if -debug option is given.
--- a/Scanner.st Wed Jan 18 14:53:53 2012 +0100
+++ b/Scanner.st Thu Jan 19 10:19:19 2012 +0100
@@ -1365,8 +1365,10 @@
|err|
Smalltalk isInitialized ifFalse:[
- "/ error during startup
- thisContext fullPrintAll.
+ Smalltalk isStandAloneDebug ifTrue:[
+ "/ error during startup
+ thisContext fullPrintAll.
+ ]
].
ignoreErrors ifFalse:[
@@ -1386,8 +1388,8 @@
self showErrorMessage:aMessage position:position.
].
- "Modified: / 22-08-2006 / 14:10:16 / cg"
"Modified: / 18-01-2012 / 14:54:22 / Alexander Zottnick"
+ "Modified: / 19-01-2012 / 10:18:36 / cg"
!
notifyWarning:aMessage doNotShowAgainAction:doNotShowAgainAction position:position to:endPos
@@ -3364,11 +3366,11 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.275 2012-01-18 13:53:53 az Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.276 2012-01-19 09:19:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.275 2012-01-18 13:53:53 az Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.276 2012-01-19 09:19:19 cg Exp $'
! !
Scanner initialize!