show debug enabled/disabled info when Verbose is true
authorfm
Tue, 26 May 2009 14:21:25 +0200
changeset 11736 095ef06bd971
parent 11735 60aa644effbe
child 11737 cbf8d519c784
show debug enabled/disabled info when Verbose is true
StandaloneStartup.st
--- a/StandaloneStartup.st	Tue May 26 08:38:16 2009 +0200
+++ b/StandaloneStartup.st	Tue May 26 14:21:25 2009 +0200
@@ -539,7 +539,8 @@
 setupToolsForDebug
     Debugger := DebugView ? MiniDebugger.
     Inspector := InspectorView ? MiniInspector.
-    self verboseInfo:('debug enabled - CTRL-C brings you into a debugger.').
+    Verbose ifTrue:[ 'debug enabled - CTRL-C brings you into a debugger.' errorPrintCR ].
+"/    self verboseInfo:('debug enabled - CTRL-C brings you into a debugger.').
 
     "Created: / 19-09-2006 / 16:40:32 / cg"
 !
@@ -554,6 +555,8 @@
             ].
             Smalltalk at:#NewLauncher put:nil.
         ].
+        Verbose ifTrue:[ 'debug disabled.' errorPrintCR ].
+
         self redirectStandardStreams.
     ].
 
@@ -648,7 +651,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.33 2009-05-25 13:49:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.34 2009-05-26 12:21:25 fm Exp $'
 ! !
 
 StandaloneStartup initialize!