--- a/StandaloneStartup.st	Thu Nov 20 23:12:29 2008 +0100
+++ b/StandaloneStartup.st	Thu Nov 20 23:15:14 2008 +0100
@@ -91,7 +91,7 @@
 !StandaloneStartup class methodsFor:'initialization'!
 
 initialize
-    "/ Verbose := true.
+    Verbose := true.
     Verbose := false.
 ! !
 
@@ -508,31 +508,19 @@
     "Modified: / 31-10-2007 / 16:05:59 / cg"
 !
 
-setupToolsForDebug
-    Debugger := DebugView ? MiniDebugger.
-    Inspector := InspectorView ? MiniInspector.
-    self verboseInfo:('debug enabled - CTRL-C brings you into a debugger.').
+you into a debugger.').
 
     "Created: / 19-09-2006 / 16:40:32 / cg"
 !
 
-setupToolsForNoDebug
-    Smalltalk isStandAloneApp ifTrue:[
-        Debugger := nil.
-        Inspector := nil.
-        NewLauncher := nil.
-        self redirectStandardStreams.
+tStandardStreams.
     ].
 
     "Created: / 19-09-2006 / 16:40:47 / cg"
     "Modified: / 31-10-2007 / 16:18:40 / cg"
 !
 
-start
-    CommandLineArguments := Smalltalk commandLineArguments.
-
-    self verboseInfo:('starting...').
-    self verboseInfo:('args: ', CommandLineArguments asStringCollection asString).
+StringCollection asString).
 
     Smalltalk isStandAloneApp ifTrue:[
         self loadPatches.
@@ -544,11 +532,7 @@
     "Modified: / 31-10-2007 / 16:03:44 / cg"
 !
 
-usage
-    Stderr nextPutLine:'usage:'.
-    Stderr nextPutLine:'  ',self applicationName,' [options...]'.
-    Stderr nextPutLine:'    options:'.
-    Stderr nextPutLine:'          --help .................. output this message'.
+utLine:'          --help .................. output this message'.
     Stderr nextPutLine:'          --verbose ............... verbose startup'.
     self allowScriptingOption ifTrue:[
         Stderr nextPutLine:'          --scripting portNr ...... enable scripting via port (or stdin/stdOut, if 0)'.
@@ -565,27 +549,10 @@
 
 !StandaloneStartup class methodsFor:'startup-to be redefined'!
 
-main
-    self verboseInfo:('entering main').
-
-    self main:CommandLineArguments.
-
-    "
-     self main
-     self main:#('--info') 
-    "
-
-    "Modified: / 31-10-2007 / 16:03:22 / cg"
+/ 31-10-2007 / 16:03:22 / cg"
 !
 
-main:argv
-    self subclassResponsibility.
-
-"/ a typical main: looks like (in a subclass):
-
-"/    |app fileArg|
-"/
-"/    self verboseInfo:('starting application').
+ion').
 "/    app := <someGUIApplicationModelClass> open.
 "/
 "/    self verboseInfo:('looking for args in ',argv).
@@ -614,7 +581,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.18 2008-11-20 22:12:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.19 2008-11-20 22:15:14 cg Exp $'
 ! !
 
 StandaloneStartup initialize!