equal
deleted
inserted
replaced
111 |
111 |
112 #deliverAsZIP |
112 #deliverAsZIP |
113 'Package delivery into a zip archive (for win32)' |
113 'Package delivery into a zip archive (for win32)' |
114 |
114 |
115 #deliverBinary |
115 #deliverBinary |
116 'Create and deliver a compiled binary (classLibrary) - only possible for the running systems architecture.' |
116 'Create and deliver as compiled binary (classLibrary) - will only execute on the running systems architecture.' |
|
117 |
|
118 #deliverByteCode |
|
119 'Create and deliver as bytecode - portable across architectures.' |
117 |
120 |
118 #deliverLoadAll |
121 #deliverLoadAll |
119 'Deliver a loadAll script file, which files-In the other files.' |
122 'Deliver a loadAll script file, which files-In the other files.' |
120 |
123 |
121 #deliverSource |
124 #deliverSource |
470 #name: 'CheckBox5' |
473 #name: 'CheckBox5' |
471 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
474 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
472 #activeHelpKey: #deliverLoadAll |
475 #activeHelpKey: #deliverLoadAll |
473 #tabable: true |
476 #tabable: true |
474 #model: #deliverLoadAllFile |
477 #model: #deliverLoadAllFile |
|
478 #translateLabel: true |
|
479 ) |
|
480 #(#CheckBoxSpec |
|
481 #label: 'Bytecode Binary' |
|
482 #name: 'CheckBox1' |
|
483 #layout: #(#LayoutFrame 0 0.0 39 0 0 1.0 61 0) |
|
484 #activeHelpKey: #deliverByteCode |
|
485 #tabable: true |
|
486 #model: #deliverByteCode |
475 #translateLabel: true |
487 #translateLabel: true |
476 ) |
488 ) |
477 #(#CheckBoxSpec |
489 #(#CheckBoxSpec |
478 #label: 'Compiled Binary (.dll / .so)' |
490 #label: 'Compiled Binary (.dll / .so)' |
479 #name: 'CheckBox1' |
491 #name: 'CheckBox1' |
1765 #translateLabel: true |
1777 #translateLabel: true |
1766 #value: #buildLoadAllFile |
1778 #value: #buildLoadAllFile |
1767 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
1779 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
1768 ) |
1780 ) |
1769 #(#MenuItem |
1781 #(#MenuItem |
1770 #label: 'Binary class library' |
1782 #label: 'Binary class library (non portable)' |
1771 #translateLabel: true |
1783 #translateLabel: true |
1772 #value: #buildClassLibrary |
1784 #value: #buildCompiledClassLibrary |
|
1785 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
|
1786 ) |
|
1787 #(#MenuItem |
|
1788 #label: 'Bytecode class library (portable)' |
|
1789 #translateLabel: true |
|
1790 #value: #buildByteCodeClassLibrary |
1773 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
1791 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
1774 ) |
1792 ) |
1775 #(#MenuItem |
1793 #(#MenuItem |
1776 #label: 'Zip archive' |
1794 #label: 'Zip archive' |
1777 #translateLabel: true |
1795 #translateLabel: true |
2303 ^ holder. |
2321 ^ holder. |
2304 |
2322 |
2305 "Created: / 23.3.1999 / 14:01:09 / cg" |
2323 "Created: / 23.3.1999 / 14:01:09 / cg" |
2306 ! |
2324 ! |
2307 |
2325 |
|
2326 deliverByteCode |
|
2327 "automatically generated by UIPainter ..." |
|
2328 |
|
2329 |holder| |
|
2330 |
|
2331 (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[ |
|
2332 builder aspectAt:#deliverByteCode put:(holder := ValueHolder new). |
|
2333 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2334 ]. |
|
2335 ^ holder. |
|
2336 |
|
2337 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2338 ! |
|
2339 |
2308 deliverCompiledBinary |
2340 deliverCompiledBinary |
2309 "automatically generated by UIPainter ..." |
2341 "automatically generated by UIPainter ..." |
2310 |
2342 |
2311 |holder| |
2343 |holder| |
2312 |
2344 |
3273 |
3305 |
3274 self repositoryModule value:(p repositoryModule). |
3306 self repositoryModule value:(p repositoryModule). |
3275 self repositoryDirectory value:(p repositoryDirectory). |
3307 self repositoryDirectory value:(p repositoryDirectory). |
3276 |
3308 |
3277 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
3309 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
|
3310 self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false. |
3278 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
3311 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
3279 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
3312 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
3280 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
3313 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
3281 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
3314 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
3282 |
3315 |
3347 ns := Namespace name:s |
3380 ns := Namespace name:s |
3348 ]. |
3381 ]. |
3349 p defaultNameSpace:ns. |
3382 p defaultNameSpace:ns. |
3350 |
3383 |
3351 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
3384 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
|
3385 p propertyAt:#deliverByteCode put:self deliverByteCode value. |
3352 p propertyAt:#deliverSources put:self deliverSources value. |
3386 p propertyAt:#deliverSources put:self deliverSources value. |
3353 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
3387 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
3354 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
3388 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
3355 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
3389 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
3356 |
3390 |
3629 |
3663 |
3630 |
3664 |
3631 ! |
3665 ! |
3632 |
3666 |
3633 buildAll |
3667 buildAll |
3634 |p deliverLoadAllFile| |
3668 |p| |
3635 |
3669 |
3636 p := self currentProject. |
3670 p := self currentProject. |
3637 p isNil ifTrue:[ |
3671 p isNil ifTrue:[ |
3638 self information:'No project selected'. |
3672 self information:'No project selected'. |
3639 ^ self |
3673 ^ self |
3640 ]. |
3674 ]. |
3641 |
3675 |
3642 deliverLoadAllFile := p propertyAt:#deliverLoadAllFile. |
3676 self withCursor:Cursor wait do:[ |
3643 |
3677 "/ prepare the building ... |
3644 deliverLoadAllFile ifTrue:[ |
3678 |
3645 p createLoadAllFile |
3679 (p propertyAt:#deliverLoadAllFile) == true ifTrue:[ |
3646 ]. |
3680 p createLoadAllFile |
3647 |
3681 ]. |
3648 ! |
3682 |
3649 |
3683 (p propertyAt:#deliverSources) == true ifTrue:[ |
3650 buildClassLibrary |
3684 p createLoadAllFile |
|
3685 ]. |
|
3686 |
|
3687 (p propertyAt:#deliverCompiledBinary) == true ifTrue:[ |
|
3688 self buildCompiledClassLibrary |
|
3689 ]. |
|
3690 |
|
3691 (p propertyAt:#deliverByteCode) == true ifTrue:[ |
|
3692 self buildByteCodeClassLibrary |
|
3693 ]. |
|
3694 |
|
3695 "/ now, deploy ... |
|
3696 |
|
3697 (p propertyAt:#deliverZipArchive) == true ifTrue:[ |
|
3698 p createLoadAllFile |
|
3699 ]. |
|
3700 |
|
3701 (p propertyAt:#deliverGZipArchive) == true ifTrue:[ |
|
3702 p createLoadAllFile |
|
3703 ]. |
|
3704 |
|
3705 |
|
3706 ]. |
|
3707 |
|
3708 |
|
3709 ! |
|
3710 |
|
3711 buildCompiledClassLibrary |
3651 "compile a binary class library in the projects directory" |
3712 "compile a binary class library in the projects directory" |
3652 |p dir f diagnosticFile diagnostic error textBox| |
3713 |p dir f diagnosticFile diagnostic error textBox| |
3653 |
3714 |
3654 p := self currentProject. |
3715 p := self currentProject. |
3655 p isNil ifTrue:[ |
3716 p isNil ifTrue:[ |
3725 p isNil ifTrue:[ |
3786 p isNil ifTrue:[ |
3726 self information:'No project selected'. |
3787 self information:'No project selected'. |
3727 ^ self |
3788 ^ self |
3728 ]. |
3789 ]. |
3729 |
3790 |
3730 p createLoadAllFile. |
3791 self withCursor:Cursor wait do:[ |
3731 |
3792 p createLoadAllFile. |
|
3793 ] |
3732 ! |
3794 ! |
3733 |
3795 |
3734 buildMakefiles |
3796 buildMakefiles |
3735 |p | |
3797 |p | |
3736 |
3798 |
3738 p isNil ifTrue:[ |
3800 p isNil ifTrue:[ |
3739 self information:'No project selected'. |
3801 self information:'No project selected'. |
3740 ^ self |
3802 ^ self |
3741 ]. |
3803 ]. |
3742 |
3804 |
3743 p createProtoMakefile. |
3805 self withCursor:Cursor wait do:[ |
3744 p createMakefile |
3806 p createProtoMakefile. |
|
3807 p createMakefile |
|
3808 ]. |
3745 ! |
3809 ! |
3746 |
3810 |
3747 checkInProject |
3811 checkInProject |
3748 |p classes methods anyMethodMissing| |
3812 |p classes methods anyMethodMissing| |
3749 |
3813 |