diff -r a18236e7b4ce -r 97ec3bf7d991 ProjectBrowser.st --- a/ProjectBrowser.st Thu Sep 23 09:00:28 1999 +0200 +++ b/ProjectBrowser.st Thu Sep 23 19:55:16 1999 +0200 @@ -165,6 +165,25 @@ !ProjectBrowser class methodsFor:'image specs'! +buildOptionsIcon + "This resource specification was automatically generated + by the ImageEditor of ST/X." + + "Do not manually edit this!! If it is corrupted, + the ImageEditor may not be able to read the specification." + + " + self deploymentIcon inspect + ImageEditor openOnClass:self andSelector:#deploymentIcon + " + + + + ^Icon + constantNamed:#'ProjectBrowser buildOptionsIcon' + 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? + + ^ + #(#FullSpec + #name: #rightCanvasSpecForBuildOptions + #window: + #(#WindowSpec + #label: 'NewApplication' + #name: 'NewApplication' + #min: #(#Point 10 10) + #max: #(#Point 1280 1024) + #bounds: #(#Rectangle 216 173 577 536) + ) + #component: + #(#SpecCollection + #collection: #( + #(#FramedBoxSpec + #label: 'STC Compiler Warnings' + #name: 'FramedBox2' + #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0) + #labelPosition: #topLeft + #translateLabel: true + #component: + #(#SpecCollection + #collection: #( + #(#CheckBoxSpec + #label: 'Non Standard Language Features' + #name: 'CheckBox1' + #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0) + #tabable: true + #model: #makeWarnNonStandard + #translateLabel: true + ) + #(#CheckBoxSpec + #label: 'End-of-line Comments' + #name: 'CheckBox2' + #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0) + #tabable: true + #model: #makeWarnEOLComments + #translateLabel: true + ) + #(#LabelSpec + #label: 'other warning options:' + #name: 'Label3' + #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0) + #translateLabel: true + #adjust: #left + ) + #(#InputFieldSpec + #name: 'EntryField1' + #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0) + #activeHelpKey: #projectDir + #tabable: true + #model: #makeOtherWarningOptions + #acceptChannel: #acceptChannel + #modifiedChannel: #modifiedChannel + #acceptOnPointerLeave: false + ) + ) + + ) + ) + #(#FramedBoxSpec + #label: 'STC Compiler Includes' + #name: 'FramedBox3' + #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0) + #labelPosition: #topLeft + #translateLabel: true + #component: + #(#SpecCollection + #collection: #( + #(#InputFieldSpec + #name: 'EntryField2' + #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) + #activeHelpKey: #repositoryModule + #tabable: true + #model: #makeIncludes + #acceptChannel: #acceptChannel + #modifiedChannel: #modifiedChannel + #acceptOnPointerLeave: false + ) + ) + + ) + ) + #(#FramedBoxSpec + #label: 'STC Compiler Defines' + #name: 'FramedBox5' + #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0) + #labelPosition: #topLeft + #translateLabel: true + #component: + #(#SpecCollection + #collection: #( + #(#InputFieldSpec + #name: 'EntryField5' + #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) + #activeHelpKey: #repositoryModule + #tabable: true + #model: #makeDefines + #acceptChannel: #acceptChannel + #modifiedChannel: #modifiedChannel + #acceptOnPointerLeave: false + ) + ) + + ) + ) + #(#HorizontalPanelViewSpec + #name: 'HorizontalPanel1' + #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) + #horizontalLayout: #fitSpace + #verticalLayout: #center + #horizontalSpace: 3 + #verticalSpace: 3 + #component: + #(#SpecCollection + #collection: #( + #(#ActionButtonSpec + #label: 'Cancel' + #name: 'Button1' + #activeHelpKey: #cancel + #translateLabel: true + #model: #cancel + #enableChannel: #modifiedChannel + #actionValue: '' + #useDefaultExtent: true + ) + #(#ActionButtonSpec + #label: 'OK' + #name: 'Button2' + #activeHelpKey: #accept + #translateLabel: true + #model: #accept + #enableChannel: #modifiedChannel + #useDefaultExtent: true + ) + ) + + ) + ) + ) + + ) + ) +! + rightCanvasSpecForClassList "This resource specification was automatically generated by the UIPainter of ST/X." @@ -2682,6 +2860,76 @@ "Created: / 23.3.1999 / 14:18:05 / cg" ! +makeDefines + "automatically generated by UIPainter ..." + + |holder| + + (holder := builder bindingAt:#makeDefines) isNil ifTrue:[ + builder aspectAt:#makeDefines put:(holder := '' asValue). + holder onChangeSend:#value to:[modifiedChannel value:true]. + ]. + ^ holder. + + "Created: / 23.3.1999 / 14:18:05 / cg" +! + +makeIncludes + "automatically generated by UIPainter ..." + + |holder| + + (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[ + builder aspectAt:#makeIncludes put:(holder := '' asValue). + holder onChangeSend:#value to:[modifiedChannel value:true]. + ]. + ^ holder. + + "Created: / 23.3.1999 / 14:18:05 / cg" +! + +makeOtherWarningOptions + "automatically generated by UIPainter ..." + + |holder| + + (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[ + builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue). + holder onChangeSend:#value to:[modifiedChannel value:true]. + ]. + ^ holder. + + "Created: / 23.3.1999 / 14:18:05 / cg" +! + +makeWarnEOLComments + "automatically generated by UIPainter ..." + + |holder| + + (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[ + builder aspectAt:#makeWarnEOLComments put:(holder := false asValue). + holder onChangeSend:#value to:[modifiedChannel value:true]. + ]. + ^ holder. + + "Created: / 23.3.1999 / 14:18:05 / cg" +! + +makeWarnNonStandard + "automatically generated by UIPainter ..." + + |holder| + + (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[ + builder aspectAt:#makeWarnNonStandard put:(holder := true asValue). + holder onChangeSend:#value to:[modifiedChannel value:true]. + ]. + ^ holder. + + "Created: / 23.3.1999 / 14:18:05 / cg" +! + methodsFile "automatically generated by UIPainter ..." @@ -3233,7 +3481,7 @@ propertiesNode docNode classesNode patchesNode subprojectsNode filesNode commentNode prerequisitesNode analysisNode designNode codeNode userDocNode userOverViewNode userGuideNode userRefManNode - deploymentNode classIcon methodIcon + deploymentNode classIcon methodIcon buildOptionsNode prerequisiteProjectsNode prerequisiteClassesNode| projectName := aProject name. @@ -3248,6 +3496,7 @@ pNode add:(classesNode := ProjectTreeItem name:'Classes'). pNode add:(patchesNode := ProjectTreeItem name:'Patches'). pNode add:(filesNode := ProjectTreeItem name:'Files'). + pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). subprojectsNode notNil ifTrue:[ @@ -3346,6 +3595,11 @@ deploymentNode info:'Deployment & packaging specification.'. deploymentNode contents:#deployment. + buildOptionsNode icon:(self class buildOptionsIcon). + buildOptionsNode spec:[self class rightCanvasSpecForBuildOptions]. + buildOptionsNode info:'Compilation & include options.'. + buildOptionsNode contents:#buildOptions. + ^ pNode "Modified: / 23.3.1999 / 14:27:30 / cg" @@ -3399,6 +3653,15 @@ self deliverSources value:(p propertyAt:#deliverSources) ? false. self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false. + self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''. + self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''. + self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''. + self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false. + self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true. + +"/ self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''. +"/ self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''. + self installDirectoryUnix value:(p propertyAt:#installDirectoryUnix) ? ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages'). @@ -3555,6 +3818,15 @@ p propertyAt:#deliverSources put:self deliverSources value. p propertyAt:#deliverMakefiles put:self deliverMakefiles value. + p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value. + p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value. + p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value. + p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value. + p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value. + +"/ p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value. +"/ p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value. + p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value. p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value. p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value. @@ -3563,6 +3835,9 @@ p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value collect:[:entry | entry string asSymbol]). + p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value + collect:[:entry | entry string asSymbol]). + p addDependent:self. ].