--- a/Tools__LintRuleDetail.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/Tools__LintRuleDetail.st	Wed Apr 01 10:38:01 2015 +0100
@@ -28,7 +28,8 @@
 "{ NameSpace: Tools }"
 
 ApplicationModel subclass:#LintRuleDetail
-	instanceVariableNames:'ruleHolder rationaleVisibleHolder rationalView'
+	instanceVariableNames:'ruleHolder rationaleVisibleHolder rationalView
+		selectedMethodsHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Lint'
@@ -194,6 +195,7 @@
     ^ #(
         #ruleHolder
         #ruleRationaleAspect
+        #selectedMethodsHolder
       ).
 
     "Modified: / 01-03-2012 / 16:31:04 / cg"
@@ -319,6 +321,35 @@
 
     "Modified: / 05-02-2010 / 12:51:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 01-03-2012 / 15:29:16 / cg"
+!
+
+selectedMethodsHolder
+    "return/create the 'selectedMethodsHolder' value holder (automatically generated)"
+
+    selectedMethodsHolder isNil ifTrue:[
+        selectedMethodsHolder := #() asValue.
+        selectedMethodsHolder addDependent:self.
+    ].
+    ^ selectedMethodsHolder
+!
+
+selectedMethodsHolder:something
+    "set the 'selectedMethodsHolder' value holder (automatically generated)"
+
+    |oldValue newValue|
+
+    selectedMethodsHolder notNil ifTrue:[
+        oldValue := selectedMethodsHolder value.
+        selectedMethodsHolder removeDependent:self.
+    ].
+    selectedMethodsHolder := something.
+    selectedMethodsHolder notNil ifTrue:[
+        selectedMethodsHolder addDependent:self.
+    ].
+    newValue := selectedMethodsHolder value.
+    oldValue ~= newValue ifTrue:[
+        self update:#value with:newValue from:selectedMethodsHolder.
+    ].
 ! !
 
 !LintRuleDetail methodsFor:'change & update'!
@@ -335,6 +366,11 @@
         self updateVisibility.
          ^ self.
     ].
+    changedObject == selectedMethodsHolder ifTrue:[
+        "/ cg: preparations to show method-specific text in rationale/detail
+        "/ view. Not yet done...
+    ].
+
     super update:something with:aParameter from:changedObject
 
     "Modified: / 04-08-2011 / 21:31:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -439,19 +475,14 @@
 !LintRuleDetail class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.14 2013-06-25 17:12:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.15 2014-11-23 17:21:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.14 2013-06-25 17:12:11 cg Exp $'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.15 2014-11-23 17:21:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__LintRuleDetail.st,v 1.14 2013-06-25 17:12:11 cg Exp $'
+    ^ '$Id: Tools__LintRuleDetail.st,v 1.15 2014-11-23 17:21:24 cg Exp $'
 ! !