must set CommandLineArguments earlier (to be available in initializeSystem)
authorClaus Gittinger <cg@exept.de>
Thu, 25 Feb 1999 22:59:00 +0100
changeset 4006 c7ad38c52eb9
parent 4005 a4c984b74efd
child 4007 561d175af944
must set CommandLineArguments earlier (to be available in initializeSystem)
Smalltalk.st
--- a/Smalltalk.st	Thu Feb 25 21:51:44 1999 +0100
+++ b/Smalltalk.st	Thu Feb 25 22:59:00 1999 +0100
@@ -91,6 +91,7 @@
 	CommandLine          <String>   Unix (OS-) command line
 
 	CommandLineArguments <Array>    Unix (OS-) command line arguments broken into words
+					(initially set by the VM)
 
 	SilentLoading   <Boolean>       suppresses messages during fileIn and in compiler
 					(can be set to true from a customized main.c)
@@ -335,6 +336,10 @@
     Initializing := true.
     AbstractOperatingSystem initializeConcreteClass.
 
+    CommandLine := CommandLineArguments copy.
+    CommandLineArguments := CommandLineArguments asOrderedCollection.
+    CommandLineArguments removeAtIndex:1. "/ the command
+
     SilentLoading := false.
 
     "/
@@ -2011,10 +2016,6 @@
     debuggingStandAlone := false.
     Initializing := true.
 
-    CommandLine := CommandLineArguments copy.
-    CommandLineArguments := CommandLineArguments asOrderedCollection.
-    CommandLineArguments removeAtIndex:1. "/ the command
-
     "/
     "/ turn off info messages in standAlone app
     "/
@@ -4200,5 +4201,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.304 1999-02-25 19:17:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.305 1999-02-25 21:59:00 cg Exp $'
 ! !