*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 20 Nov 2008 23:12:29 +0100
changeset 11353 6167f1e604c9
parent 11352 023a07ae955c
child 11354 618eaa4e2a32
*** empty log message ***
StandaloneStartup.st
--- a/StandaloneStartup.st	Thu Nov 20 22:08:03 2008 +0100
+++ b/StandaloneStartup.st	Thu Nov 20 23:12:29 2008 +0100
@@ -497,14 +497,9 @@
     ].
     scripting ifTrue:[
         STXScriptingServer notNil ifTrue:[
-            portNr == 0 ifTrue:[
-                "/ stdin/out
-                STXScriptingServer new
-                    handleScriptCommandsReadingFrom:Stdin writingTo:Stdout.
-            ] ifFalse:[
-                "/ scripting on port 8008
-                STXScriptingServer startAt:portNr
-            ]
+            "/ scripting on port/stdin_out/8008
+            self verboseInfo:('start scripting').
+            STXScriptingServer startAt:portNr
         ].
     ].
 
@@ -619,7 +614,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.17 2008-11-20 21:08:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.18 2008-11-20 22:12:29 cg Exp $'
 ! !
 
 StandaloneStartup initialize!