--- a/Tools__LintRuleDetail.st Thu Mar 01 10:55:40 2012 +0100
+++ b/Tools__LintRuleDetail.st Thu Mar 01 10:56:50 2012 +0100
@@ -126,12 +126,13 @@
verticalLayout: topSpaceFit
horizontalSpace: 0
verticalSpace: 0
- ignoreInvisibleComponents: false
+ ignoreInvisibleComponents: true
component:
(SpecCollection
collection: (
(ViewSpec
name: 'Label'
+ visibilityChannel: false
component:
(SpecCollection
collection: (
@@ -162,7 +163,7 @@
visibilityChannel: rationaleVisibleHolder
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
- backgroundColor: (Color 86.9993133440146 86.9993133440146 86.9993133440146)
+ backgroundColor: (Color 86.9993133440147 86.9993133440147 86.9993133440147)
htmlText: ruleRationaleAspect
extent: (Point 560 270)
postBuildCallback: setupHTMLView:
@@ -219,12 +220,13 @@
"return/create the 'rationaleVisibleHolder' value holder (automatically generated)"
rationaleVisibleHolder isNil ifTrue:[
- rationaleVisibleHolder := ValueHolder with: false.
+ rationaleVisibleHolder := ValueHolder with: true "false".
rationaleVisibleHolder addDependent:self.
].
^ rationaleVisibleHolder
"Modified: / 04-08-2011 / 21:39:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 01-03-2012 / 08:50:20 / cg"
!
rationaleVisibleHolder:something
@@ -250,9 +252,11 @@
"return/create the 'ruleHolder' value holder (automatically generated)"
ruleHolder isNil ifTrue:[
- ruleHolder := ValueHolder new.
+ ruleHolder := ValueHolder new.
].
^ ruleHolder
+
+ "Modified: / 01-03-2012 / 08:51:03 / cg"
!
ruleHolder:something
@@ -283,7 +287,7 @@
holder := BlockValue
with:[:h |
"/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue)
- h displayString actionForAll:[ self browseLintRule]
+ (h ? '') displayString actionForAll:[ self browseLintRule ]
]
argument: self ruleHolder.
builder aspectAt:#ruleNameAspect put:holder.
@@ -291,7 +295,7 @@
^ holder.
"Modified: / 05-02-2010 / 12:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-09-2011 / 04:54:24 / cg"
+ "Modified: / 01-03-2012 / 08:44:23 / cg"
!
ruleRationaleAspect
@@ -383,6 +387,11 @@
visibility: visibility height: height
| container list detail h |
+"/ cg: the whole conatiner-container access chains below is ugly - use a name to access components.
+"/ and also: there is no layout in list, so the code does crash.
+"/ I disabled the whole visibility stuff.
+^ self.
+
(container := self window container) isNil ifTrue:[^self].
h := visibility ifFalse:[0] ifTrue:[height].
@@ -401,17 +410,17 @@
].
"Created: / 11-03-2010 / 09:51:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-09-2011 / 20:15:40 / cg"
+ "Modified: / 01-03-2012 / 10:35:51 / cg"
! !
!LintRuleDetail class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.10 2011-09-07 02:54:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.11 2012-03-01 09:56:50 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.10 2011-09-07 02:54:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.11 2012-03-01 09:56:50 cg Exp $'
!
version_SVN