diff -r 7167ceaf5b04 -r 51d36cce6bbe Tools__LintRuleDetail.st --- 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 @@ - ^ + ^ #(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 " ! ! @@ -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 " +! ! !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