equal
deleted
inserted
replaced
4592 VerboseStartup ifTrue:['start...' infoPrintCR]. |
4592 VerboseStartup ifTrue:['start...' infoPrintCR]. |
4593 |
4593 |
4594 graphicalMode := Smalltalk isSmalltalkDevelopmentSystem. |
4594 graphicalMode := Smalltalk isSmalltalkDevelopmentSystem. |
4595 Initializing := true. |
4595 Initializing := true. |
4596 |
4596 |
4597 keepSplashWindow := StartupClass perform:#keepSplashWindowOpen ifNotUnderstood:[false]. |
4597 keepSplashWindow := false. |
4598 |
4598 StartupClass notNil ifTrue:[ |
4599 idx := CommandLineArguments indexOf:'--version'. |
4599 keepSplashWindow := StartupClass perform:#keepSplashWindowOpen ifNotUnderstood:[false]. |
4600 idx ~~ 0 ifTrue:[ |
4600 ]. |
4601 self versionString _errorPrintCR. |
4601 |
4602 self exit:0. |
4602 StartupClass isNil ifTrue:[ |
4603 ]. |
4603 "/ not for end user apps |
|
4604 idx := CommandLineArguments indexOf:'--version'. |
|
4605 idx ~~ 0 ifTrue:[ |
|
4606 self versionString _errorPrintCR. |
|
4607 self exit:0. |
|
4608 ]. |
|
4609 ]. |
|
4610 |
4604 "/ remove possibly leftover --debug arg (not removed in initVerboseFlags, for whatever reason) |
4611 "/ remove possibly leftover --debug arg (not removed in initVerboseFlags, for whatever reason) |
4605 idx := CommandLineArguments indexOf:'--debug'. |
4612 idx := CommandLineArguments indexOf:'--debug'. |
4606 (idx ~~ 0) ifTrue:[ |
4613 (idx ~~ 0) ifTrue:[ |
4607 CommandLineArguments removeAtIndex:idx. |
4614 CommandLineArguments removeAtIndex:idx. |
4608 ]. |
4615 ]. |