657 CommandLineArguments := (self additionalArgumentsFromRegistry) |
657 CommandLineArguments := (self additionalArgumentsFromRegistry) |
658 , Smalltalk commandLineArguments. |
658 , Smalltalk commandLineArguments. |
659 |
659 |
660 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
660 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
661 |
661 |
662 "--noRemote - do not reuse an existing application instance, |
662 "--newAppInstance - do not reuse an existing application instance, |
663 but run in a separate process" |
663 but run in a separate process" |
664 idx := CommandLineArguments indexOfAny:#('--noRemote'). |
664 idx := CommandLineArguments indexOfAny:#('--newAppInstance'). |
665 idx == 0 ifTrue:[ |
665 idx == 0 ifTrue:[ |
666 self shouldReuseRunningApplication ifTrue:[ |
666 self shouldReuseRunningApplication ifTrue:[ |
667 "Multiple Application support: |
667 "Multiple Application support: |
668 if another expecco is running, ask it to open another window for me. |
668 if another expecco is running, ask it to open another window for me. |
669 If that is the case, the following function will not return, but instead exit." |
669 If that is the case, the following function will not return, but instead exit." |
707 |
707 |
708 self error:'cannot find: modules.stx'. |
708 self error:'cannot find: modules.stx'. |
709 ! |
709 ! |
710 |
710 |
711 usage |
711 usage |
712 Stderr nextPutLine:'usage:'. |
712 Stderr nextPutLine:'usage: ',self applicationName,' [options...]'. |
713 Stderr nextPutLine:' ',self applicationName,' [options...]'. |
713 Stderr nextPutLine:' --help .................. output this message'. |
714 Stderr nextPutLine:' options:'. |
714 Stderr nextPutLine:' --verbose ............... verbose startup'. |
715 Stderr nextPutLine:' --help .................. output this message'. |
715 Stderr nextPutLine:' --noBanner .............. no splash screen'. |
716 Stderr nextPutLine:' --verbose ............... verbose startup'. |
716 Stderr nextPutLine:' --newAppInstance ........ start as its own application process (do not reuse a running instance)'. |
717 Stderr nextPutLine:' --noBanner .............. no splash screen'. |
|
718 Stderr nextPutLine:' --noRemote .............. start as its own application process (do not reuse a running instance)'. |
|
719 self allowScriptingOption ifTrue:[ |
717 self allowScriptingOption ifTrue:[ |
720 Stderr nextPutLine:' --scripting portNr ...... enable scripting via port (or stdin/stdOut, if 0)'. |
718 Stderr nextPutLine:' --scripting portNr ...... enable scripting via port (or stdin/stdOut, if 0)'. |
721 ]. |
719 ]. |
722 self allowDebugOption ifTrue:[ |
720 self allowDebugOption ifTrue:[ |
723 Stderr nextPutLine:' --debug ................. enable Debugger'. |
721 Stderr nextPutLine:' --debug ................. enable Debugger'. |
724 ]. |
722 ]. |
725 self suppressRCFileReading ifFalse:[ |
723 self suppressRCFileReading ifFalse:[ |
726 Stderr nextPutLine:' --rcFileName file ....... execute code from file on startup (default: ',self startupFilename,')'. |
724 Stderr nextPutLine:' --rcFileName file ....... execute code from file on startup (default: ',self startupFilename,')'. |
727 ]. |
725 ]. |
728 |
726 |
729 "Created: / 19-09-2006 / 16:37:55 / cg" |
727 "Created: / 19-09-2006 / 16:37:55 / cg" |
730 "Modified: / 04-10-2010 / 10:47:48 / cg" |
728 "Modified: / 06-10-2010 / 09:52:18 / cg" |
731 ! ! |
729 ! ! |
732 |
730 |
733 !StandaloneStartup class methodsFor:'startup-to be redefined'! |
731 !StandaloneStartup class methodsFor:'startup-to be redefined'! |
734 |
732 |
735 additionalArgumentsFromRegistry |
733 additionalArgumentsFromRegistry |
797 ! ! |
795 ! ! |
798 |
796 |
799 !StandaloneStartup class methodsFor:'documentation'! |
797 !StandaloneStartup class methodsFor:'documentation'! |
800 |
798 |
801 version |
799 version |
802 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.52 2010-10-04 11:54:02 cg Exp $' |
800 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.53 2010-10-06 07:54:45 cg Exp $' |
803 ! |
801 ! |
804 |
802 |
805 version_CVS |
803 version_CVS |
806 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.52 2010-10-04 11:54:02 cg Exp $' |
804 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.53 2010-10-06 07:54:45 cg Exp $' |
807 ! ! |
805 ! ! |
808 |
806 |
809 StandaloneStartup initialize! |
807 StandaloneStartup initialize! |