equal
deleted
inserted
replaced
1181 ] do:[ |
1181 ] do:[ |
1182 |idx| |
1182 |idx| |
1183 |
1183 |
1184 CommandLineArguments := (self additionalArgumentsFromRegistry) |
1184 CommandLineArguments := (self additionalArgumentsFromRegistry) |
1185 , Smalltalk commandLineArguments. |
1185 , Smalltalk commandLineArguments. |
1186 '1' printCR. |
|
1187 CommandLineArguments printCR. |
|
1188 self setupSmalltalkFromArguments:CommandLineArguments. |
|
1189 |
1186 |
1190 Smalltalk showSplashMessage:'start'. |
1187 Smalltalk showSplashMessage:'start'. |
1191 self verboseInfo:'starting...'. |
1188 self verboseInfo:'starting...'. |
1192 |
1189 |
1193 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
1190 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
1215 Smalltalk isStandAloneApp ifTrue:[ |
1212 Smalltalk isStandAloneApp ifTrue:[ |
1216 self verboseInfo:'looking for patches'. |
1213 self verboseInfo:'looking for patches'. |
1217 self loadPatches. |
1214 self loadPatches. |
1218 ]. |
1215 ]. |
1219 self verboseInfo:'setup Smalltalk'. |
1216 self verboseInfo:'setup Smalltalk'. |
1220 "/ self setupSmalltalkFromArguments:CommandLineArguments. |
1217 self setupSmalltalkFromArguments:CommandLineArguments. |
1221 self main:CommandLineArguments |
1218 self main:CommandLineArguments |
1222 ]. |
1219 ]. |
1223 |
1220 |
1224 "Modified: / 04-02-2011 / 00:03:47 / cg" |
1221 "Modified: / 04-02-2011 / 00:03:47 / cg" |
1225 "Modified: / 06-02-2019 / 20:18:54 / Claus Gittinger" |
1222 "Modified: / 06-02-2019 / 21:35:35 / Claus Gittinger" |
1226 ! |
1223 ! |
1227 |
1224 |
1228 startStartBlockProcess |
1225 startStartBlockProcess |
1229 Smalltalk startStartBlockProcess |
1226 Smalltalk startStartBlockProcess |
1230 ! |
1227 ! |