--- a/Tools__LintRuleSettingsApplication.st Thu Oct 16 12:52:08 2014 +0200
+++ b/Tools__LintRuleSettingsApplication.st Thu Oct 16 12:52:14 2014 +0200
@@ -268,6 +268,7 @@
| edited dialog |
dialog := LintRuleEditDialog new.
+ dialog nameEditableHolder value: false.
edited := rule deepCopy.
dialog rule: edited.
dialog open.
@@ -278,6 +279,7 @@
].
"Created: / 14-10-2014 / 16:47:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-10-2014 / 11:12:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doExport
@@ -385,7 +387,7 @@
"superclass AbstractSettingsApplication says that I am responsible to implement this method"
RBCompositeLintRule notNil ifTrue:[
- self rulesetList removeAll; addAll: RBCompositeLintRule rulesets deepCopy
+ self rulesetList removeAll; addAll: RBCompositeLintRule rulesetsUserDefined deepCopy
].
"Modified: / 14-10-2014 / 17:40:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -394,12 +396,12 @@
basicSaveSettings
| oldRulesets newRulesets toRemove toAdd |
- oldRulesets := RBCompositeLintRule rulesets.
+ oldRulesets := RBCompositeLintRule rulesetsUserDefined.
newRulesets := self rulesetList.
toAdd := OrderedCollection withAll: newRulesets.
toRemove := Set new.
- RBCompositeLintRule rulesets do:[:oldRuleset |
+ RBCompositeLintRule rulesetsUserDefined do:[:oldRuleset |
| newRuleset |
newRuleset := newRulesets detect:[:each | each name = oldRuleset name ] ifNone: nil.
@@ -440,7 +442,7 @@
].
ex reject.
] do:[
- ^ RBCompositeLintRule rulesets asArray ~= self rulesetList asArray
+ ^ RBCompositeLintRule rulesetsUserDefined asArray ~= self rulesetList asArray
].
"Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -449,11 +451,11 @@
!LintRuleSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.8 2014-10-14 16:53:35 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.9 2014-10-16 10:52:14 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.8 2014-10-14 16:53:35 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.9 2014-10-16 10:52:14 vrany Exp $'
! !