equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2006 by eXept Software AG |
2 COPYRIGHT (c) 2006 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1186 self verboseInfo:ex description. |
1184 self verboseInfo:ex description. |
1187 Verbose == true ifTrue:[ex suspendedContext fullPrintAllLevels:10]. |
1185 Verbose == true ifTrue:[ex suspendedContext fullPrintAllLevels:10]. |
1188 ex reject. |
1186 ex reject. |
1189 ] do:[ |
1187 ] do:[ |
1190 |idx| |
1188 |idx| |
|
1189 |
|
1190 idx := Smalltalk commandLineArguments indexOf:#('--version'). |
|
1191 idx ~~ 0 ifTrue:[ |
|
1192 Smalltalk versionString _errorPrintCR. |
|
1193 Smalltalk exit:0. |
|
1194 ]. |
1191 |
1195 |
1192 CommandLineArguments := (self additionalArgumentsFromRegistry) |
1196 CommandLineArguments := (self additionalArgumentsFromRegistry) |
1193 , Smalltalk commandLineArguments. |
1197 , Smalltalk commandLineArguments. |
1194 |
1198 |
1195 Smalltalk showSplashMessage:'start'. |
1199 Smalltalk showSplashMessage:'start'. |