--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__LintRuleDetail.st Fri Jul 01 15:31:12 2011 +0200
@@ -0,0 +1,185 @@
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libtool' }"
+
+"{ NameSpace: Tools }"
+
+ApplicationModel subclass:#LintRuleDetail
+ instanceVariableNames:'ruleHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Lint'
+!
+
+!LintRuleDetail class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+! !
+
+!LintRuleDetail class methodsFor:'interface specs'!
+
+windowSpec
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:Tools::LintRuleDetail andSelector:#windowSpec
+ Tools::LintRuleDetail new openInterface:#windowSpec
+ Tools::LintRuleDetail open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'SmalllintRuleDetail'
+ name: 'SmalllintRuleDetail'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 300 300)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Name...'
+ name: 'Name'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ translateLabel: true
+ labelChannel: ruleNameAspect
+ adjust: left
+ )
+ (DividerSpec
+ name: 'Separator1'
+ layout: (LayoutFrame 0 0 30 0 0 1 31 0)
+ )
+ (VerticalPanelViewSpec
+ name: 'Panel'
+ layout: (LayoutFrame 0 0 32 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: topSpaceFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (HTMLViewSpec
+ name: 'Rationale'
+ level: 0
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ htmlText: ruleRationaleAspect
+ extent: (Point 300 262)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+! !
+
+!LintRuleDetail class methodsFor:'plugIn spec'!
+
+aspectSelectors
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this. If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "Return a description of exported aspects;
+ these can be connected to aspects of an embedding application
+ (if this app is embedded in a subCanvas)."
+
+ ^ #(
+ #ruleHolder
+ ).
+
+! !
+
+!LintRuleDetail methodsFor:'aspects'!
+
+ruleHolder
+ "return/create the 'ruleHolder' value holder (automatically generated)"
+
+ ruleHolder isNil ifTrue:[
+ ruleHolder := ValueHolder new.
+ ].
+ ^ ruleHolder
+!
+
+ruleHolder:aValueModel
+ "set the 'ruleHolder' value holder (automatically generated)"
+
+ ruleHolder := aValueModel.
+!
+
+ruleNameAspect
+ <resource: #uiAspect>
+
+ |holder|
+
+ (holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[
+ holder := (AspectAdaptor forAspect: #displayString) subjectChannel: self ruleHolder.
+ builder aspectAt:#ruleNameAspect put:holder.
+"/ holder addDependent:self.
+"/ holder onChangeSend:#ruleNameAspectChanged to:self.
+ ].
+ ^ holder.
+
+ "Modified: / 05-02-2010 / 12:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+ruleRationaleAspect
+ <resource: #uiAspect>
+
+ |holder|
+
+ (holder := builder bindingAt:#ruleRationaleAspect) isNil ifTrue:[
+ holder := (AspectAdaptor forAspect: #rationale) subjectChannel: self ruleHolder.
+ builder aspectAt:#ruleRationaleAspect put:holder.
+"/ holder addDependent:self.
+"/ holder onChangeSend:#ruleRationaleAspectChanged to:self.
+ ].
+ ^ holder.
+
+ "Modified: / 05-02-2010 / 12:51:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LintRuleDetail class methodsFor:'documentation'!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.1 2011-07-01 13:31:12 cg Exp $'
+!
+
+version_SVN
+ ^ '§Id: Tools__LintRuleDetail.st 7617 2010-08-25 12:56:19Z vranyj1 §'
+! !