--- a/Tools__LintRuleDetail.st	Tue Sep 06 15:59:57 2011 +0200
+++ b/Tools__LintRuleDetail.st	Wed Sep 07 04:04:16 2011 +0200
@@ -28,7 +28,7 @@
 "{ NameSpace: Tools }"
 
 ApplicationModel subclass:#LintRuleDetail
-	instanceVariableNames:'ruleHolder rationaleVisibleHolder'
+	instanceVariableNames:'ruleHolder rationaleVisibleHolder rationalView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Lint'
@@ -101,6 +101,7 @@
               verticalLayout: topSpaceFit
               horizontalSpace: 0
               verticalSpace: 0
+              ignoreInvisibleComponents: false
               component: 
              (SpecCollection
                 collection: (
@@ -293,16 +294,28 @@
 !LintRuleDetail methodsFor:'initialization'!
 
 setupHTMLView:aView
+    rationalView := aView.
     aView painter
-	leftMargin:20;
-	topMargin:5.
+        leftMargin:20;
+        topMargin:5.
 
     "Created: / 04-08-2011 / 18:00:36 / cg"
-
 ! !
 
 !LintRuleDetail methodsFor:'private'!
 
+heightWhenNotShowingRationale
+    ^ 30
+
+    "Created: / 07-09-2011 / 04:02:34 / cg"
+!
+
+heightWhenShowingRationale
+    ^ 100
+
+    "Created: / 07-09-2011 / 04:02:24 / cg"
+!
+
 hide
 
     self visibility: false height: 0
@@ -311,10 +324,14 @@
 !
 
 show
-
-    self visibility: true height: (self rationaleVisibleHolder value ifTrue:[130] ifFalse:[30])
+    self 
+        visibility: true 
+        height: (self rationaleVisibleHolder value 
+                    ifTrue:[ self heightWhenShowingRationale ] 
+                    ifFalse:[ self heightWhenNotShowingRationale ])
 
     "Created: / 11-03-2010 / 09:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-09-2011 / 04:03:07 / cg"
 !
 
 visibility: visibility height: height
@@ -344,7 +361,7 @@
 !LintRuleDetail class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.7 2011-09-05 03:53:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.8 2011-09-07 02:04:16 cg Exp $'
 !
 
 version_SVN