#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 13 Dec 2019 14:49:05 +0100
changeset 25106 b7d9191aa726
parent 25105 8885d4f6989b
child 25107 e5a2c223f111
#BUGFIX by cg class: StandaloneStartup class changed: #start --version fixed
StandaloneStartup.st
--- a/StandaloneStartup.st	Fri Dec 13 14:37:07 2019 +0100
+++ b/StandaloneStartup.st	Fri Dec 13 14:49:05 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2006 by eXept Software AG
               All Rights Reserved
@@ -1189,6 +1187,12 @@
     ] do:[
         |idx|
 
+        idx := Smalltalk commandLineArguments indexOf:#('--version').
+        idx ~~ 0 ifTrue:[
+            Smalltalk versionString _errorPrintCR.
+            Smalltalk exit:0.
+        ].
+
         CommandLineArguments := (self additionalArgumentsFromRegistry) 
                                 , Smalltalk commandLineArguments.