--- a/AbstractSettingsApplication.st Tue May 21 22:21:26 2013 +0200
+++ b/AbstractSettingsApplication.st Tue May 21 22:31:29 2013 +0200
@@ -38,8 +38,8 @@
allowFixedPointLiterals justInTimeCompilation canLoadBinaries
constantFoldingSelection keepSource constantFolding
constantFoldingOptions fullDebugSupport immutableArrays
- enableUnderscore enableDollar allowEmptyStatements
- warnAboutPossibleSTCCompilationProblems
+ immutableStrings enableUnderscore enableDollar
+ allowEmptyStatements warnAboutPossibleSTCCompilationProblems
warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
warnAboutPossiblyUnimplementedSelectors
allowExtendedBinarySelectors warnAboutMissingMethodComment
@@ -256,7 +256,7 @@
instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
stcCompilationSelection stcCompilationList makeCommand
- stcKeepCIntermediate supportedCCompilerSelection'
+ stcKeepCIntermediate supportedCCompilerSelection verbose'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -997,6 +997,81 @@
^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
! !
+!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+ "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::ByteCodeCompilerSettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super flyByHelpSpec addPairsFrom: self helpPairs
+!
+
+helpPairs
+ "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::ByteCodeCompilerSettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ #(
+
+#arraysAreImmutable
+'Array literals are readonly objects, which cannot be modified.
+Prevents constant arrays as returned from a method to be modified elsewhere by accident.'
+
+#fullDebugInfo
+'Include more debug support in the generated code.
+Especially restartability and returnability of methods in the debugger are improved.'
+
+#stringsAreImmutable
+'String literals are readonly objects, which cannot be modified.
+Prevents constant strings as returned from a method to be modified elsewehere by accident.'
+
+)
+!
+
+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::ByteCodeCompilerSettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#arraysAreImmutable
+''
+
+#fullDebugInfo
+''
+
+#stringsAreImmutable
+''
+
+)
+! !
+
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
defaultIcon
@@ -1470,8 +1545,17 @@
extent: (Point 665 2)
)
(CheckBoxSpec
+ label: 'Literal Strings are Immutable'
+ name: 'LiteralStringsAreImmutable'
+ activeHelpKey: stringsAreImmutable
+ model: stringsAreImmutable
+ translateLabel: true
+ extent: (Point 665 22)
+ )
+ (CheckBoxSpec
label: 'Literal Arrays are Immutable'
- name: 'LiteralArraysAreImmutable'
+ name: 'CheckBox9'
+ activeHelpKey: arraysAreImmutable
model: arraysAreImmutable
translateLabel: true
extent: (Point 665 22)
@@ -1479,6 +1563,7 @@
(CheckBoxSpec
label: 'Full Debug Info'
name: 'FullDebugInfo'
+ activeHelpKey: fullDebugInfo
model: fullDebugSupport
translateLabel: true
extent: (Point 665 22)
@@ -1521,8 +1606,6 @@
)
)
-
- "Modified: / 08-03-2012 / 10:26:26 / cg"
! !
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
@@ -1617,6 +1700,7 @@
allowExtendedBinarySelectors
arraysAreImmutable
+ stringsAreImmutable
allowAssignmentToPoolVariable
)
@@ -1836,6 +1920,15 @@
^ justInTimeCompilation.
!
+stringsAreImmutable
+
+ immutableStrings isNil ifTrue:[
+ immutableStrings := ParserFlags arraysAreImmutable asValue.
+ immutableStrings onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ immutableStrings.
+!
+
warnAboutBadComments
warnAboutBadComments isNil ifTrue:[
warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
@@ -12326,6 +12419,31 @@
)
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)
+ )
)
)
@@ -12344,6 +12462,8 @@
self canLoadBinaries
value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
+ self verbose value:(STCCompilerInterface verbose ? false).
+
self stcIncludes value:ParserFlags stcCompilationIncludes.
self stcDefines value:ParserFlags stcCompilationDefines.
self stcOptions value:ParserFlags stcCompilationOptions.
@@ -12374,6 +12494,8 @@
basicSaveSettings
+ STCCompilerInterface verbose:self verbose value.
+
ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
ParserFlags stcCompilationIncludes:self stcIncludes value.
ParserFlags stcCompilationDefines:self stcDefines value.
@@ -12667,6 +12789,15 @@
supportedCCompilerSelection := ValueHolder new.
].
^ supportedCCompilerSelection.
+!
+
+verbose
+
+ verbose isNil ifTrue:[
+ verbose := false asValue.
+ verbose onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ verbose.
! !
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
@@ -12691,6 +12822,8 @@
((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
+ ((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true].
+
((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
@@ -17652,10 +17785,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.465 2013-04-26 09:48:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.466 2013-05-21 20:31:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.465 2013-04-26 09:48:22 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.466 2013-05-21 20:31:29 cg Exp $'
+! !
+