Tools__LintRuleSettingsApplication.st
changeset 14774 9337fd51b990
parent 14770 6a3d59666ca8
child 14785 f94b74d793a6
--- 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 $'
 ! !