changed: #notifyError:position:to:
authorClaus Gittinger <cg@exept.de>
Thu, 19 Jan 2012 10:19:19 +0100
changeset 2786 214deaadce05
parent 2785 87cfec5ba268
child 2787 e7ab6fcda08e
changed: #notifyError:position:to: only print full-trace on error during startup, if -debug option is given.
Scanner.st
--- 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!