equal
deleted
inserted
replaced
651 self verboseInfo:(ex description). |
651 self verboseInfo:(ex description). |
652 Verbose == true ifTrue:[ex suspendedContext fullPrintAllLevels:10]. |
652 Verbose == true ifTrue:[ex suspendedContext fullPrintAllLevels:10]. |
653 ex reject. |
653 ex reject. |
654 ] do:[ |
654 ] do:[ |
655 |idx| |
655 |idx| |
|
656 |
656 self verboseInfo:('starting...'). |
657 self verboseInfo:('starting...'). |
657 CommandLineArguments := (self additionalArgumentsFromRegistry) |
658 CommandLineArguments := (self additionalArgumentsFromRegistry) |
658 , Smalltalk commandLineArguments. |
659 , Smalltalk commandLineArguments. |
659 |
660 |
660 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
661 self verboseInfo:('args: ', CommandLineArguments asStringCollection asString). |
669 If that is the case, the following function will not return, but instead exit." |
670 If that is the case, the following function will not return, but instead exit." |
670 self checkForAndExitIfAnotherApplicationInstanceIsRunning. |
671 self checkForAndExitIfAnotherApplicationInstanceIsRunning. |
671 ]. |
672 ]. |
672 ] ifFalse:[ |
673 ] ifFalse:[ |
673 CommandLineArguments removeAtIndex:idx. |
674 CommandLineArguments removeAtIndex:idx. |
674 Verbose := true. |
|
675 ]. |
675 ]. |
676 |
676 |
677 "/ Arrive here, if no other application is running. |
677 "/ Arrive here, if no other application is running. |
678 "/ to speedup startup, we did not load all dll's (only a subset of non-GUI dll's is present). |
678 "/ to speedup startup, we did not load all dll's (only a subset of non-GUI dll's is present). |
679 "/ now, load all skipped libs from modules.stx. |
679 "/ now, load all skipped libs from modules.stx. |
685 ]. |
685 ]. |
686 self setupSmalltalkFromArguments:CommandLineArguments. |
686 self setupSmalltalkFromArguments:CommandLineArguments. |
687 self main |
687 self main |
688 ]. |
688 ]. |
689 |
689 |
690 "Modified: / 06-10-2010 / 09:43:44 / cg" |
690 "Modified: / 15-11-2010 / 14:19:27 / cg" |
691 ! |
691 ! |
692 |
692 |
693 startStartBlockProcess |
693 startStartBlockProcess |
694 Smalltalk startStartBlockProcess |
694 Smalltalk startStartBlockProcess |
695 ! |
695 ! |
795 ! ! |
795 ! ! |
796 |
796 |
797 !StandaloneStartup class methodsFor:'documentation'! |
797 !StandaloneStartup class methodsFor:'documentation'! |
798 |
798 |
799 version |
799 version |
800 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.54 2010-11-15 13:17:48 cg Exp $' |
800 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.55 2010-11-15 13:19:37 cg Exp $' |
801 ! |
801 ! |
802 |
802 |
803 version_CVS |
803 version_CVS |
804 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.54 2010-11-15 13:17:48 cg Exp $' |
804 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.55 2010-11-15 13:19:37 cg Exp $' |
805 ! ! |
805 ! ! |
806 |
806 |
807 StandaloneStartup initialize! |
807 StandaloneStartup initialize! |