equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2593 "/ at:$b |
2595 "/ at:$b |
2594 "/ put:[:opt | cOption := true]; |
2596 "/ put:[:opt | cOption := true]; |
2595 at:$h |
2597 at:$h |
2596 put:[:opt | helpOption := true]; |
2598 put:[:opt | helpOption := true]; |
2597 at:$? |
2599 at:$? |
2598 put:[:arg | self usage. Smalltalk exit:0]; |
2600 put:[:arg | self usage. Smalltalk exitIfStandalone:0]; |
2599 default:[:arg | fileArgs add:arg]; |
2601 default:[:arg | fileArgs add:arg]; |
2600 onError:[:msg | Stderr nextPutLine:msg. self usage]; |
2602 onError:[:msg | Stderr nextPutLine:msg. self usage]; |
2601 parse:argv. |
2603 parse:argv. |
2602 |
2604 |
2603 helpOption ifTrue:[ |
2605 helpOption ifTrue:[ |
2607 ]. |
2609 ]. |
2608 "/ do not exit here; caller will go into event loop when returning |
2610 "/ do not exit here; caller will go into event loop when returning |
2609 '. |
2611 '. |
2610 |
2612 |
2611 "Created: / 19-08-2011 / 02:18:49 / cg" |
2613 "Created: / 19-08-2011 / 02:18:49 / cg" |
|
2614 "Modified: / 06-06-2016 / 14:58:15 / cg" |
2612 ! |
2615 ! |
2613 |
2616 |
2614 codeFor_standAloneRealMainMethodFor:aClass |
2617 codeFor_standAloneRealMainMethodFor:aClass |
2615 |appClass| |
2618 |appClass| |
2616 |
2619 |
2639 ^ |
2642 ^ |
2640 'usage |
2643 'usage |
2641 Stderr nextPutLine:''usage: '',self applicationName,'' [options...]''. |
2644 Stderr nextPutLine:''usage: '',self applicationName,'' [options...]''. |
2642 Stderr nextPutLine:'' -h .................. output this message''. |
2645 Stderr nextPutLine:'' -h .................. output this message''. |
2643 |
2646 |
2644 Smalltalk isStandAloneApp ifTrue:[ Smalltalk exit:1 ]. |
2647 Smalltalk isStandAloneApp ifTrue:[ Smalltalk exitIfStandalone:1 ]. |
2645 '. |
2648 '. |
2646 |
2649 |
2647 "Created: / 19-08-2011 / 02:22:46 / cg" |
2650 "Created: / 19-08-2011 / 02:22:46 / cg" |
|
2651 "Modified: / 06-06-2016 / 14:59:19 / cg" |
2648 ! |
2652 ! |
2649 |
2653 |
2650 code_forWidget_buttonPress |
2654 code_forWidget_buttonPress |
2651 generateComments ifFalse:[ |
2655 generateComments ifFalse:[ |
2652 ^ |
2656 ^ |