added: #setupHTMLView:
authorClaus Gittinger <cg@exept.de>
Thu, 04 Aug 2011 21:20:24 +0200
changeset 10456 ef5019ccc9aa
parent 10455 41b2601f2e91
child 10457 c4aee64bfe37
added: #setupHTMLView: changed: #windowSpec
Tools__LintRuleDetail.st
--- a/Tools__LintRuleDetail.st	Thu Aug 04 21:20:10 2011 +0200
+++ b/Tools__LintRuleDetail.st	Thu Aug 04 21:20:24 2011 +0200
@@ -111,8 +111,8 @@
               layout: (LayoutFrame 0 0 32 0 0 1 0 1)
               horizontalLayout: fit
               verticalLayout: topSpaceFit
-              horizontalSpace: 3
-              verticalSpace: 3
+              horizontalSpace: 0
+              verticalSpace: 0
               component: 
              (SpecCollection
                 collection: (
@@ -122,7 +122,8 @@
                     hasHorizontalScrollBar: true
                     hasVerticalScrollBar: true
                     htmlText: ruleRationaleAspect
-                    extent: (Point 300 262)
+                    extent: (Point 300 268)
+                    postBuildCallback: setupHTMLView:
                   )
                  )
                
@@ -202,10 +203,20 @@
     "Modified: / 05-02-2010 / 12:51:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LintRuleDetail methodsFor:'initialization'!
+
+setupHTMLView:aView
+    aView painter 
+        leftMargin:5;
+        topMargin:5.
+
+    "Created: / 04-08-2011 / 18:00:36 / cg"
+! !
+
 !LintRuleDetail class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.2 2011-07-03 18:10:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.3 2011-08-04 19:20:24 cg Exp $'
 !
 
 version_SVN