--- a/AbstractSettingsApplication.st Thu Dec 10 06:39:51 2015 +0100
+++ b/AbstractSettingsApplication.st Sat Dec 05 07:23:08 2015 +0000
@@ -12451,6 +12451,35 @@
^ #('primitive code only' 'never')
! !
+!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'help specs'!
+
+helpSpec
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#ccOptions
+'Additional flags to pass to the C compiler when compiling a module.
+In most cases this can be left empty.'
+
+#ccOptionsBuiltin
+'These options are always passed to the C compiler.'
+
+)
+
+ "Modified: / 09-12-2015 / 09:58:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -12581,499 +12610,536 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: windowSpec
- window:
+ window:
(WindowSpec
- label: 'STC Compiler Settings'
- name: 'STC Compiler Settings'
- flags: 1
- min: (Point 10 10)
- bounds: (Rectangle 0 0 600 602)
- )
- component:
+ label: 'STC Compiler Settings'
+ name: 'STC Compiler Settings'
+ flags: 1
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 600 602)
+ )
+ component:
(SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'SeparatingBox1'
- extent: (Point 600 4)
- )
- (ViewSpec
- name: 'InfoTextBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- name: 'Label14'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- translateLabel: true
- labelChannel: helpText
- adjust: left
- )
- )
-
- )
- extent: (Point 600 90)
- )
- (ViewSpec
- name: 'STCCompilationBox11'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Compilation to Machine Code:'
- name: 'Label11'
- layout: (LayoutFrame 0 0 0 0 240 0 22 0)
- translateLabel: true
- adjust: right
- )
- (PopUpListSpec
- label: 'PopUp List'
- name: 'StcCompilation'
- layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
- tabable: true
- model: stcCompilationSelection
- enableChannel: canLoadBinaries
- menu: stcCompilationList
- useIndex: true
- )
- )
-
- )
- extent: (Point 600 29)
- )
- (ViewSpec
- name: 'STCCommandBox1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Command:'
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stc
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCOptionsBox2'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Options:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcOptions
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'KeepCIntermediateBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Keep Intermediate C File:'
- name: 'Label15'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (CheckToggleSpec
- name: 'CheckToggle1'
- layout: (LayoutOrigin 203 0 4 0)
- model: stcKeepCIntermediate
- isTriggerOnDown: true
- showLamp: false
- lampColor: (Color 100.0 100.0 0.0)
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CCCommandBox3'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CC Command:'
- name: 'Label3'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField3'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: cc
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CCOptionsBox4'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CC Options:'
- name: 'Label4'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField4'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: ccOptions
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'IncludeDirectoriesBox5'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Include Directories:'
- name: 'Label5'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField5'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcIncludes
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCDefinesBox6'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Defines:'
- name: 'Label6'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField6'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcDefines
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkCommandBox7'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Command:'
- name: 'Label7'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField7'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkCommand
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkArgumentsBox8'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Arguments:'
- name: 'Label8'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField8'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkArgs
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkSharedArgumentsBox1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Shared Arguments:'
- name: 'Label12'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField11'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkSharedArgs
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CLibrariesBox9'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'C-Libraries:'
- name: 'Label9'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField9'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcLibraries
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCLibraryPathBox10'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Library Path:'
- name: 'Label10'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField10'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: enableStcLibraryPath
- model: stcLibraryPath
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'MakeCommandBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Make Command:'
- name: 'Label13'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField12'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- model: makeCommand
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'SeparatingBox2'
- extent: (Point 600 12)
- )
- (ViewSpec
- name: 'SetupForBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Set above Options for:'
- name: 'Label16'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (PopUpListSpec
- name: 'PopUpList1'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- tabable: true
- model: supportedCCompilerSelection
- menu: supportedCCompilerList
- useIndex: true
- stateChangeCallBackSelector: supportedCCompilerSelectionChanged
- )
- )
-
- )
- extent: (Point 600 29)
- )
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Verbose (Trace Commands):'
- name: 'Label17'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (CheckToggleSpec
- name: 'CheckToggle2'
- layout: (LayoutOrigin 203 0 4 0)
- model: verbose
- isTriggerOnDown: true
- showLamp: false
- lampColor: (Color 100.0 100.0 0.0)
- )
- )
-
- )
- extent: (Point 600 30)
- )
- )
-
- )
- )
- )
-
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'SeparatingBox1'
+ extent: (Point 600 4)
+ )
+ (ViewSpec
+ name: 'InfoTextBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ name: 'Label14'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ translateLabel: true
+ labelChannel: helpText
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 600 90)
+ )
+ (ViewSpec
+ name: 'STCCompilationBox11'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Compilation to Machine Code:'
+ name: 'Label11'
+ layout: (LayoutFrame 0 0 0 0 240 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (PopUpListSpec
+ label: 'PopUp List'
+ name: 'StcCompilation'
+ layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
+ translateLabel: true
+ tabable: true
+ model: stcCompilationSelection
+ enableChannel: canLoadBinaries
+ menu: stcCompilationList
+ useIndex: true
+ )
+ )
+
+ )
+ extent: (Point 600 29)
+ )
+ (ViewSpec
+ name: 'STCCommandBox1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Command:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stc
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCOptionsBox2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Options:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcOptions
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'KeepCIntermediateBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Keep Intermediate C File:'
+ name: 'Label15'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (CheckToggleSpec
+ name: 'CheckToggle1'
+ layout: (LayoutOrigin 203 0 4 0)
+ translateLabel: true
+ model: stcKeepCIntermediate
+ isTriggerOnDown: true
+ showLamp: false
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CCCommandBox3'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CC Command:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: cc
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CCOptionsBox1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Built-in C flags:'
+ name: 'Label18'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ activeHelpKey: ccOptionsBuiltin
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField13'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ activeHelpKey: ccOptionsBuiltin
+ initiallyDisabled: true
+ enableChannel: canLoadBinaries
+ model: ccOptionsBuiltin
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 29)
+ )
+ (ViewSpec
+ name: 'CCOptionsBox2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'C flags:'
+ name: 'Label4'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ activeHelpKey: ccOptions
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField4'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ activeHelpKey: ccOptions
+ enableChannel: canLoadBinaries
+ model: ccOptions
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'IncludeDirectoriesBox5'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Include Directories:'
+ name: 'Label5'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField5'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcIncludes
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCDefinesBox6'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Defines:'
+ name: 'Label6'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField6'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcDefines
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkCommandBox7'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Command:'
+ name: 'Label7'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField7'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkCommand
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkArgumentsBox8'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Arguments:'
+ name: 'Label8'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField8'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkArgs
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkSharedArgumentsBox1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Shared Arguments:'
+ name: 'Label12'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField11'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkSharedArgs
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CLibrariesBox9'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'C-Libraries:'
+ name: 'Label9'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField9'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcLibraries
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCLibraryPathBox10'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Library Path:'
+ name: 'Label10'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField10'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: enableStcLibraryPath
+ model: stcLibraryPath
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'MakeCommandBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Make Command:'
+ name: 'Label13'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField12'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ model: makeCommand
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'SeparatingBox2'
+ extent: (Point 600 12)
+ )
+ (ViewSpec
+ name: 'SetupForBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Set above Options for:'
+ name: 'Label16'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (PopUpListSpec
+ name: 'PopUpList1'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ translateLabel: true
+ tabable: true
+ model: supportedCCompilerSelection
+ menu: supportedCCompilerList
+ useIndex: true
+ stateChangeCallBackSelector: supportedCCompilerSelectionChanged
+ )
+ )
+
+ )
+ extent: (Point 600 29)
+ )
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Verbose (Trace Commands):'
+ name: 'Label17'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (CheckToggleSpec
+ name: 'CheckToggle2'
+ layout: (LayoutOrigin 203 0 4 0)
+ translateLabel: true
+ model: verbose
+ isTriggerOnDown: true
+ showLamp: false
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ )
+
+ )
+ )
+ )
+
)
)
! !
@@ -13160,23 +13226,32 @@
!
setupForGCC
+ | stcPath |
self cc value:'gcc'.
- ExternalBytes sizeofPointer == 4 ifTrue:[
- self ccOptions value:'-m32'.
- self linkArgs value:'-m32'.
- self linkSharedArgs value:'-shared -m32'.
- ] ifFalse:[
- self ccOptions value:'-m64 -FPIC'.
- self linkArgs value:'-m64'.
- self linkSharedArgs value:'-shared -m64'.
- ].
- self stcIncludes value:'-I..\..\include -I/usr/include/freetype2'.
+ self linkSharedArgs value:'-shared'.
+
+ stcPath := self stc value asFilename.
+ (stcPath exists not and:[ stcPath isAbsolute ]) ifTrue:[
+ stcPath := OperatingSystem pathOfCommand:'stc'.
+ ].
+ (stcPath exists and:[stcPath isExecutable]) ifTrue:[
+ | stcInclude |
+
+ stcInclude := stcPath directory / 'include'.
+ stcInclude isDictionary ifTrue:[
+ self stcIncludes value:'-I', stcInclude pathName.
+ ].
+ ].
+
+
self linkCommand value:'gcc'.
self stcLibraries value:''.
self makeCommand value:'make'.
self updateModifiedChannel.
self supportedCCompilerSelection value:0
+
+ "Modified: / 05-12-2015 / 07:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setupForMINGW
@@ -13282,6 +13357,12 @@
^ ccOptions.
!
+ccOptionsBuiltin
+ ^ STCCompilerInterface builtinCFlags
+
+ "Created: / 09-12-2015 / 09:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
enableStcLibraryPath
^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
@@ -19769,5 +19850,10 @@
version_CVS
^ '$Header$'
-! !
-
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+