|
1 " |
|
2 COPYRIGHT (c) 2006 by eXept Software AG |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
|
12 "{ Package: 'stx:libtool' }" |
|
13 |
|
14 "{ NameSpace: Tools }" |
|
15 |
|
16 ApplicationModel subclass:#LintRuleDetail |
|
17 instanceVariableNames:'ruleHolder' |
|
18 classVariableNames:'' |
|
19 poolDictionaries:'' |
|
20 category:'Interface-Lint' |
|
21 ! |
|
22 |
|
23 !LintRuleDetail class methodsFor:'documentation'! |
|
24 |
|
25 copyright |
|
26 " |
|
27 COPYRIGHT (c) 2006 by eXept Software AG |
|
28 All Rights Reserved |
|
29 |
|
30 This software is furnished under a license and may be used |
|
31 only in accordance with the terms of that license and with the |
|
32 inclusion of the above copyright notice. This software may not |
|
33 be provided or otherwise made available to, or used by, any |
|
34 other person. No title to or ownership of the software is |
|
35 hereby transferred. |
|
36 " |
|
37 ! ! |
|
38 |
|
39 !LintRuleDetail class methodsFor:'interface specs'! |
|
40 |
|
41 windowSpec |
|
42 "This resource specification was automatically generated |
|
43 by the UIPainter of ST/X." |
|
44 |
|
45 "Do not manually edit this!! If it is corrupted, |
|
46 the UIPainter may not be able to read the specification." |
|
47 |
|
48 " |
|
49 UIPainter new openOnClass:Tools::LintRuleDetail andSelector:#windowSpec |
|
50 Tools::LintRuleDetail new openInterface:#windowSpec |
|
51 Tools::LintRuleDetail open |
|
52 " |
|
53 |
|
54 <resource: #canvas> |
|
55 |
|
56 ^ |
|
57 #(FullSpec |
|
58 name: windowSpec |
|
59 window: |
|
60 (WindowSpec |
|
61 label: 'SmalllintRuleDetail' |
|
62 name: 'SmalllintRuleDetail' |
|
63 min: (Point 10 10) |
|
64 bounds: (Rectangle 0 0 300 300) |
|
65 ) |
|
66 component: |
|
67 (SpecCollection |
|
68 collection: ( |
|
69 (LabelSpec |
|
70 label: 'Name...' |
|
71 name: 'Name' |
|
72 layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
|
73 translateLabel: true |
|
74 labelChannel: ruleNameAspect |
|
75 adjust: left |
|
76 ) |
|
77 (DividerSpec |
|
78 name: 'Separator1' |
|
79 layout: (LayoutFrame 0 0 30 0 0 1 31 0) |
|
80 ) |
|
81 (VerticalPanelViewSpec |
|
82 name: 'Panel' |
|
83 layout: (LayoutFrame 0 0 32 0 0 1 0 1) |
|
84 horizontalLayout: fit |
|
85 verticalLayout: topSpaceFit |
|
86 horizontalSpace: 3 |
|
87 verticalSpace: 3 |
|
88 component: |
|
89 (SpecCollection |
|
90 collection: ( |
|
91 (HTMLViewSpec |
|
92 name: 'Rationale' |
|
93 level: 0 |
|
94 hasHorizontalScrollBar: true |
|
95 hasVerticalScrollBar: true |
|
96 htmlText: ruleRationaleAspect |
|
97 extent: (Point 300 262) |
|
98 ) |
|
99 ) |
|
100 |
|
101 ) |
|
102 ) |
|
103 ) |
|
104 |
|
105 ) |
|
106 ) |
|
107 ! ! |
|
108 |
|
109 !LintRuleDetail class methodsFor:'plugIn spec'! |
|
110 |
|
111 aspectSelectors |
|
112 "This resource specification was automatically generated |
|
113 by the UIPainter of ST/X." |
|
114 |
|
115 "Do not manually edit this. If it is corrupted, |
|
116 the UIPainter may not be able to read the specification." |
|
117 |
|
118 "Return a description of exported aspects; |
|
119 these can be connected to aspects of an embedding application |
|
120 (if this app is embedded in a subCanvas)." |
|
121 |
|
122 ^ #( |
|
123 #ruleHolder |
|
124 ). |
|
125 |
|
126 ! ! |
|
127 |
|
128 !LintRuleDetail methodsFor:'aspects'! |
|
129 |
|
130 ruleHolder |
|
131 "return/create the 'ruleHolder' value holder (automatically generated)" |
|
132 |
|
133 ruleHolder isNil ifTrue:[ |
|
134 ruleHolder := ValueHolder new. |
|
135 ]. |
|
136 ^ ruleHolder |
|
137 ! |
|
138 |
|
139 ruleHolder:aValueModel |
|
140 "set the 'ruleHolder' value holder (automatically generated)" |
|
141 |
|
142 ruleHolder := aValueModel. |
|
143 ! |
|
144 |
|
145 ruleNameAspect |
|
146 <resource: #uiAspect> |
|
147 |
|
148 |holder| |
|
149 |
|
150 (holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[ |
|
151 holder := (AspectAdaptor forAspect: #displayString) subjectChannel: self ruleHolder. |
|
152 builder aspectAt:#ruleNameAspect put:holder. |
|
153 "/ holder addDependent:self. |
|
154 "/ holder onChangeSend:#ruleNameAspectChanged to:self. |
|
155 ]. |
|
156 ^ holder. |
|
157 |
|
158 "Modified: / 05-02-2010 / 12:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
159 ! |
|
160 |
|
161 ruleRationaleAspect |
|
162 <resource: #uiAspect> |
|
163 |
|
164 |holder| |
|
165 |
|
166 (holder := builder bindingAt:#ruleRationaleAspect) isNil ifTrue:[ |
|
167 holder := (AspectAdaptor forAspect: #rationale) subjectChannel: self ruleHolder. |
|
168 builder aspectAt:#ruleRationaleAspect put:holder. |
|
169 "/ holder addDependent:self. |
|
170 "/ holder onChangeSend:#ruleRationaleAspectChanged to:self. |
|
171 ]. |
|
172 ^ holder. |
|
173 |
|
174 "Modified: / 05-02-2010 / 12:51:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
175 ! ! |
|
176 |
|
177 !LintRuleDetail class methodsFor:'documentation'! |
|
178 |
|
179 version_CVS |
|
180 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleDetail.st,v 1.1 2011-07-01 13:31:12 cg Exp $' |
|
181 ! |
|
182 |
|
183 version_SVN |
|
184 ^ '§Id: Tools__LintRuleDetail.st 7617 2010-08-25 12:56:19Z vranyj1 §' |
|
185 ! ! |