--- a/AbstractSettingsApplication.st Thu Jan 19 10:54:25 2012 +0100
+++ b/AbstractSettingsApplication.st Thu Jan 19 10:59:19 2012 +0100
@@ -42,7 +42,7 @@
warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
warnAboutPossiblyUnimplementedSelectors
allowExtendedBinarySelectors warnAboutMissingMethodComment
- allowAssignmentToPoolVariable'
+ allowAssignmentToPoolVariable warnPlausibilityChecks'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -1229,6 +1229,14 @@
extent: (Point 313 22)
)
(CheckBoxSpec
+ label: 'Reference to Private Class'
+ name: 'CheckBox1'
+ enableChannel: warnings
+ model: warnAboutReferenceToPrivateClass
+ translateLabel: true
+ extent: (Point 313 22)
+ )
+ (CheckBoxSpec
label: 'Underscores in Identifiers'
name: 'UnderscoresInIdentifiers'
enableChannel: enableUnderscore
@@ -1269,14 +1277,6 @@
extent: (Point 313 22)
)
(CheckBoxSpec
- label: 'Reference to Private Class'
- name: 'CheckBox1'
- enableChannel: warnings
- model: warnAboutReferenceToPrivateClass
- translateLabel: true
- extent: (Point 313 22)
- )
- (CheckBoxSpec
label: 'Possibly Unimplemented Selectors'
name: 'CheckBox3'
enableChannel: warnings
@@ -1284,6 +1284,14 @@
translateLabel: true
extent: (Point 313 22)
)
+ (CheckBoxSpec
+ label: 'Plausibility Checks'
+ name: 'CheckBox7'
+ enableChannel: warnings
+ model: warnPlausibilityChecks
+ translateLabel: true
+ extent: (Point 313 22)
+ )
)
)
@@ -1307,14 +1315,6 @@
extent: (Point 600 22)
)
(CheckBoxSpec
- label: 'Common Mistakes'
- name: 'CommonMistakes'
- enableChannel: warnings
- model: warnCommonMistakes
- translateLabel: true
- extent: (Point 600 22)
- )
- (CheckBoxSpec
label: 'Bad (non-English) Variable Names'
name: 'BadVariableNames'
enableChannel: warnings
@@ -1362,6 +1362,14 @@
translateLabel: true
extent: (Point 600 22)
)
+ (CheckBoxSpec
+ label: 'Common Mistakes'
+ name: 'CommonMistakes'
+ enableChannel: warnings
+ model: warnCommonMistakes
+ translateLabel: true
+ extent: (Point 600 22)
+ )
)
)
@@ -1369,7 +1377,7 @@
)
)
- extent: (Point 665 181)
+ extent: (Point 665 206)
)
(DividerSpec
name: 'Separator5'
@@ -1503,6 +1511,7 @@
warnAboutPossibleSTCCompilationProblems
warnAboutReferenceToPrivateClass
warnAboutPossiblyUnimplementedSelectors
+ warnPlausibilityChecks
allowDollarInIdentifier
allowDolphinExtensions
@@ -1833,6 +1842,17 @@
^ warnOldStyle.
!
+warnPlausibilityChecks
+
+ warnPlausibilityChecks isNil ifTrue:[
+ warnPlausibilityChecks := ParserFlags warnPlausibilityChecks asValue.
+ warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ warnPlausibilityChecks.
+
+ "Created: / 19-01-2012 / 10:57:29 / cg"
+!
+
warnPossibleIncompatibilities
"holds true, if possible incompatibilities (with other ST systems)
are to be warned about"
@@ -16547,9 +16567,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.417 2011-12-22 10:16:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.418 2012-01-19 09:59:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.417 2011-12-22 10:16:04 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.418 2012-01-19 09:59:19 cg Exp $'
+! !