class: Tools::LintRuleSettingsApplication
changed: #hasUnsavedChanges
fix to avoid always saying modified
--- a/Tools__LintRuleSettingsApplication.st Wed Nov 19 21:44:05 2014 +0100
+++ b/Tools__LintRuleSettingsApplication.st Wed Nov 19 21:57:25 2014 +0100
@@ -465,6 +465,8 @@
hasUnsavedChanges
"superclass AbstractSettingsApplication says that I am responsible to implement this method"
+ |defaultRules currentRules|
+
RBCompositeLintRule isNil ifTrue:[^ false].
SequenceableCollection missingClassInLiteralArrayErrorSignal handle:[:ex |
"/ maybe we have to load additional packages...
@@ -474,7 +476,12 @@
].
ex reject.
] do:[
- ^ RBCompositeLintRule rulesetsUserDefined asArray ~= self rulesetList asArray
+ defaultRules := RBCompositeLintRule rulesetsUserDefined copyAsOrderedCollection.
+ currentRules := self rulesetList copyAsOrderedCollection.
+ "/ I will always add the defaultRule
+ defaultRules removeAllFoundIn:RBCompositeLintRule rulesetsBuiltin.
+ currentRules removeAllFoundIn:RBCompositeLintRule rulesetsBuiltin.
+ ^ defaultRules ~= currentRules
].
"Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -483,11 +490,11 @@
!LintRuleSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.11 2014-11-11 14:17:09 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.12 2014-11-19 20:57:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.11 2014-11-11 14:17:09 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.12 2014-11-19 20:57:25 cg Exp $'
! !