author | Claus Gittinger <cg@exept.de> |
Fri, 09 Dec 2016 13:45:14 +0100 | |
branch | cvs_MAIN |
changeset 1007 | 60cc13ef0a9c |
parent 995 | 0191b93a64a6 |
child 1018 | f1af04fc8403 |
permissions | -rw-r--r-- |
252
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
1 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
2 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
3 |
Copyright (C) 2013-2014 Jan Vrany |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
4 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
5 |
This library is free software; you can redistribute it and/or |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
6 |
modify it under the terms of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
7 |
License as published by the Free Software Foundation; either |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
8 |
version 2.1 of the License. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
9 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
10 |
This library is distributed in the hope that it will be useful, |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
11 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
12 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
13 |
Lesser General Public License for more details. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
14 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
15 |
You should have received a copy of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
16 |
License along with this library; if not, write to the Free Software |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
17 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
18 |
" |
249
8bc64027b189
Package renamed to stx:goodies/smallsense
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
183
diff
changeset
|
19 |
"{ Package: 'stx:goodies/smallsense' }" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
"{ NameSpace: SmallSense }" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
|
183
cfce2733ee7e
Allow lint window to be closed by pressing escape.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
23 |
SimpleDialog subclass:#CriticsWindow |
988 | 24 |
instanceVariableNames:'ruleHolder ruleRationaleAndFixesHTMLHolder rationalView fixer |
25 |
entered codeView closeOnLeave' |
|
26 |
classVariableNames:'' |
|
27 |
poolDictionaries:'' |
|
28 |
category:'SmallSense-Core-Interface' |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
|
252
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
31 |
!CriticsWindow class methodsFor:'documentation'! |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
32 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
33 |
copyright |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
34 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
35 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
36 |
Copyright (C) 2013-2014 Jan Vrany |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
37 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
38 |
This library is free software; you can redistribute it and/or |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
39 |
modify it under the terms of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
40 |
License as published by the Free Software Foundation; either |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
41 |
version 2.1 of the License. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
42 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
43 |
This library is distributed in the hope that it will be useful, |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
44 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
45 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
46 |
Lesser General Public License for more details. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
47 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
48 |
You should have received a copy of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
49 |
License along with this library; if not, write to the Free Software |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
50 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
51 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
52 |
! ! |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
|
306 | 54 |
!CriticsWindow class methodsFor:'help specs'! |
55 |
||
56 |
flyByHelpSpec |
|
57 |
"This resource specification was automatically generated |
|
58 |
by the UIHelpTool of ST/X." |
|
59 |
||
60 |
"Do not manually edit this!! If it is corrupted, |
|
61 |
the UIHelpTool may not be able to read the specification." |
|
62 |
||
63 |
" |
|
64 |
UIHelpTool openOnClass:SmallSense::CriticsWindow |
|
65 |
" |
|
66 |
||
67 |
||
68 |
||
69 |
^ super flyByHelpSpec addPairsFrom:#( |
|
70 |
||
988 | 71 |
#applyRuleIn |
72 |
'Apply this rule on more code.' |
|
73 |
||
306 | 74 |
#disableRule |
312 | 75 |
'Disable this rule in the future\(for the rest of this session, unless you save the ruleset)' |
306 | 76 |
|
77 |
#browseRule |
|
78 |
'Open a browser on the rule' |
|
79 |
||
80 |
) |
|
81 |
! ! |
|
82 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
!CriticsWindow class methodsFor:'interface specs'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
84 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
windowSpec |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
"This resource specification was automatically generated |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
by the UIPainter of ST/X." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
"Do not manually edit this!! If it is corrupted, |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
90 |
the UIPainter may not be able to read the specification." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
" |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
93 |
UIPainter new openOnClass:SmallSense::CriticsWindow andSelector:#windowSpec |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
94 |
SmallSense::CriticsWindow new openInterface:#windowSpec |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
95 |
SmallSense::CriticsWindow open |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
|
312 | 98 |
<resource: #canvas> |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
|
312 | 100 |
^ |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
101 |
#(FullSpec |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
102 |
name: windowSpec |
312 | 103 |
window: |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
104 |
(WindowSpec |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
105 |
label: 'SmalllintRuleDetail' |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
106 |
name: 'SmalllintRuleDetail' |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
107 |
min: (Point 10 10) |
312 | 108 |
bounds: (Rectangle 0 0 563 384) |
306 | 109 |
backgroundColor: (Color 100.0 100.0 75.0) |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
110 |
forceRecursiveBackgroundOfDefaultBackground: true |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
111 |
) |
312 | 112 |
component: |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
113 |
(SpecCollection |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
114 |
collection: ( |
306 | 115 |
(ActionButtonSpec |
116 |
label: 'closeIcon' |
|
117 |
name: 'Button4' |
|
118 |
layout: (AlignmentOrigin 0 1 0 0 1 0) |
|
119 |
visibilityChannel: notCloseOnLeave |
|
120 |
hasCharacterOrientedLabel: false |
|
121 |
translateLabel: true |
|
122 |
model: closeRequest |
|
123 |
) |
|
124 |
(HTMLViewSpec |
|
125 |
name: 'Rationale' |
|
312 | 126 |
layout: (LayoutFrame 0 0 20 0 0 1 -65 1) |
306 | 127 |
level: 0 |
128 |
visibilityChannel: rationaleVisibleHolder |
|
129 |
hasHorizontalScrollBar: true |
|
130 |
hasVerticalScrollBar: true |
|
312 | 131 |
miniScrollerHorizontal: true |
132 |
miniScrollerVertical: true |
|
306 | 133 |
htmlText: ruleRationaleAndFixesHTMLHolder |
134 |
postBuildCallback: setupHTMLView: |
|
135 |
) |
|
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
136 |
(LinkButtonSpec |
312 | 137 |
label: 'Disable this Rule' |
138 |
name: 'Button3' |
|
139 |
layout: (LayoutFrame -1 0 -59 1 -16 1 -30 1) |
|
140 |
activeHelpKey: disableRule |
|
141 |
level: 0 |
|
142 |
translateLabel: true |
|
143 |
labelChannel: disableRuleString |
|
144 |
adjust: left |
|
145 |
model: disableLintRule |
|
146 |
keepSpaceForOSXResizeHandleH: true |
|
147 |
) |
|
148 |
(LinkButtonSpec |
|
988 | 149 |
label: 'Apply this Rule In...' |
150 |
name: 'Button5' |
|
151 |
layout: (AlignmentOrigin 0 1 -59 1 1 0) |
|
152 |
activeHelpKey: applyRuleIn |
|
153 |
level: 0 |
|
154 |
translateLabel: true |
|
155 |
labelChannel: applyRuleInString |
|
156 |
resizeForLabel: true |
|
157 |
adjust: left |
|
158 |
model: applyLintRuleIn |
|
159 |
keepSpaceForOSXResizeHandleH: true |
|
160 |
) |
|
161 |
(LinkButtonSpec |
|
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
162 |
name: 'Button1' |
312 | 163 |
layout: (LayoutFrame 0 0 -29 1 -16 1 0 1) |
306 | 164 |
activeHelpKey: browseRule |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
165 |
level: 0 |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
166 |
translateLabel: true |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
167 |
labelChannel: ruleNameAspect |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
168 |
adjust: left |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
169 |
model: browseLintRule |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
170 |
keepSpaceForOSXResizeHandleH: true |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
) |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
172 |
) |
312 | 173 |
|
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
174 |
) |
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
175 |
) |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
!CriticsWindow class methodsFor:'plugIn spec'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
aspectSelectors |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
"This resource specification was automatically generated |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
by the UIPainter of ST/X." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
183 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
"Do not manually edit this. If it is corrupted, |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
the UIPainter may not be able to read the specification." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
186 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
187 |
"Return a description of exported aspects; |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
188 |
these can be connected to aspects of an embedding application |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
(if this app is embedded in a subCanvas)." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
190 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
191 |
^ #( |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
192 |
#ruleHolder |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
). |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
194 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
196 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
197 |
!CriticsWindow methodsFor:'accessing'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
|
306 | 199 |
closeOnLeave |
200 |
"set if used as a flyBy tooltip, which should close automatically. |
|
201 |
false, if used as a modal dialog, which needs explicit close. |
|
202 |
The default is false." |
|
203 |
||
204 |
^ closeOnLeave ? false |
|
205 |
! |
|
206 |
||
207 |
closeOnLeave:aBoolean |
|
208 |
"set this if used as a flyBy tooltip, which should close automatically. |
|
209 |
Leave false, if used as a modal dialog, which needs explicit close. |
|
210 |
The default is false." |
|
211 |
||
212 |
closeOnLeave := aBoolean |
|
213 |
! |
|
214 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
codeView |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
216 |
^ codeView |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
217 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
218 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
219 |
codeView:aCodeView2 |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
220 |
codeView := aCodeView2. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
221 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
222 |
|
306 | 223 |
notCloseOnLeave:aBoolean |
224 |
^ self closeOnLeave not |
|
225 |
! |
|
226 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
227 |
rule |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
228 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
229 |
^self ruleHolder value. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
230 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
231 |
"Created: / 30-01-2012 / 21:45:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
232 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
233 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
234 |
rule: anRBLintRule |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
235 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
236 |
^self ruleHolder value: anRBLintRule |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
237 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
238 |
"Created: / 30-01-2012 / 21:45:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
239 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
240 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
241 |
!CriticsWindow methodsFor:'actions'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
242 |
|
988 | 243 |
applyLintRuleIn |
244 |
|rule dialog cls pkg| |
|
245 |
||
246 |
rule := self ruleHolder value. |
|
247 |
rule isNil ifTrue:[^ self]. |
|
248 |
||
249 |
cls := codeView textView editedClass. |
|
250 |
cls notNil ifTrue:[ |
|
251 |
pkg := cls package |
|
252 |
]. |
|
253 |
dialog := Tools::SearchDialog new |
|
254 |
currentClass:cls; |
|
255 |
currentPackage:pkg; |
|
256 |
setupToAskForMethodSearchTitle:(resources string:'Apply rule in:') |
|
257 |
forBrowser:nil |
|
258 |
searchWhat:nil searchArea:#everywhere |
|
259 |
withCaseIgnore:false withMatch:false |
|
260 |
withMethodList:false |
|
261 |
allowFind:false allowBuffer:false allowBrowser:true |
|
262 |
withTextEntry:false. |
|
263 |
||
264 |
[:restart| |
|
265 |
dialog askThenDo:[ |
|
266 |
|classes methods keepResultList browser| |
|
267 |
||
268 |
classes := dialog classesToSearch. |
|
269 |
"/ methods := dialog methodsToSearch. |
|
270 |
browser := Tools::NewSystemBrowser new. |
|
271 |
browser allButOpen. |
|
272 |
browser |
|
273 |
smalllintRun:ruleHolder value |
|
274 |
onEnvironment:(ClassEnvironment new |
|
275 |
classes:classes; |
|
276 |
label:'Lint on more classes'). |
|
277 |
browser openWindow. |
|
278 |
]. |
|
279 |
] valueWithRestart. |
|
280 |
self hide. |
|
281 |
! |
|
282 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
283 |
browseLintRule |
321 | 284 |
self browseLintRule:self ruleHolder value |
285 |
! |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
286 |
|
321 | 287 |
browseLintRule:rule |
288 |
|ruleClass| |
|
289 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
290 |
rule isNil ifTrue:[^ self]. |
321 | 291 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
292 |
ruleClass := rule class. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
293 |
self close. |
877
92bce2b53e1f
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
873
diff
changeset
|
294 |
SystemBrowser default openInClass:ruleClass selector:#rationale |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
295 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
296 |
"Created: / 07-09-2011 / 04:09:38 / cg" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
297 |
"Modified: / 31-01-2012 / 11:30:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
298 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
299 |
|
306 | 300 |
disableLintRule |
301 |
|rule| |
|
302 |
||
303 |
rule := self ruleHolder value. |
|
304 |
rule isNil ifTrue:[^ self]. |
|
305 |
||
443
3511d16582e6
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
424
diff
changeset
|
306 |
"/ how do I disable the rule in the current smalllint checker service? |
460
4343e1369305
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
443
diff
changeset
|
307 |
"/ for now, a hack: keep a global disabledRules collection, and skip rules which are in it |
873
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
308 |
|
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
309 |
"/ if multiple rules complained, an anonymous composite rule is created; |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
310 |
"/ then disable them all |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
311 |
rule isComposite ifTrue:[ |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
312 |
rule rules do:[:each | |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
313 |
SmalltalkChecker disableRule:each class. |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
314 |
]. |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
315 |
] ifFalse:[ |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
316 |
SmalltalkChecker disableRule:rule class. |
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
317 |
]. |
306 | 318 |
self close. |
319 |
! |
|
320 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
321 |
doQuickFix: quickFixNo |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
322 |
self closeDownViews. |
312 | 323 |
"/ cg: why fork here? |
324 |
"[" fixer performFix: quickFixNo "] fork". |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
325 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
326 |
"Created: / 16-02-2012 / 14:19:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
327 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
328 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
329 |
!CriticsWindow methodsFor:'aspects'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
330 |
|
988 | 331 |
applyRuleInString |
332 |
^ 'Apply this Rule In...' asActionLinkTo:[ self applyLintRuleIn ] |
|
333 |
! |
|
334 |
||
306 | 335 |
closeIcon |
336 |
^ ToolbarIconLibrary removeTab16x16Icon |
|
337 |
! |
|
338 |
||
339 |
disableRuleString |
|
951 | 340 |
^ 'Disable this Rule' asActionLinkTo:[ self disableLintRule] |
306 | 341 |
! |
342 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
343 |
ruleHolder |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
344 |
"return/create the 'ruleHolder' value holder (automatically generated)" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
345 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
346 |
ruleHolder isNil ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
347 |
ruleHolder := ValueHolder with: (RBDebuggingCodeLeftInMethodsRule new) |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
348 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
349 |
^ ruleHolder |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
350 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
351 |
"Modified: / 30-01-2012 / 21:43:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
352 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
353 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
354 |
ruleHolder:something |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
355 |
"set the 'ruleHolder' value holder (automatically generated)" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
356 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
357 |
|oldValue newValue| |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
358 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
359 |
ruleHolder notNil ifTrue:[ |
968 | 360 |
oldValue := ruleHolder value. |
361 |
ruleHolder removeDependent:self. |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
362 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
363 |
ruleHolder := something. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
364 |
ruleHolder notNil ifTrue:[ |
968 | 365 |
ruleHolder addDependent:self. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
366 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
367 |
newValue := ruleHolder value. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
368 |
oldValue ~~ newValue ifTrue:[ |
968 | 369 |
self update:#value with:newValue from:ruleHolder. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
370 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
371 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
372 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
373 |
ruleNameAspect |
306 | 374 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
375 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
376 |
|holder| |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
377 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
378 |
(holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
379 |
holder := BlockValue |
306 | 380 |
with:[:h | |
321 | 381 |
|text rules| |
382 |
||
383 |
text := ''. |
|
384 |
rules := h isComposite ifTrue:[ h rules ] ifFalse:[ { h } ]. |
|
385 |
rules |
|
386 |
do:[:each | |
|
387 |
|anchor| |
|
388 |
||
389 |
"/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue) |
|
951 | 390 |
anchor := ('Browse Rule Class (%1)' |
391 |
bindWith:each class name) |
|
392 |
asActionLinkTo:[ self browseLintRule:each ]. |
|
321 | 393 |
text := text , anchor. |
394 |
] |
|
395 |
separatedBy:[ |
|
396 |
text := text , '<br>' |
|
397 |
]. |
|
398 |
text. |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
399 |
] |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
400 |
argument: self ruleHolder. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
401 |
builder aspectAt:#ruleNameAspect put:holder. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
402 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
403 |
^ holder. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
404 |
|
306 | 405 |
"Modified: / 05-02-2010 / 12:51:30 / Jan Vrany " |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
406 |
"Modified: / 07-09-2011 / 04:54:24 / cg" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
407 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
408 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
409 |
ruleRationaleAndFixesHTMLHolder |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
410 |
"return/create the 'ruleRationaleAndFixesHTMLHolder' value holder (automatically generated)" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
411 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
412 |
ruleRationaleAndFixesHTMLHolder isNil ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
413 |
ruleRationaleAndFixesHTMLHolder := ValueHolder new. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
414 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
415 |
^ ruleRationaleAndFixesHTMLHolder |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
416 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
417 |
"Modified (format): / 01-02-2012 / 10:57:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
418 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
419 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
420 |
!CriticsWindow methodsFor:'change & update'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
421 |
|
321 | 422 |
generateHTMLForRule: rule on: stream |
946 | 423 |
| flattenedRules collectedFixes putCollectedFixes |
995 | 424 |
previousRuleClass already| |
946 | 425 |
|
426 |
rule isComposite ifTrue:[ |
|
995 | 427 |
already := Set new. |
946 | 428 |
flattenedRules := OrderedCollection new. |
995 | 429 |
rule flatten do:[:each | |
430 |
(already includes:each) ifFalse:[ |
|
431 |
already add:each. |
|
432 |
flattenedRules add:each |
|
433 |
]. |
|
434 |
]. |
|
435 |
||
946 | 436 |
"/ often, multiple instances of the same rule match in a line. |
437 |
"/ avoid, generating long lists, which all look the same. |
|
438 |
"/ so first, sort them by name. |
|
439 |
flattenedRules sort:[:a :b | a name < b name]. |
|
440 |
"/ then in the code below, skip over repeated descriptions |
|
441 |
] ifFalse:[ |
|
442 |
flattenedRules := { rule }. |
|
443 |
]. |
|
312 | 444 |
|
946 | 445 |
putCollectedFixes := |
446 |
[ |
|
447 |
collectedFixes notEmptyOrNil ifTrue:[ |
|
448 |
stream nextPutAll: '<p>'. |
|
449 |
collectedFixes size > 1 ifTrue:[ |
|
450 |
stream nextPutAll: '<br>'. |
|
451 |
stream nextPutLine: 'Possible fixes:'. |
|
452 |
]. |
|
453 |
stream nextPutLine:'<ul indent="0">'. |
|
454 |
collectedFixes withIndexDo:[:fix :index| |
|
455 |
stream |
|
995 | 456 |
nextPutAll:'<li>'; |
457 |
nextPutAll:'<a action="doit: linkActionPerformer doQuickFix:'; |
|
946 | 458 |
nextPutAll: index printString; |
995 | 459 |
nextPutAll:'"'; |
460 |
"/ nextPutAll:' info="',(fix rule class name),'"'; |
|
461 |
nextPutAll:'>'; |
|
946 | 462 |
nextPutAll: fix label; |
995 | 463 |
nextPutAll:'</a>'; |
464 |
nextPutAll:' (',(fix rule class name),')'; |
|
465 |
nextPutAll:'</li>'. |
|
946 | 466 |
]. |
467 |
stream nextPutLine:'</ul>'. |
|
468 |
]. |
|
469 |
]. |
|
470 |
||
471 |
previousRuleClass := nil. |
|
472 |
collectedFixes := OrderedCollection new. |
|
315
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
473 |
|
946 | 474 |
flattenedRules |
475 |
do:[:eachRule | |
|
968 | 476 |
|fixesForMe editedMethod editedClass editedSelector| |
946 | 477 |
|
478 |
eachRule class == previousRuleClass ifFalse:[ |
|
479 |
collectedFixes notEmpty ifTrue:[ |
|
480 |
putCollectedFixes value. |
|
481 |
collectedFixes := OrderedCollection new |
|
482 |
]. |
|
483 |
previousRuleClass notNil ifTrue:[ |
|
484 |
stream nextPutLine: '<hr>' |
|
485 |
]. |
|
486 |
stream |
|
487 |
"/ nextPutAll:'<I>',eachRule class name,':</I><BR>'; |
|
488 |
nextPutAll:'<B>',eachRule name,'</B>'; |
|
489 |
nextPutAll:'<P>'; |
|
490 |
nextPutLine: eachRule rationale. |
|
491 |
]. |
|
492 |
||
493 |
"/ Generate fixes... |
|
961 | 494 |
"/ BUG: because rules/transformations remember their result, |
495 |
"/ after a run over a project, there might be changes for many many different classes |
|
496 |
"/ in the rule's changes list. |
|
497 |
"/ therefore, the fixer selects only those changes which affect the current method. |
|
498 |
self breakPoint:#cg. |
|
968 | 499 |
|
500 |
"/ was |
|
501 |
"/ eachRule fixes: fixer |
|
502 |
"/ changed to: |
|
503 |
editedMethod := codeView editedMethod. |
|
504 |
editedMethod notNil ifTrue:[ |
|
505 |
editedClass := editedMethod mclass. |
|
506 |
editedSelector := editedMethod selector. |
|
507 |
(editedClass isNil or:[editedSelector isNil]) ifTrue:[ |
|
989 | 508 |
Transcript showCR:'CriticsWindow: code in editor is outdated'. |
968 | 509 |
^ self |
510 |
]. |
|
511 |
] ifFalse:[ |
|
993 | 512 |
self breakPoint:#cg. |
513 |
^ self. |
|
968 | 514 |
]. |
515 |
eachRule |
|
516 |
addFixesForClass:editedClass |
|
517 |
selector:editedSelector |
|
518 |
to:fixer. |
|
519 |
||
520 |
fixesForMe := fixer fixesForRule: eachRule. |
|
521 |
fixesForMe notEmptyOrNil ifTrue:[ |
|
522 |
collectedFixes addAll:fixesForMe. |
|
946 | 523 |
]. |
524 |
previousRuleClass := eachRule class. |
|
525 |
]. |
|
526 |
||
527 |
collectedFixes notEmpty ifTrue:[ |
|
528 |
putCollectedFixes value. |
|
312 | 529 |
]. |
315
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
530 |
|
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
531 |
"Created: / 15-12-2014 / 16:49:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
532 |
"Modified: / 15-12-2014 / 18:17:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
995 | 533 |
"Modified: / 16-11-2016 / 22:02:24 / cg" |
312 | 534 |
! |
535 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
536 |
update:something with:aParameter from:changedObject |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
537 |
"Invoked when an object that I depend upon sends a change notification." |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
538 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
539 |
changedObject == ruleHolder ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
540 |
self updateRationaleAndFixes. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
541 |
^ self. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
542 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
543 |
super update:something with:aParameter from:changedObject |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
544 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
545 |
"Modified: / 01-02-2012 / 10:56:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
546 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
547 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
548 |
updateRationaleAndFixes |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
549 |
| rule html | |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
550 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
551 |
rule := self ruleHolder value. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
552 |
rule isNil ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
553 |
fixer := nil. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
554 |
html := 'No rule...'. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
555 |
] ifFalse:[ |
315
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
556 |
fixer := SmalltalkQuickFixer forView: codeView. |
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
557 |
|
417
441e176f9444
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
397
diff
changeset
|
558 |
html := |
441e176f9444
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
397
diff
changeset
|
559 |
String streamContents:[:s| |
418
533f9d396eec
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
417
diff
changeset
|
560 |
self generateHTMLForRule: rule on: s. |
417
441e176f9444
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
397
diff
changeset
|
561 |
]. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
562 |
]. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
563 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
564 |
self ruleRationaleAndFixesHTMLHolder value: html |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
565 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
566 |
"Created: / 01-02-2012 / 10:56:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
315
0a4845a0c211
Update to catchup changes in libtool: refactoring to support multiple lint warnings at line
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
312
diff
changeset
|
567 |
"Modified: / 15-12-2014 / 18:18:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
568 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
569 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
570 |
!CriticsWindow methodsFor:'event processing'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
571 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
572 |
processEvent: anEvent |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
573 |
|
306 | 574 |
anEvent isKeyReleaseEvent ifTrue:[ |
575 |
anEvent key == #Escape ifTrue:[ |
|
183
cfce2733ee7e
Allow lint window to be closed by pressing escape.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
576 |
self closeRequest. "/ closeDownViews. |
306 | 577 |
^true. |
183
cfce2733ee7e
Allow lint window to be closed by pressing escape.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
578 |
]. |
cfce2733ee7e
Allow lint window to be closed by pressing escape.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
579 |
]. |
cfce2733ee7e
Allow lint window to be closed by pressing escape.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
580 |
|
306 | 581 |
"/ cg: if this is a modal dialog - do not exit on leave. |
582 |
"/ if used as a flyBy, set the closeOnLeave flag. |
|
583 |
self closeOnLeave ifTrue:[ |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
584 |
anEvent isPointerLeaveEvent ifTrue:[ |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
585 |
anEvent view == self window ifTrue:[ |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
586 |
self closeRequest. "/ closeDownViews. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
587 |
^true. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
588 |
] |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
589 |
]. |
306 | 590 |
]. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
591 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
592 |
^false |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
593 |
|
306 | 594 |
"Created: / 16-02-2012 / 14:09:33 / Jan Vrany " |
595 |
"Modified (format): / 31-03-2014 / 16:53:41 / Jan Vrany " |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
596 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
597 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
598 |
!CriticsWindow methodsFor:'hooks'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
599 |
|
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
600 |
postBuildWith: aBuilder |
935 | 601 |
|window| |
602 |
||
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
603 |
super postBuildWith:aBuilder. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
604 |
|
935 | 605 |
window := aBuilder window. |
606 |
window allViewBackground:(window viewBackground). |
|
306 | 607 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
608 |
entered := false. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
609 |
self updateRationaleAndFixes. |
935 | 610 |
window beSlave. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
611 |
|
306 | 612 |
"Created: / 03-04-2011 / 10:45:10 / Jan Vrany " |
613 |
"Modified: / 16-02-2012 / 14:14:07 / Jan Vrany " |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
614 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
615 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
616 |
postOpenWith: bldr |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
72
diff
changeset
|
617 |
super postOpenWith: bldr. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
618 |
self windowGroup addPreEventHook: self. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
619 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
620 |
"Created: / 16-02-2012 / 14:09:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
621 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
622 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
623 |
!CriticsWindow methodsFor:'initialization'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
624 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
625 |
setupHTMLView:aView |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
626 |
rationalView := aView. |
877
92bce2b53e1f
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
873
diff
changeset
|
627 |
rationalView linkActionPerformer:self. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
628 |
aView painter |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
629 |
leftMargin:20; |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
630 |
topMargin:5. |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
631 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
632 |
"Created: / 04-08-2011 / 18:00:36 / cg" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
633 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
634 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
635 |
!CriticsWindow class methodsFor:'documentation'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
636 |
|
321 | 637 |
version |
873
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
638 |
^ '$Header$' |
321 | 639 |
! |
640 |
||
641 |
version_CVS |
|
873
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
642 |
^ '$Header$' |
321 | 643 |
! |
644 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
645 |
version_HG |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
646 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
647 |
^ '$Changeset: <not expanded> $' |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
648 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
649 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
650 |
version_SVN |
873
4716c7d3151a
class: SmallSense::CriticsWindow
Claus Gittinger <cg@exept.de>
parents:
460
diff
changeset
|
651 |
^ '$Id$' |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
652 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
653 |