--- a/AbstractSettingsApplication.st Thu Oct 23 08:13:14 2008 +0200
+++ b/AbstractSettingsApplication.st Fri Oct 24 15:15:24 2008 +0200
@@ -39,7 +39,8 @@
keepSource constantFolding constantFoldingOptions
fullDebugSupport immutableArrays enableUnderscore enableDollar
allowEmptyStatements warnAboutPossibleSTCCompilationProblems
- warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames'
+ warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
+ warnAboutPossiblyUnimplementedSelectors'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -1058,7 +1059,7 @@
horizontalLayout: fit
verticalLayout: top
horizontalSpace: 3
- verticalSpace: 3
+ verticalSpace: 0
component:
(SpecCollection
collection: (
@@ -1107,7 +1108,7 @@
horizontalLayout: left
verticalLayout: top
horizontalSpace: 3
- verticalSpace: 3
+ verticalSpace: 0
component:
(SpecCollection
collection: (
@@ -1177,7 +1178,7 @@
horizontalLayout: fit
verticalLayout: top
horizontalSpace: 3
- verticalSpace: 3
+ verticalSpace: 0
component:
(SpecCollection
collection: (
@@ -1237,17 +1238,25 @@
translateLabel: true
extent: (Point 313 22)
)
+ (CheckBoxSpec
+ label: 'Possibly Unimplemented Selectors'
+ name: 'CheckBox3'
+ enableChannel: warnings
+ model: warnAboutPossiblyUnimplementedSelectors
+ translateLabel: true
+ extent: (Point 313 22)
+ )
)
)
)
(VerticalPanelViewSpec
name: 'VerticalPanel2_2'
- layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
+ layout: (LayoutFrame -1 0.5 0 0 0 1 -21 1)
horizontalLayout: left
verticalLayout: top
horizontalSpace: 3
- verticalSpace: 3
+ verticalSpace: 0
component:
(SpecCollection
collection: (
@@ -1314,7 +1323,7 @@
)
)
- extent: (Point 665 150)
+ extent: (Point 665 181)
)
(DividerSpec
name: 'Separator5'
@@ -1441,6 +1450,7 @@
warnAboutShortLocalVariableNames
warnAboutPossibleSTCCompilationProblems
warnAboutReferenceToPrivateClass
+ warnAboutPossiblyUnimplementedSelectors
allowDollarInIdentifier
allowDolphinExtensions
@@ -1668,6 +1678,17 @@
"Created: / 20-11-2006 / 22:41:07 / cg"
!
+warnAboutPossiblyUnimplementedSelectors
+
+ warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
+ warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
+ warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ warnAboutPossiblyUnimplementedSelectors.
+
+ "Created: / 20-11-2006 / 22:41:07 / cg"
+!
+
warnAboutReferenceToPrivateClass
warnAboutReferenceToPrivateClass isNil ifTrue:[
warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
@@ -14792,5 +14813,5 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.306 2008-10-20 14:31:36 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.307 2008-10-24 13:15:24 cg Exp $'
+! !