--- a/Tools__LintRuleDetail.st Fri Aug 05 14:35:54 2011 +0200
+++ b/Tools__LintRuleDetail.st Fri Aug 05 14:36:26 2011 +0200
@@ -81,71 +81,71 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: windowSpec
- window:
+ name: windowSpec
+ window:
(WindowSpec
- label: 'SmalllintRuleDetail'
- name: 'SmalllintRuleDetail'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 560 300)
- )
- component:
+ label: 'SmalllintRuleDetail'
+ name: 'SmalllintRuleDetail'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 560 300)
+ )
+ component:
(SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'Panel'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: topSpaceFit
- horizontalSpace: 0
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Label'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Name...'
- name: 'Name'
- layout: (LayoutFrame 20 0 0 0 -150 1 30 0)
- translateLabel: true
- labelChannel: ruleNameAspect
- adjust: left
- )
- (CheckBoxSpec
- label: 'Show Rationale'
- name: 'CheckBox1'
- layout: (LayoutFrame -150 1 0 0 0 1 30 0)
- model: rationaleVisibleHolder
- translateLabel: true
- )
- )
-
- )
- extent: (Point 560 30)
- )
- (HTMLViewSpec
- name: 'Rationale'
- level: 0
- visibilityChannel: rationaleVisibleHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- htmlText: ruleRationaleAspect
- extent: (Point 300 268)
- postBuildCallback: setupHTMLView:
- )
- )
-
- )
- )
- )
-
- )
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'Panel'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: topSpaceFit
+ horizontalSpace: 0
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Label'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Name...'
+ name: 'Name'
+ layout: (LayoutFrame 15 0 0 0 -150 1 30 0)
+ translateLabel: true
+ labelChannel: ruleNameAspect
+ adjust: left
+ )
+ (CheckBoxSpec
+ label: 'Show Rationale'
+ name: 'CheckBox1'
+ layout: (LayoutFrame -150 1 0 0 0 1 30 0)
+ model: rationaleVisibleHolder
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 560 30)
+ )
+ (HTMLViewSpec
+ name: 'Rationale'
+ level: 0
+ visibilityChannel: rationaleVisibleHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ htmlText: ruleRationaleAspect
+ extent: (Point 560 270)
+ postBuildCallback: setupHTMLView:
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
! !
@@ -174,8 +174,8 @@
"return/create the 'rationaleVisibleHolder' value holder (automatically generated)"
rationaleVisibleHolder isNil ifTrue:[
- rationaleVisibleHolder := ValueHolder with: false.
- rationaleVisibleHolder addDependent:self.
+ rationaleVisibleHolder := ValueHolder with: false.
+ rationaleVisibleHolder addDependent:self.
].
^ rationaleVisibleHolder
@@ -188,16 +188,16 @@
|oldValue newValue|
rationaleVisibleHolder notNil ifTrue:[
- oldValue := rationaleVisibleHolder value.
- rationaleVisibleHolder removeDependent:self.
+ oldValue := rationaleVisibleHolder value.
+ rationaleVisibleHolder removeDependent:self.
].
rationaleVisibleHolder := something.
rationaleVisibleHolder notNil ifTrue:[
- rationaleVisibleHolder addDependent:self.
+ rationaleVisibleHolder addDependent:self.
].
newValue := rationaleVisibleHolder value.
oldValue ~~ newValue ifTrue:[
- self update:#value with:newValue from:rationaleVisibleHolder.
+ self update:#value with:newValue from:rationaleVisibleHolder.
].
!
@@ -267,12 +267,12 @@
"Invoked when an object that I depend upon sends a change notification."
changedObject == ruleHolder ifTrue:[
- self updateVisibility.
- ^ self.
+ self updateVisibility.
+ ^ self.
].
changedObject == rationaleVisibleHolder ifTrue:[
- self updateVisibility.
- ^ self.
+ self updateVisibility.
+ ^ self.
].
super update:something with:aParameter from:changedObject
@@ -288,6 +288,17 @@
"Created: / 04-08-2011 / 16:39:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!LintRuleDetail methodsFor:'initialization'!
+
+setupHTMLView:aView
+ aView painter
+ leftMargin:20;
+ topMargin:5.
+
+ "Created: / 04-08-2011 / 18:00:36 / cg"
+
+! !
+
!LintRuleDetail methodsFor:'private'!
hide
@@ -310,37 +321,26 @@
h := visibility ifFalse:[0] ifTrue:[height].
container isVisible == visibility ifFalse:
- [container isVisible: visibility].
+ [container isVisible: visibility].
list := container container subViews first.
detail := container container subViews second.
(list layout bottomOffset ~= height negated) ifTrue:
- [list layout:
- (list layout bottomOffset: height negated; yourself)].
+ [list layout:
+ (list layout bottomOffset: height negated; yourself)].
(detail layout topOffset ~= height negated) ifTrue:
- [detail layout:
- (detail layout topOffset: height negated; yourself)].
+ [detail layout:
+ (detail layout topOffset: height negated; yourself)].
"Created: / 11-03-2010 / 09:51:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!LintRuleDetail methodsFor:'initialization'!
-
-setupHTMLView:aView
- aView painter
- leftMargin:20;
- 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.5 2011-08-05 06:37:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.6 2011-08-05 12:36:26 vrany Exp $'
!
version_SVN