162 |
162 |
163 ) |
163 ) |
164 ! ! |
164 ! ! |
165 |
165 |
166 !ProjectBrowser class methodsFor:'image specs'! |
166 !ProjectBrowser class methodsFor:'image specs'! |
|
167 |
|
168 buildOptionsIcon |
|
169 "This resource specification was automatically generated |
|
170 by the ImageEditor of ST/X." |
|
171 |
|
172 "Do not manually edit this!! If it is corrupted, |
|
173 the ImageEditor may not be able to read the specification." |
|
174 |
|
175 " |
|
176 self deploymentIcon inspect |
|
177 ImageEditor openOnClass:self andSelector:#deploymentIcon |
|
178 " |
|
179 |
|
180 <resource: #image> |
|
181 |
|
182 ^Icon |
|
183 constantNamed:#'ProjectBrowser buildOptionsIcon' |
|
184 ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@CL0@3L0@@@CL3@3@3@@@CL@LC@CL@@@L0@0LCL0@@@CMCP3MD@@@@L3L3L3M@@@ADP3QD@4@@@@@3@@ACP@@DQCMDPDM@@@QDL4Q@P4@@ADP3QDACP@@DQCMDPDM@@@QDL4Q@P0@@ADP3QDAC@@@DQCMDP@@@@@@@L0@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself] |
|
185 ! |
167 |
186 |
168 classIcon |
187 classIcon |
169 "This resource specification was automatically generated |
188 "This resource specification was automatically generated |
170 by the ImageEditor of ST/X." |
189 by the ImageEditor of ST/X." |
171 |
190 |
379 #model: #rightCanvasTextHolder |
398 #model: #rightCanvasTextHolder |
380 #hasHorizontalScrollBar: true |
399 #hasHorizontalScrollBar: true |
381 #hasVerticalScrollBar: true |
400 #hasVerticalScrollBar: true |
382 #miniScrollerHorizontal: true |
401 #miniScrollerHorizontal: true |
383 #isReadOnly: true |
402 #isReadOnly: true |
|
403 ) |
|
404 ) |
|
405 |
|
406 ) |
|
407 ) |
|
408 ! |
|
409 |
|
410 rightCanvasSpecForBuildOptions |
|
411 "This resource specification was automatically generated |
|
412 by the UIPainter of ST/X." |
|
413 |
|
414 "Do not manually edit this!! If it is corrupted, |
|
415 the UIPainter may not be able to read the specification." |
|
416 |
|
417 " |
|
418 UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForBuildOptions |
|
419 ProjectBrowser new openInterface:#rightCanvasSpecForBuildOptions |
|
420 " |
|
421 |
|
422 <resource: #canvas> |
|
423 |
|
424 ^ |
|
425 #(#FullSpec |
|
426 #name: #rightCanvasSpecForBuildOptions |
|
427 #window: |
|
428 #(#WindowSpec |
|
429 #label: 'NewApplication' |
|
430 #name: 'NewApplication' |
|
431 #min: #(#Point 10 10) |
|
432 #max: #(#Point 1280 1024) |
|
433 #bounds: #(#Rectangle 216 173 577 536) |
|
434 ) |
|
435 #component: |
|
436 #(#SpecCollection |
|
437 #collection: #( |
|
438 #(#FramedBoxSpec |
|
439 #label: 'STC Compiler Warnings' |
|
440 #name: 'FramedBox2' |
|
441 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0) |
|
442 #labelPosition: #topLeft |
|
443 #translateLabel: true |
|
444 #component: |
|
445 #(#SpecCollection |
|
446 #collection: #( |
|
447 #(#CheckBoxSpec |
|
448 #label: 'Non Standard Language Features' |
|
449 #name: 'CheckBox1' |
|
450 #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0) |
|
451 #tabable: true |
|
452 #model: #makeWarnNonStandard |
|
453 #translateLabel: true |
|
454 ) |
|
455 #(#CheckBoxSpec |
|
456 #label: 'End-of-line Comments' |
|
457 #name: 'CheckBox2' |
|
458 #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0) |
|
459 #tabable: true |
|
460 #model: #makeWarnEOLComments |
|
461 #translateLabel: true |
|
462 ) |
|
463 #(#LabelSpec |
|
464 #label: 'other warning options:' |
|
465 #name: 'Label3' |
|
466 #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0) |
|
467 #translateLabel: true |
|
468 #adjust: #left |
|
469 ) |
|
470 #(#InputFieldSpec |
|
471 #name: 'EntryField1' |
|
472 #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0) |
|
473 #activeHelpKey: #projectDir |
|
474 #tabable: true |
|
475 #model: #makeOtherWarningOptions |
|
476 #acceptChannel: #acceptChannel |
|
477 #modifiedChannel: #modifiedChannel |
|
478 #acceptOnPointerLeave: false |
|
479 ) |
|
480 ) |
|
481 |
|
482 ) |
|
483 ) |
|
484 #(#FramedBoxSpec |
|
485 #label: 'STC Compiler Includes' |
|
486 #name: 'FramedBox3' |
|
487 #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0) |
|
488 #labelPosition: #topLeft |
|
489 #translateLabel: true |
|
490 #component: |
|
491 #(#SpecCollection |
|
492 #collection: #( |
|
493 #(#InputFieldSpec |
|
494 #name: 'EntryField2' |
|
495 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
|
496 #activeHelpKey: #repositoryModule |
|
497 #tabable: true |
|
498 #model: #makeIncludes |
|
499 #acceptChannel: #acceptChannel |
|
500 #modifiedChannel: #modifiedChannel |
|
501 #acceptOnPointerLeave: false |
|
502 ) |
|
503 ) |
|
504 |
|
505 ) |
|
506 ) |
|
507 #(#FramedBoxSpec |
|
508 #label: 'STC Compiler Defines' |
|
509 #name: 'FramedBox5' |
|
510 #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0) |
|
511 #labelPosition: #topLeft |
|
512 #translateLabel: true |
|
513 #component: |
|
514 #(#SpecCollection |
|
515 #collection: #( |
|
516 #(#InputFieldSpec |
|
517 #name: 'EntryField5' |
|
518 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
|
519 #activeHelpKey: #repositoryModule |
|
520 #tabable: true |
|
521 #model: #makeDefines |
|
522 #acceptChannel: #acceptChannel |
|
523 #modifiedChannel: #modifiedChannel |
|
524 #acceptOnPointerLeave: false |
|
525 ) |
|
526 ) |
|
527 |
|
528 ) |
|
529 ) |
|
530 #(#HorizontalPanelViewSpec |
|
531 #name: 'HorizontalPanel1' |
|
532 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
|
533 #horizontalLayout: #fitSpace |
|
534 #verticalLayout: #center |
|
535 #horizontalSpace: 3 |
|
536 #verticalSpace: 3 |
|
537 #component: |
|
538 #(#SpecCollection |
|
539 #collection: #( |
|
540 #(#ActionButtonSpec |
|
541 #label: 'Cancel' |
|
542 #name: 'Button1' |
|
543 #activeHelpKey: #cancel |
|
544 #translateLabel: true |
|
545 #model: #cancel |
|
546 #enableChannel: #modifiedChannel |
|
547 #actionValue: '' |
|
548 #useDefaultExtent: true |
|
549 ) |
|
550 #(#ActionButtonSpec |
|
551 #label: 'OK' |
|
552 #name: 'Button2' |
|
553 #activeHelpKey: #accept |
|
554 #translateLabel: true |
|
555 #model: #accept |
|
556 #enableChannel: #modifiedChannel |
|
557 #useDefaultExtent: true |
|
558 ) |
|
559 ) |
|
560 |
|
561 ) |
384 ) |
562 ) |
385 ) |
563 ) |
386 |
564 |
387 ) |
565 ) |
388 ) |
566 ) |
2680 ^ holder. |
2858 ^ holder. |
2681 |
2859 |
2682 "Created: / 23.3.1999 / 14:18:05 / cg" |
2860 "Created: / 23.3.1999 / 14:18:05 / cg" |
2683 ! |
2861 ! |
2684 |
2862 |
|
2863 makeDefines |
|
2864 "automatically generated by UIPainter ..." |
|
2865 |
|
2866 |holder| |
|
2867 |
|
2868 (holder := builder bindingAt:#makeDefines) isNil ifTrue:[ |
|
2869 builder aspectAt:#makeDefines put:(holder := '' asValue). |
|
2870 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2871 ]. |
|
2872 ^ holder. |
|
2873 |
|
2874 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2875 ! |
|
2876 |
|
2877 makeIncludes |
|
2878 "automatically generated by UIPainter ..." |
|
2879 |
|
2880 |holder| |
|
2881 |
|
2882 (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[ |
|
2883 builder aspectAt:#makeIncludes put:(holder := '' asValue). |
|
2884 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2885 ]. |
|
2886 ^ holder. |
|
2887 |
|
2888 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2889 ! |
|
2890 |
|
2891 makeOtherWarningOptions |
|
2892 "automatically generated by UIPainter ..." |
|
2893 |
|
2894 |holder| |
|
2895 |
|
2896 (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[ |
|
2897 builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue). |
|
2898 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2899 ]. |
|
2900 ^ holder. |
|
2901 |
|
2902 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2903 ! |
|
2904 |
|
2905 makeWarnEOLComments |
|
2906 "automatically generated by UIPainter ..." |
|
2907 |
|
2908 |holder| |
|
2909 |
|
2910 (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[ |
|
2911 builder aspectAt:#makeWarnEOLComments put:(holder := false asValue). |
|
2912 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2913 ]. |
|
2914 ^ holder. |
|
2915 |
|
2916 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2917 ! |
|
2918 |
|
2919 makeWarnNonStandard |
|
2920 "automatically generated by UIPainter ..." |
|
2921 |
|
2922 |holder| |
|
2923 |
|
2924 (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[ |
|
2925 builder aspectAt:#makeWarnNonStandard put:(holder := true asValue). |
|
2926 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
2927 ]. |
|
2928 ^ holder. |
|
2929 |
|
2930 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
2931 ! |
|
2932 |
2685 methodsFile |
2933 methodsFile |
2686 "automatically generated by UIPainter ..." |
2934 "automatically generated by UIPainter ..." |
2687 |
2935 |
2688 |holder| |
2936 |holder| |
2689 |
2937 |
3231 |
3479 |
3232 |projectName pNode |
3480 |projectName pNode |
3233 propertiesNode docNode classesNode patchesNode subprojectsNode filesNode |
3481 propertiesNode docNode classesNode patchesNode subprojectsNode filesNode |
3234 commentNode prerequisitesNode analysisNode designNode codeNode |
3482 commentNode prerequisitesNode analysisNode designNode codeNode |
3235 userDocNode userOverViewNode userGuideNode userRefManNode |
3483 userDocNode userOverViewNode userGuideNode userRefManNode |
3236 deploymentNode classIcon methodIcon |
3484 deploymentNode classIcon methodIcon buildOptionsNode |
3237 prerequisiteProjectsNode prerequisiteClassesNode| |
3485 prerequisiteProjectsNode prerequisiteClassesNode| |
3238 |
3486 |
3239 projectName := aProject name. |
3487 projectName := aProject name. |
3240 pNode := ProjectNode name:projectName. |
3488 pNode := ProjectNode name:projectName. |
3241 pNode contents:aProject. |
3489 pNode contents:aProject. |
3246 pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites'). |
3494 pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites'). |
3247 "/ pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects'). |
3495 "/ pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects'). |
3248 pNode add:(classesNode := ProjectTreeItem name:'Classes'). |
3496 pNode add:(classesNode := ProjectTreeItem name:'Classes'). |
3249 pNode add:(patchesNode := ProjectTreeItem name:'Patches'). |
3497 pNode add:(patchesNode := ProjectTreeItem name:'Patches'). |
3250 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
3498 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
|
3499 pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). |
3251 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
3500 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
3252 |
3501 |
3253 subprojectsNode notNil ifTrue:[ |
3502 subprojectsNode notNil ifTrue:[ |
3254 subprojectsNode contents:#subprojects. |
3503 subprojectsNode contents:#subprojects. |
3255 aProject subProjects do:[:aSubProject | |
3504 aProject subProjects do:[:aSubProject | |
3343 |
3592 |
3344 deploymentNode icon:(self class deploymentIcon). |
3593 deploymentNode icon:(self class deploymentIcon). |
3345 deploymentNode spec:[self class rightCanvasSpecForDeployment]. |
3594 deploymentNode spec:[self class rightCanvasSpecForDeployment]. |
3346 deploymentNode info:'Deployment & packaging specification.'. |
3595 deploymentNode info:'Deployment & packaging specification.'. |
3347 deploymentNode contents:#deployment. |
3596 deploymentNode contents:#deployment. |
|
3597 |
|
3598 buildOptionsNode icon:(self class buildOptionsIcon). |
|
3599 buildOptionsNode spec:[self class rightCanvasSpecForBuildOptions]. |
|
3600 buildOptionsNode info:'Compilation & include options.'. |
|
3601 buildOptionsNode contents:#buildOptions. |
3348 |
3602 |
3349 ^ pNode |
3603 ^ pNode |
3350 |
3604 |
3351 "Modified: / 23.3.1999 / 14:27:30 / cg" |
3605 "Modified: / 23.3.1999 / 14:27:30 / cg" |
3352 ! |
3606 ! |
3396 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
3650 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
3397 self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false. |
3651 self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false. |
3398 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
3652 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
3399 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
3653 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
3400 self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false. |
3654 self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false. |
|
3655 |
|
3656 self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''. |
|
3657 self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''. |
|
3658 self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''. |
|
3659 self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false. |
|
3660 self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true. |
|
3661 |
|
3662 "/ self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''. |
|
3663 "/ self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''. |
3401 |
3664 |
3402 self installDirectoryUnix |
3665 self installDirectoryUnix |
3403 value:(p propertyAt:#installDirectoryUnix) ? |
3666 value:(p propertyAt:#installDirectoryUnix) ? |
3404 ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages'). |
3667 ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages'). |
3405 self installDirectoryWin32 |
3668 self installDirectoryWin32 |
3553 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
3816 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
3554 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
3817 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
3555 p propertyAt:#deliverSources put:self deliverSources value. |
3818 p propertyAt:#deliverSources put:self deliverSources value. |
3556 p propertyAt:#deliverMakefiles put:self deliverMakefiles value. |
3819 p propertyAt:#deliverMakefiles put:self deliverMakefiles value. |
3557 |
3820 |
|
3821 p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value. |
|
3822 p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value. |
|
3823 p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value. |
|
3824 p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value. |
|
3825 p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value. |
|
3826 |
|
3827 "/ p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value. |
|
3828 "/ p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value. |
|
3829 |
3558 p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value. |
3830 p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value. |
3559 p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value. |
3831 p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value. |
3560 p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value. |
3832 p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value. |
3561 p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value. |
3833 p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value. |
3562 |
3834 |
3563 p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value |
3835 p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value |
|
3836 collect:[:entry | entry string asSymbol]). |
|
3837 |
|
3838 p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value |
3564 collect:[:entry | entry string asSymbol]). |
3839 collect:[:entry | entry string asSymbol]). |
3565 |
3840 |
3566 p addDependent:self. |
3841 p addDependent:self. |
3567 ]. |
3842 ]. |
3568 |
3843 |