class: Tools::LintRuleSettingsApplication
authorStefan Vogel <sv@exept.de>
Mon, 24 Mar 2014 10:08:45 +0100
changeset 14154 5bfb4881d66d
parent 14153 9164af5ffe74
child 14155 4a8e18d87366
class: Tools::LintRuleSettingsApplication changed: #doEdit make accept work
Tools__LintRuleSettingsApplication.st
--- a/Tools__LintRuleSettingsApplication.st	Mon Mar 24 10:08:10 2014 +0100
+++ b/Tools__LintRuleSettingsApplication.st	Mon Mar 24 10:08:45 2014 +0100
@@ -254,15 +254,18 @@
 doEdit
     <resource: #uiCallback>
 
-    | rule |    
+    | rule editedRule|    
     rule := self rulesetSelectionHolder value.
 
-    LintRuleEditDialog new
+    editedRule := LintRuleEditDialog new
         rule: rule deepCopy;
         open.
-    "/ does not work (are we editing the original, so that the compare does never work?)
-    self modifiedChannel value:true.
-    "/ self updateModifiedChannel
+
+    editedRule ~~ false ifTrue:[
+        self rulesetSelectionHolder value:editedRule.
+        self rulesetList replaceAllIdentical:rule with:editedRule.
+        self updateModifiedChannel.
+    ].
 
     "Modified: / 27-02-2013 / 11:57:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -423,11 +426,11 @@
 !LintRuleSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.4 2014-02-26 12:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.5 2014-03-24 09:08:45 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.4 2014-02-26 12:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.5 2014-03-24 09:08:45 stefan Exp $'
 ! !