--- 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!