--- 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
+ "
+
+ <resource: #image>
+
+ ^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?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
+!
+
classIcon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -388,6 +407,165 @@
)
!
+rightCanvasSpecForBuildOptions
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForBuildOptions
+ ProjectBrowser new openInterface:#rightCanvasSpecForBuildOptions
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(#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.
].