class: AbstractSettingsApplication
authorClaus Gittinger <cg@exept.de>
Tue, 06 May 2014 18:06:42 +0200
changeset 14307 8198db379b53
parent 14306 9dfa3f159bd3
child 14308 192c81c86815
class: AbstractSettingsApplication tooltips
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Tue May 06 16:48:24 2014 +0200
+++ b/AbstractSettingsApplication.st	Tue May 06 18:06:42 2014 +0200
@@ -1071,7 +1071,7 @@
 'Pool variables should only be initialized in the pool itself and not modified elsewhere later.\This flag makes pool varaiables writable.\May be required to fileIn code from Squeak and other Smalltalk dialects'
 
 #allowDollarInIdentifier
-'Check this to allow dollar character in identifiers. This may be required to filein old code for VAX Smalltalk'
+'Check this to allow dollar character in identifiers.\This may be required to filein old code for VAX Smalltalk,\but is not compatible to most other Smalltalk dialects.'
 
 #allowDolphinExtensions
 'Allow Dolphin-Smalltalk specific syntax extensions'
@@ -1083,7 +1083,7 @@
 'Allow extended binary selectors (more than 2 characters, including "^", "|" and "#")'
 
 #allowFixedPointLiterals
-''
+'Allow <v>s<n> fixed point literals (scaled or fixed-point decimal v with n digits precision)'
 
 #allowOldStyleAssignment
 'Allow "_" as assignment. May be required to filein Squeak code'
@@ -1095,43 +1095,43 @@
 'Allow "self", "super" as selectors. May be required to filein code from other Smalltalk dialects'
 
 #allowSqueakExtensions
-'Allow some Squeak extensions (primitive spec after locals, brace array construction, c style arguments'
+'Allow some Squeak extensions (primitive spec after locals, brace array construction, C style arguments'
 
 #allowUnderscoreInIdentifier
 'Allow underscore characters in identifiers. Not compatible with Squeak.'
 
-"/#allowVisualAgeESSymbolLiterals
-"/''
-"/
-"/#allowVisualAgePrimitives
-"/''
+#allowVisualAgeESSymbolLiterals
+'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
+
+#allowVisualAgePrimitives
+'Allow VisualAge primitive specification syntax'
 "/
 "/#warnAboutPossibleSTCCompilationProblems
 "/''
 "/
-"/#warnAboutPossiblyUnimplementedSelectors
-"/''
-"/
-"/#warnAboutReferenceToPrivateClass
-"/''
-"/
-"/#warnDollarInIdentifier
-"/''
-"/
-"/#warnOldStyleAssignment
-"/''
+#warnAboutPossiblyUnimplementedSelectors
+'Warn about a possibly unimplemented selector in a smessage send'
+
+#warnAboutReferenceToPrivateClass
+'Warn when another classes private class is referenced.\This is considered "bad style" and should be replaced by a getter-call to the owning class or the privae class be made public'
+
+#warnDollarInIdentifier
+'Warn if an identifier contains a dollar character.\This is not allowed in most other Smalltalk dialects.'
+
+#warnOldStyleAssignment
+'Warn if an old style assignment ("_" character) is used instead of the modern ":=".'
+
+#warnPlausibilityChecks
+'Perform plausibility checks and warn about any such possible problem'
+
+#warnPossibleIncompatibilities
+'Warn about other possible incompatibilities'
 "/
-"/#warnPlausibilityChecks
-"/''
-"/
-"/#warnPossibleIncompatibilities
-"/''
+#warnSTXSpecials
+'Warn when ST/X special syntax is encountered.\Such constructs may be unportable to other Smalltalk dialects'
 "/
-"/#warnSTXSpecials
-"/''
-"/
-"/#warnUnderscoreInIdentifier
-"/''
+#warnUnderscoreInIdentifier
+'Warn if an identifier contains an underline character.\This is not allowed in some old Smalltalk dialects.'
 
 #warnings
 'Turn off all warnings'
@@ -1243,459 +1243,460 @@
     <resource: #canvas>
 
     ^ 
-     #(FullSpec
-        name: windowSpec
-        window: 
-       (WindowSpec
-          label: 'Byte Code Compiler Settings'
-          name: 'Byte Code Compiler Settings'
-          min: (Point 10 10)
-          bounds: (Rectangle 0 0 665 706)
-        )
-        component: 
-       (SpecCollection
-          collection: (
-           (VerticalPanelViewSpec
-              name: 'VerticalPanel1'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              horizontalLayout: fit
-              verticalLayout: top
-              horizontalSpace: 3
-              verticalSpace: 3
-              component: 
-             (SpecCollection
-                collection: (
-                 (CheckBoxSpec
-                    label: 'Just in Time Compilation to Machine Code'
-                    name: 'JustInTimeCompilation'
-                    model: justInTimeCompilation
-                    translateLabel: true
-                    extent: (Point 665 25)
-                  )
-                 (DividerSpec
-                    name: 'Separator3'
-                    extent: (Point 665 3)
-                  )
-                 (ViewSpec
-                    name: 'Box1'
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (VerticalPanelViewSpec
-                          name: 'VerticalPanel1_1'
-                          layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
-                          horizontalLayout: fit
-                          verticalLayout: top
-                          horizontalSpace: 3
-                          verticalSpace: 0
-                          component: 
-                         (SpecCollection
-                            collection: (
-                             (CheckBoxSpec
-                                label: 'Allow Underscore in Identifiers'
-                                name: 'AllowUnderscoreInIdentifiers'
-                                activeHelpKey: allowUnderscoreInIdentifier
-                                model: allowUnderscoreInIdentifier
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Dollar in Identifiers'
-                                name: 'AllowDollarInIdentifiers'
-                                activeHelpKey: allowDollarInIdentifier
-                                model: allowDollarInIdentifier
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow VW3 QualifiedNames'
-                                name: 'AllowVW3QualifiedNames'
-                                activeHelpKey: allowQualifiedNames
-                                model: allowQualifiedNames
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow OldStyle Assignment (_)'
-                                name: 'AllowOldStyleAssignment'
-                                activeHelpKey: allowOldStyleAssignment
-                                model: allowOldStyleAssignment
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Reserved Words as Selector (self)'
-                                name: 'AllowReservedWordsAsSelector'
-                                activeHelpKey: allowReservedWordsAsSelectors
-                                model: allowReservedWordsAsSelectors
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Extended Binary Selectors'
-                                name: 'CheckBox4'
-                                activeHelpKey: allowExtendedBinarySelectors
-                                model: allowExtendedBinarySelectors
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Assignment to Pool Variable'
-                                name: 'CheckBox6'
-                                activeHelpKey: allowAssignmentToPoolVariable
-                                model: allowAssignmentToPoolVariable
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             )
-                           
-                          )
-                        )
-                       (VerticalPanelViewSpec
-                          name: 'VerticalPanel1_2'
-                          layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
-                          horizontalLayout: left
-                          verticalLayout: top
-                          horizontalSpace: 3
-                          verticalSpace: 0
-                          component: 
-                         (SpecCollection
-                            collection: (
-                             (CheckBoxSpec
-                                label: 'Allow Squeak Extensions'
-                                name: 'AllowSqueakExtensions'
-                                activeHelpKey: allowSqueakExtensions
-                                model: allowSqueakExtensions
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Dolphin Extensions'
-                                name: 'AllowDolphinExtensions'
-                                activeHelpKey: allowDolphinExtensions
-                                model: allowDolphinExtensions
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow VisualAge ES-Symbols'
-                                name: 'AllowVisualAgeESSymbolLiterals'
-                                activeHelpKey: allowVisualAgeESSymbolLiterals
-                                model: allowVisualAgeESSymbolLiterals
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow VisualAge Primitives'
-                                name: 'CheckBox8'
-                                activeHelpKey: allowVisualAgePrimitives
-                                model: allowVisualAgePrimitives
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow FixedPoint-Number Literals'
-                                name: 'AllowFixedPointLiterals'
-                                activeHelpKey: allowFixedPointLiterals
-                                model: allowFixedPointLiterals
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Allow Empty Statements'
-                                name: 'AllowEmptyStatements'
-                                activeHelpKey: allowEmptyStatements
-                                model: allowEmptyStatements
-                                translateLabel: true
-                                extent: (Point 665 22)
-                              )
-                             )
-                           
-                          )
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 665 157)
-                  )
-                 (DividerSpec
-                    name: 'Separator4'
-                    extent: (Point 665 1)
-                  )
-                 (CheckBoxSpec
-                    label: 'Warnings'
-                    name: 'Warnings'
-                    activeHelpKey: warnings
-                    model: warnings
-                    translateLabel: true
-                    extent: (Point 665 22)
-                  )
-                 (ViewSpec
-                    name: 'Box2'
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (VerticalPanelViewSpec
-                          name: 'VerticalPanel2_1'
-                          layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
-                          horizontalLayout: fit
-                          verticalLayout: top
-                          horizontalSpace: 3
-                          verticalSpace: 0
-                          component: 
-                         (SpecCollection
-                            collection: (
-                             (CheckBoxSpec
-                                label: 'ST/X Extensions'
-                                name: 'STXExtensions'
-                                activeHelpKey: warnSTXSpecials
-                                enableChannel: warnings
-                                model: warnSTXSpecials
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Reference to Private Class'
-                                name: 'CheckBox1'
-                                activeHelpKey: warnAboutReferenceToPrivateClass
-                                enableChannel: warnings
-                                model: warnAboutReferenceToPrivateClass
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Underscores in Identifiers'
-                                name: 'UnderscoresInIdentifiers'
-                                activeHelpKey: warnUnderscoreInIdentifier
-                                enableChannel: enableUnderscore
-                                model: warnUnderscoreInIdentifier
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Dollars in Identifiers'
-                                name: 'DollarsInIdentifiers'
-                                activeHelpKey: warnDollarInIdentifier
-                                enableChannel: enableDollar
-                                model: warnDollarInIdentifier
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'OldStyle Assignment'
-                                name: 'OldStyleAssignment'
-                                activeHelpKey: warnOldStyleAssignment
-                                enableChannel: warnings
-                                model: warnOldStyleAssignment
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Possible Incompatibilities'
-                                name: 'PossibleIncompatibilities'
-                                activeHelpKey: warnPossibleIncompatibilities
-                                enableChannel: warnings
-                                model: warnPossibleIncompatibilities
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Possible STC Compilation Problems'
-                                name: 'PossibleSTCCompilationProblems'
-                                activeHelpKey: warnAboutPossibleSTCCompilationProblems
-                                enableChannel: warnings
-                                model: warnAboutPossibleSTCCompilationProblems
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Possibly Unimplemented Selectors'
-                                name: 'CheckBox3'
-                                activeHelpKey: warnAboutPossiblyUnimplementedSelectors
-                                enableChannel: warnings
-                                model: warnAboutPossiblyUnimplementedSelectors
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Plausibility Checks'
-                                name: 'CheckBox7'
-                                activeHelpKey: warnPlausibilityChecks
-                                enableChannel: warnings
-                                model: warnPlausibilityChecks
-                                translateLabel: true
-                                extent: (Point 313 22)
-                              )
-                             )
-                           
-                          )
-                        )
-                       (VerticalPanelViewSpec
-                          name: 'VerticalPanel2_2'
-                          layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
-                          horizontalLayout: left
-                          verticalLayout: top
-                          horizontalSpace: 3
-                          verticalSpace: 0
-                          component: 
-                         (SpecCollection
-                            collection: (
-                             (CheckBoxSpec
-                                label: 'Unused Method Variables'
-                                name: 'UnusedMethodVariables'
-                                enableChannel: warnings
-                                model: warnUnusedVars
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Bad (non-English) Variable Names'
-                                name: 'BadVariableNames'
-                                enableChannel: warnings
-                                model: warnAboutWrongVariableNames
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Bad (Non-Lowercase) Local Variable Names'
-                                name: 'BadLocalVariableNames'
-                                enableChannel: warnings
-                                model: warnAboutNonLowercaseLocalVariableNames
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Bad (Short) Local Variable Names'
-                                name: 'CheckBox2'
-                                enableChannel: warnings
-                                model: warnAboutShortLocalVariableNames
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Bad (empty) Comments'
-                                name: 'BadComments'
-                                enableChannel: warnings
-                                model: warnAboutBadComments
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Method-Comment Missing '
-                                name: 'CheckBox5'
-                                enableChannel: warnings
-                                model: warnAboutMissingMethodComment
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Inconsistent Return Values'
-                                name: 'InconsistentReturnValues'
-                                enableChannel: warnings
-                                model: warnInconsistentReturnValues
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             (CheckBoxSpec
-                                label: 'Common Mistakes'
-                                name: 'CommonMistakes'
-                                enableChannel: warnings
-                                model: warnCommonMistakes
-                                translateLabel: true
-                                extent: (Point 600 22)
-                              )
-                             )
-                           
-                          )
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 665 206)
-                  )
-                 (ViewSpec
-                    name: 'Box4'
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (ActionButtonSpec
-                          label: 'Reenable Suppressed Warnings Now'
-                          name: 'Button1'
-                          layout: (LayoutOrigin 0 0.5 0 0)
-                          translateLabel: true
-                          model: reenableSuppressedWarnings
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 665 30)
-                  )
-                 (DividerSpec
-                    name: 'Separator5'
-                    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: 'CheckBox9'
-                    activeHelpKey: arraysAreImmutable
-                    model: arraysAreImmutable
-                    translateLabel: true
-                    extent: (Point 665 22)
-                  )
-                 (CheckBoxSpec
-                    label: 'Full Debug Info'
-                    name: 'FullDebugInfo'
-                    activeHelpKey: fullDebugInfo
-                    model: fullDebugSupport
-                    translateLabel: true
-                    extent: (Point 665 22)
-                  )
-                 (DividerSpec
-                    name: 'Separator6'
-                    extent: (Point 665 2)
-                  )
-                 (ViewSpec
-                    name: 'Box3'
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (LabelSpec
-                          label: 'Constant Folding:'
-                          name: 'ConstantFoldingLabel'
-                          layout: (LayoutFrame 0 0 0 0 306 0 22 0)
-                          translateLabel: true
-                          adjust: right
-                        )
-                       (PopUpListSpec
-                          label: 'PopUp List'
-                          name: 'ConstantFolding'
-                          layout: (LayoutFrame 313 0 0 0 -5 1 22 0)
-                          tabable: true
-                          model: constantFoldingSelection
-                          menu: constantFolding
-                          useIndex: true
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 665 22)
-                  )
-                 )
-               
-              )
-            )
-           )
-         
-        )
-      )
+    #(FullSpec
+       name: windowSpec
+       window: 
+      (WindowSpec
+         label: 'Byte Code Compiler Settings'
+         name: 'Byte Code Compiler Settings'
+         flags: 1
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 665 706)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (VerticalPanelViewSpec
+             name: 'VerticalPanel1'
+             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+             horizontalLayout: fit
+             verticalLayout: top
+             horizontalSpace: 3
+             verticalSpace: 3
+             component: 
+            (SpecCollection
+               collection: (
+                (CheckBoxSpec
+                   label: 'Just in Time Compilation to Machine Code'
+                   name: 'JustInTimeCompilation'
+                   model: justInTimeCompilation
+                   translateLabel: true
+                   extent: (Point 665 25)
+                 )
+                (DividerSpec
+                   name: 'Separator3'
+                   extent: (Point 665 3)
+                 )
+                (ViewSpec
+                   name: 'Box1'
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (VerticalPanelViewSpec
+                         name: 'VerticalPanel1_1'
+                         layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
+                         horizontalLayout: fit
+                         verticalLayout: top
+                         horizontalSpace: 3
+                         verticalSpace: 0
+                         component: 
+                        (SpecCollection
+                           collection: (
+                            (CheckBoxSpec
+                               label: 'Allow Underscore in Identifiers'
+                               name: 'AllowUnderscoreInIdentifiers'
+                               activeHelpKey: allowUnderscoreInIdentifier
+                               model: allowUnderscoreInIdentifier
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Dollar in Identifiers'
+                               name: 'AllowDollarInIdentifiers'
+                               activeHelpKey: allowDollarInIdentifier
+                               model: allowDollarInIdentifier
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow VW3 QualifiedNames'
+                               name: 'AllowVW3QualifiedNames'
+                               activeHelpKey: allowQualifiedNames
+                               model: allowQualifiedNames
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow OldStyle Assignment (_)'
+                               name: 'AllowOldStyleAssignment'
+                               activeHelpKey: allowOldStyleAssignment
+                               model: allowOldStyleAssignment
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Reserved Words as Selector (self)'
+                               name: 'AllowReservedWordsAsSelector'
+                               activeHelpKey: allowReservedWordsAsSelectors
+                               model: allowReservedWordsAsSelectors
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Extended Binary Selectors'
+                               name: 'CheckBox4'
+                               activeHelpKey: allowExtendedBinarySelectors
+                               model: allowExtendedBinarySelectors
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Assignment to Pool Variable'
+                               name: 'CheckBox6'
+                               activeHelpKey: allowAssignmentToPoolVariable
+                               model: allowAssignmentToPoolVariable
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            )
+                          
+                         )
+                       )
+                      (VerticalPanelViewSpec
+                         name: 'VerticalPanel1_2'
+                         layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
+                         horizontalLayout: left
+                         verticalLayout: top
+                         horizontalSpace: 3
+                         verticalSpace: 0
+                         component: 
+                        (SpecCollection
+                           collection: (
+                            (CheckBoxSpec
+                               label: 'Allow Squeak Extensions'
+                               name: 'AllowSqueakExtensions'
+                               activeHelpKey: allowSqueakExtensions
+                               model: allowSqueakExtensions
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Dolphin Extensions'
+                               name: 'AllowDolphinExtensions'
+                               activeHelpKey: allowDolphinExtensions
+                               model: allowDolphinExtensions
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow VisualAge ES-Symbols'
+                               name: 'AllowVisualAgeESSymbolLiterals'
+                               activeHelpKey: allowVisualAgeESSymbolLiterals
+                               model: allowVisualAgeESSymbolLiterals
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow VisualAge Primitives'
+                               name: 'CheckBox8'
+                               activeHelpKey: allowVisualAgePrimitives
+                               model: allowVisualAgePrimitives
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow FixedPoint-Number Literals'
+                               name: 'AllowFixedPointLiterals'
+                               activeHelpKey: allowFixedPointLiterals
+                               model: allowFixedPointLiterals
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Allow Empty Statements'
+                               name: 'AllowEmptyStatements'
+                               activeHelpKey: allowEmptyStatements
+                               model: allowEmptyStatements
+                               translateLabel: true
+                               extent: (Point 665 22)
+                             )
+                            )
+                          
+                         )
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 665 157)
+                 )
+                (DividerSpec
+                   name: 'Separator4'
+                   extent: (Point 665 1)
+                 )
+                (CheckBoxSpec
+                   label: 'Warnings'
+                   name: 'Warnings'
+                   activeHelpKey: warnings
+                   model: warnings
+                   translateLabel: true
+                   extent: (Point 665 22)
+                 )
+                (ViewSpec
+                   name: 'Box2'
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (VerticalPanelViewSpec
+                         name: 'VerticalPanel2_1'
+                         layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
+                         horizontalLayout: fit
+                         verticalLayout: top
+                         horizontalSpace: 3
+                         verticalSpace: 0
+                         component: 
+                        (SpecCollection
+                           collection: (
+                            (CheckBoxSpec
+                               label: 'ST/X Extensions'
+                               name: 'STXExtensions'
+                               activeHelpKey: warnSTXSpecials
+                               enableChannel: warnings
+                               model: warnSTXSpecials
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Reference to Private Class'
+                               name: 'CheckBox1'
+                               activeHelpKey: warnAboutReferenceToPrivateClass
+                               enableChannel: warnings
+                               model: warnAboutReferenceToPrivateClass
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Underscores in Identifiers'
+                               name: 'UnderscoresInIdentifiers'
+                               activeHelpKey: warnUnderscoreInIdentifier
+                               enableChannel: enableUnderscore
+                               model: warnUnderscoreInIdentifier
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Dollars in Identifiers'
+                               name: 'DollarsInIdentifiers'
+                               activeHelpKey: warnDollarInIdentifier
+                               enableChannel: enableDollar
+                               model: warnDollarInIdentifier
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'OldStyle Assignment'
+                               name: 'OldStyleAssignment'
+                               activeHelpKey: warnOldStyleAssignment
+                               enableChannel: warnings
+                               model: warnOldStyleAssignment
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Possible Incompatibilities'
+                               name: 'PossibleIncompatibilities'
+                               activeHelpKey: warnPossibleIncompatibilities
+                               enableChannel: warnings
+                               model: warnPossibleIncompatibilities
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Possible STC Compilation Problems'
+                               name: 'PossibleSTCCompilationProblems'
+                               activeHelpKey: warnAboutPossibleSTCCompilationProblems
+                               enableChannel: warnings
+                               model: warnAboutPossibleSTCCompilationProblems
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Possibly Unimplemented Selectors'
+                               name: 'CheckBox3'
+                               activeHelpKey: warnAboutPossiblyUnimplementedSelectors
+                               enableChannel: warnings
+                               model: warnAboutPossiblyUnimplementedSelectors
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Plausibility Checks'
+                               name: 'CheckBox7'
+                               activeHelpKey: warnPlausibilityChecks
+                               enableChannel: warnings
+                               model: warnPlausibilityChecks
+                               translateLabel: true
+                               extent: (Point 313 22)
+                             )
+                            )
+                          
+                         )
+                       )
+                      (VerticalPanelViewSpec
+                         name: 'VerticalPanel2_2'
+                         layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
+                         horizontalLayout: left
+                         verticalLayout: top
+                         horizontalSpace: 3
+                         verticalSpace: 0
+                         component: 
+                        (SpecCollection
+                           collection: (
+                            (CheckBoxSpec
+                               label: 'Unused Method Variables'
+                               name: 'UnusedMethodVariables'
+                               enableChannel: warnings
+                               model: warnUnusedVars
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Bad (non-English) Variable Names'
+                               name: 'BadVariableNames'
+                               enableChannel: warnings
+                               model: warnAboutWrongVariableNames
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Bad (Non-Lowercase) Local Variable Names'
+                               name: 'BadLocalVariableNames'
+                               enableChannel: warnings
+                               model: warnAboutNonLowercaseLocalVariableNames
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Bad (Short) Local Variable Names'
+                               name: 'CheckBox2'
+                               enableChannel: warnings
+                               model: warnAboutShortLocalVariableNames
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Bad (empty) Comments'
+                               name: 'BadComments'
+                               enableChannel: warnings
+                               model: warnAboutBadComments
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Method-Comment Missing '
+                               name: 'CheckBox5'
+                               enableChannel: warnings
+                               model: warnAboutMissingMethodComment
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Inconsistent Return Values'
+                               name: 'InconsistentReturnValues'
+                               enableChannel: warnings
+                               model: warnInconsistentReturnValues
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            (CheckBoxSpec
+                               label: 'Common Mistakes'
+                               name: 'CommonMistakes'
+                               enableChannel: warnings
+                               model: warnCommonMistakes
+                               translateLabel: true
+                               extent: (Point 600 22)
+                             )
+                            )
+                          
+                         )
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 665 206)
+                 )
+                (ViewSpec
+                   name: 'Box4'
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (ActionButtonSpec
+                         label: 'Reenable Suppressed Warnings Now'
+                         name: 'Button1'
+                         layout: (LayoutOrigin 0 0.5 0 0)
+                         translateLabel: true
+                         model: reenableSuppressedWarnings
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 665 30)
+                 )
+                (DividerSpec
+                   name: 'Separator5'
+                   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: 'CheckBox9'
+                   activeHelpKey: arraysAreImmutable
+                   model: arraysAreImmutable
+                   translateLabel: true
+                   extent: (Point 665 22)
+                 )
+                (CheckBoxSpec
+                   label: 'Full Debug Info'
+                   name: 'FullDebugInfo'
+                   activeHelpKey: fullDebugInfo
+                   model: fullDebugSupport
+                   translateLabel: true
+                   extent: (Point 665 22)
+                 )
+                (DividerSpec
+                   name: 'Separator6'
+                   extent: (Point 665 2)
+                 )
+                (ViewSpec
+                   name: 'Box3'
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (LabelSpec
+                         label: 'Constant Folding:'
+                         name: 'ConstantFoldingLabel'
+                         layout: (LayoutFrame 0 0 0 0 306 0 22 0)
+                         translateLabel: true
+                         adjust: right
+                       )
+                      (PopUpListSpec
+                         label: 'PopUp List'
+                         name: 'ConstantFolding'
+                         layout: (LayoutFrame 313 0 0 0 -5 1 22 0)
+                         tabable: true
+                         model: constantFoldingSelection
+                         menu: constantFolding
+                         useIndex: true
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 665 22)
+                 )
+                )
+              
+             )
+           )
+          )
+        
+       )
+     )
 ! !
 
 !AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
@@ -19269,10 +19270,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.533 2014-04-18 20:05:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.534 2014-05-06 16:06:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.533 2014-04-18 20:05:31 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.534 2014-05-06 16:06:42 cg Exp $'
+! !
+