--- a/Tools__LintRuleDetail.st Thu Aug 04 23:47:44 2011 +0200
+++ b/Tools__LintRuleDetail.st Fri Aug 05 08:37:04 2011 +0200
@@ -28,10 +28,10 @@
"{ NameSpace: Tools }"
ApplicationModel subclass:#LintRuleDetail
- instanceVariableNames:'ruleHolder rationaleVisibleHolder'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Lint'
+ instanceVariableNames:'ruleHolder rationaleVisibleHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Lint'
!
!LintRuleDetail class methodsFor:'documentation'!
@@ -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 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:
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
! !
@@ -163,7 +163,7 @@
(if this app is embedded in a subCanvas)."
^ #(
- #ruleHolder
+ #ruleHolder
).
! !
@@ -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.
].
!
@@ -205,7 +205,7 @@
"return/create the 'ruleHolder' value holder (automatically generated)"
ruleHolder isNil ifTrue:[
- ruleHolder := ValueHolder new.
+ ruleHolder := ValueHolder new.
].
^ ruleHolder
!
@@ -216,16 +216,16 @@
|oldValue newValue|
ruleHolder notNil ifTrue:[
- oldValue := ruleHolder value.
- ruleHolder removeDependent:self.
+ oldValue := ruleHolder value.
+ ruleHolder removeDependent:self.
].
ruleHolder := something.
ruleHolder notNil ifTrue:[
- ruleHolder addDependent:self.
+ ruleHolder addDependent:self.
].
newValue := ruleHolder value.
oldValue ~~ newValue ifTrue:[
- self update:#value with:newValue from:ruleHolder.
+ self update:#value with:newValue from:ruleHolder.
].
!
@@ -235,8 +235,8 @@
|holder|
(holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[
- holder := (AspectAdaptor forAspect: #displayString) subjectChannel: self ruleHolder.
- builder aspectAt:#ruleNameAspect put:holder.
+ holder := (AspectAdaptor forAspect: #displayString) subjectChannel: self ruleHolder.
+ builder aspectAt:#ruleNameAspect put:holder.
"/ holder addDependent:self.
"/ holder onChangeSend:#ruleNameAspectChanged to:self.
].
@@ -251,8 +251,8 @@
|holder|
(holder := builder bindingAt:#ruleRationaleAspect) isNil ifTrue:[
- holder := (AspectAdaptor forAspect: #rationale) subjectChannel: self ruleHolder.
- builder aspectAt:#ruleRationaleAspect put:holder.
+ holder := (AspectAdaptor forAspect: #rationale) subjectChannel: self ruleHolder.
+ builder aspectAt:#ruleRationaleAspect put:holder.
"/ holder addDependent:self.
"/ holder onChangeSend:#ruleRationaleAspectChanged to:self.
].
@@ -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
@@ -281,9 +281,9 @@
updateVisibility
- self ruleHolder value notNil
- ifTrue:[self show]
- ifFalse:[self hide]
+ self ruleHolder value notNil
+ ifTrue:[self show]
+ ifFalse:[self hide]
"Created: / 04-08-2011 / 16:39:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
@@ -310,27 +310,28 @@
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.
+ aView painter
+ leftMargin:20;
+ topMargin:5.
"Created: / 04-08-2011 / 18:00:36 / cg"
@@ -339,7 +340,7 @@
!LintRuleDetail class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.4 2011-08-04 21:40:51 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.5 2011-08-05 06:37:04 cg Exp $'
!
version_SVN