author | Claus Gittinger <cg@exept.de> |
Tue, 07 Jul 2015 13:01:43 +0200 | |
changeset 15735 | d59ccef25442 |
parent 15734 | 4c376216e8aa |
child 15736 | 0d31fb46a29b |
permissions | -rw-r--r-- |
15472
abf44e74df2f
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15359
diff
changeset
|
1 |
"{ Encoding: utf8 }" |
abf44e74df2f
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15359
diff
changeset
|
2 |
|
13840 | 3 |
" |
4 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
5 |
All Rights Reserved |
|
6 |
||
7 |
This software is furnished under a license and may be used |
|
8 |
only in accordance with the terms of that license and with the |
|
9 |
inclusion of the above copyright notice. This software may not |
|
10 |
be provided or otherwise made available to, or used by, any |
|
11 |
other person. No title to or ownership of the software is |
|
12 |
hereby transferred. |
|
13 |
" |
|
14 |
"{ Package: 'stx:libtool' }" |
|
15 |
||
16 |
"{ NameSpace: Tools }" |
|
17 |
||
18 |
AbstractSettingsApplication subclass:#LintRuleSettingsApplication |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
19 |
instanceVariableNames:'rulesetList rulesetSelectionHolder hasSelectionHolder |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
20 |
hasSelectionAndUserDefinedHolder smallSenseEnabledHolder |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
21 |
smallLintRulesetDefault defaultInBrowserRuleNameHolder' |
13840 | 22 |
classVariableNames:'LastFileName' |
23 |
poolDictionaries:'' |
|
24 |
category:'Interface-Lint' |
|
25 |
! |
|
26 |
||
27 |
!LintRuleSettingsApplication class methodsFor:'documentation'! |
|
28 |
||
29 |
copyright |
|
30 |
" |
|
31 |
COPYRIGHT (c) 2006 by eXept Software AG |
|
32 |
All Rights Reserved |
|
33 |
||
34 |
This software is furnished under a license and may be used |
|
35 |
only in accordance with the terms of that license and with the |
|
36 |
inclusion of the above copyright notice. This software may not |
|
37 |
be provided or otherwise made available to, or used by, any |
|
38 |
other person. No title to or ownership of the software is |
|
39 |
hereby transferred. |
|
40 |
" |
|
41 |
! ! |
|
42 |
||
43 |
!LintRuleSettingsApplication class methodsFor:'class initialization'! |
|
44 |
||
45 |
initialize |
|
46 |
||
47 |
Smalltalk addStartBlock:[ |
|
48 |
NewLauncher |
|
49 |
addSettingsApplicationByClass: self name |
|
50 |
withName: 'Tools/SmallLint' |
|
51 |
icon: nil. |
|
52 |
] |
|
53 |
||
54 |
"Created: / 04-02-2012 / 21:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
55 |
"Modified: / 27-02-2013 / 22:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
56 |
! ! |
|
57 |
||
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
58 |
!LintRuleSettingsApplication class methodsFor:'help specs'! |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
59 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
60 |
flyByHelpSpec |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
61 |
"This resource specification was automatically generated |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
62 |
by the UIHelpTool of ST/X." |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
63 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
64 |
"Do not manually edit this!! If it is corrupted, |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
65 |
the UIHelpTool may not be able to read the specification." |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
66 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
67 |
" |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
68 |
UIHelpTool openOnClass:Tools::LintRuleSettingsApplication |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
69 |
" |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
70 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
71 |
<resource: #help> |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
72 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
73 |
^ super flyByHelpSpec addPairsFrom:#( |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
74 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
75 |
#add |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
76 |
'Create a new ruleset' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
77 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
78 |
#copy |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
79 |
'Create a copy of the selected ruleset' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
80 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
81 |
#edit |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
82 |
'Edit the selected ruleset' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
83 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
84 |
#export |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
85 |
'Export the selected ruleset as a file' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
86 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
87 |
#import |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
88 |
'Import a ruleset from a file' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
89 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
90 |
#remove |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
91 |
'Remove the selected ruleset' |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
92 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
93 |
#resetDefault |
15359
0bbf1d44da51
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15291
diff
changeset
|
94 |
'Recreate the default ruleset with all existing RBRules.\(Do this after new rules have been added or rule classes were modified)' |
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
95 |
|
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
96 |
#makeDefaultInBrowser |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
97 |
'Make this the default ruleset to be used in browsers' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
98 |
|
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
99 |
#smallSenseEnabled |
15729
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
100 |
'Enable SmallSense (incremental lint rule checking in the editor).\If the SmallSense package is not yet loaded, checking this will force it into the image.\\Sorry, but this will only affect new windows,\so you have to reopen the browsers.' |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
101 |
|
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
102 |
) |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
103 |
! ! |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
104 |
|
13840 | 105 |
!LintRuleSettingsApplication class methodsFor:'interface opening'! |
106 |
||
107 |
open |
|
108 |
||
109 |
| settingsApp | |
|
110 |
||
111 |
settingsApp := SettingsDialog new. |
|
112 |
settingsApp addApplClass:self fullName |
|
113 |
withName:'SmallLint Rules'. |
|
114 |
settingsApp showRoot: false. |
|
115 |
settingsApp selectedItem value: |
|
116 |
(settingsApp applicationList root children anyOne). |
|
117 |
settingsApp open. |
|
118 |
||
119 |
"Created: / 26-05-2008 / 12:17:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
120 |
"Modified: / 27-02-2013 / 11:25:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
121 |
! ! |
|
122 |
||
123 |
!LintRuleSettingsApplication class methodsFor:'interface specs'! |
|
124 |
||
125 |
windowSpec |
|
126 |
"This resource specification was automatically generated |
|
127 |
by the UIPainter of ST/X." |
|
128 |
||
129 |
"Do not manually edit this!! If it is corrupted, |
|
130 |
the UIPainter may not be able to read the specification." |
|
131 |
||
132 |
" |
|
133 |
UIPainter new openOnClass:Tools::LintRuleSettingsApplication andSelector:#windowSpec |
|
134 |
Tools::LintRuleSettingsApplication new openInterface:#windowSpec |
|
135 |
Tools::LintRuleSettingsApplication open |
|
136 |
" |
|
137 |
||
138 |
<resource: #canvas> |
|
139 |
||
140 |
^ |
|
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
141 |
#(FullSpec |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
142 |
name: windowSpec |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
143 |
window: |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
144 |
(WindowSpec |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
145 |
label: 'Lint Settings' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
146 |
name: 'Lint Settings' |
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
147 |
min: (Point 10 10) |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
148 |
bounds: (Rectangle 0 0 587 473) |
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
149 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
150 |
component: |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
151 |
(SpecCollection |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
152 |
collection: ( |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
153 |
(VerticalPanelViewSpec |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
154 |
name: 'VerticalPanel1' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
155 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
156 |
horizontalLayout: fit |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
157 |
verticalLayout: topFit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
158 |
horizontalSpace: 3 |
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
159 |
verticalSpace: 3 |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
160 |
component: |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
161 |
(SpecCollection |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
162 |
collection: ( |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
163 |
(CheckBoxSpec |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
164 |
label: 'Enable Lintrule Checking in Codeview (Load SmallSense Package)' |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
165 |
name: 'CheckBox1' |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
166 |
activeHelpKey: smallSenseEnabled |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
167 |
model: smallSenseEnabledHolder |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
168 |
translateLabel: true |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
169 |
useDefaultExtent: true |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
170 |
) |
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
171 |
(ViewSpec |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
172 |
name: 'Box2' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
173 |
component: |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
174 |
(SpecCollection |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
175 |
collection: ( |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
176 |
(LabelSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
177 |
label: 'Predefined SmallLint Rule Sets' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
178 |
name: 'Label' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
179 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
180 |
translateLabel: true |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
181 |
adjust: left |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
182 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
183 |
(SelectionInListModelViewSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
184 |
name: 'ProfileList' |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
185 |
layout: (LayoutFrame 0 0 30 0 -128 1 -30 1) |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
186 |
enableChannel: svnEnabled |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
187 |
model: rulesetSelectionHolder |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
188 |
hasHorizontalScrollBar: true |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
189 |
hasVerticalScrollBar: true |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
190 |
listModel: rulesetList |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
191 |
useIndex: false |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
192 |
highlightMode: line |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
193 |
doubleClickSelector: doEdit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
194 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
195 |
(VerticalPanelViewSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
196 |
name: 'Buttons1' |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
197 |
layout: (LayoutFrame -128 1 30 0 0 1 -65 0.70000000000000095) |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
198 |
horizontalLayout: fit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
199 |
verticalLayout: top |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
200 |
horizontalSpace: 5 |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
201 |
verticalSpace: 3 |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
202 |
component: |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
203 |
(SpecCollection |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
204 |
collection: ( |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
205 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
206 |
label: 'Edit' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
207 |
name: 'ButtonEdit' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
208 |
activeHelpKey: edit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
209 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
210 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
211 |
model: doEdit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
212 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
213 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
214 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
215 |
label: 'Copy' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
216 |
name: 'ButtonCopy' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
217 |
activeHelpKey: copy |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
218 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
219 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
220 |
model: doCopy |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
221 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
222 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
223 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
224 |
label: 'New' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
225 |
name: 'ButtonAdd' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
226 |
activeHelpKey: add |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
227 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
228 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
229 |
model: doAdd |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
230 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
231 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
232 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
233 |
label: 'Remove' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
234 |
name: 'ButtonRemove' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
235 |
activeHelpKey: remove |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
236 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
237 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
238 |
model: doRemove |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
239 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
240 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
241 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
242 |
|
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
243 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
244 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
245 |
(VerticalPanelViewSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
246 |
name: 'Buttons2' |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
247 |
layout: (LayoutFrame -128 1 -64 0.70000000000000095 0 1 0 1) |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
248 |
horizontalLayout: fit |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
249 |
verticalLayout: bottom |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
250 |
horizontalSpace: 5 |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
251 |
verticalSpace: 3 |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
252 |
component: |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
253 |
(SpecCollection |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
254 |
collection: ( |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
255 |
(ActionButtonSpec |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
256 |
label: 'Make Default\in Browser' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
257 |
name: 'Button5' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
258 |
activeHelpKey: makeDefaultInBrowser |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
259 |
translateLabel: true |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
260 |
adjust: centerEach |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
261 |
multiLineLabel: true |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
262 |
tabable: true |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
263 |
model: makeDefaultInBrowser |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
264 |
enableChannel: hasSelectionHolder |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
265 |
extent: (Point 128 44) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
266 |
) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
267 |
(ViewSpec |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
268 |
name: 'Box3' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
269 |
extent: (Point 128 29) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
270 |
) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
271 |
(ActionButtonSpec |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
272 |
label: 'Reinitialize' |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
273 |
name: 'Button4' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
274 |
activeHelpKey: resetDefault |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
275 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
276 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
277 |
model: doResetDefault |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
278 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
279 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
280 |
(ViewSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
281 |
name: 'Box1' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
282 |
extent: (Point 128 30) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
283 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
284 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
285 |
label: 'Export' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
286 |
name: 'Button2' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
287 |
activeHelpKey: export |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
288 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
289 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
290 |
model: doExport |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
291 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
292 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
293 |
(ActionButtonSpec |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
294 |
label: 'Import' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
295 |
name: 'Button3' |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
296 |
activeHelpKey: import |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
297 |
translateLabel: true |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
298 |
tabable: true |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
299 |
model: doImport |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
300 |
extent: (Point 128 22) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
301 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
302 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
303 |
|
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
304 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
305 |
) |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
306 |
(LabelSpec |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
307 |
label: 'Default in Browser:' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
308 |
name: 'Label1' |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
309 |
layout: (LayoutFrame 0 0 -30 1 170 0 0 1) |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
310 |
translateLabel: true |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
311 |
adjust: left |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
312 |
) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
313 |
(LabelSpec |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
314 |
label: 'default ruleset in browser' |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
315 |
name: 'Label2' |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
316 |
layout: (LayoutFrame 170 0 -30 1 -128 1 0 1) |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
317 |
translateLabel: true |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
318 |
labelChannel: defaultInBrowserRuleNameHolder |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
319 |
adjust: left |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
320 |
) |
15029
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
321 |
) |
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
322 |
|
5dccdad68e3a
LintHighlighter/.LintService refactored to show multiple rules at line...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
15026
diff
changeset
|
323 |
) |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
324 |
extent: (Point 587 443) |
14231
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
325 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
326 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
327 |
|
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
328 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
329 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
330 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
331 |
|
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
332 |
) |
d747f6fed85e
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14154
diff
changeset
|
333 |
) |
13840 | 334 |
! ! |
335 |
||
336 |
!LintRuleSettingsApplication methodsFor:'accessing'! |
|
337 |
||
338 |
selection |
|
339 |
||
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
340 |
^self rulesetSelectionHolder value |
13840 | 341 |
|
342 |
"Created: / 25-08-2010 / 14:10:03 / Jan Vrany <enter your email here>" |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
343 |
"Modified: / 11-11-2014 / 15:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 344 |
! |
345 |
||
346 |
selection: anObject |
|
347 |
||
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
348 |
self rulesetSelectionHolder value: anObject |
13840 | 349 |
|
350 |
"Created: / 25-08-2010 / 14:09:40 / Jan Vrany <enter your email here>" |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
351 |
"Modified: / 11-11-2014 / 15:11:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 352 |
! ! |
353 |
||
354 |
!LintRuleSettingsApplication methodsFor:'actions'! |
|
355 |
||
356 |
doAdd |
|
357 |
<resource: #uiCallback> |
|
358 |
||
14769 | 359 |
| ruleset | |
13840 | 360 |
|
14769 | 361 |
ruleset := RBCompositeLintRule new. |
362 |
ruleset name: 'New Rule Set ' , (self rulesetList size + 1) printString. |
|
363 |
self doAdd: ruleset |
|
364 |
||
365 |
"Modified: / 14-10-2014 / 16:30:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
13840 | 366 |
! |
367 |
||
368 |
doAdd: anRBCompositeLintRule |
|
14769 | 369 |
| dialog | |
13840 | 370 |
|
14769 | 371 |
dialog := LintRuleEditDialog new. |
372 |
dialog rule: anRBCompositeLintRule. |
|
373 |
dialog open. |
|
374 |
dialog accepted ifTrue:[ |
|
375 |
self rulesetList add: anRBCompositeLintRule. |
|
376 |
self rulesetSelectionHolder value: anRBCompositeLintRule. |
|
377 |
self updateModifiedChannel. |
|
13840 | 378 |
]. |
379 |
||
380 |
"Created: / 27-02-2013 / 11:25:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
14769 | 381 |
"Modified: / 14-10-2014 / 16:29:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 382 |
! |
383 |
||
384 |
doCopy |
|
385 |
<resource: #uiCallback> |
|
386 |
||
387 |
| ruleset | |
|
388 |
||
389 |
ruleset := self rulesetSelectionHolder value deepCopy. |
|
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
390 |
ruleset name: ('Copy of ' , ruleset name). |
13840 | 391 |
self doAdd: ruleset |
392 |
||
393 |
"Modified: / 27-02-2013 / 11:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
394 |
! |
|
395 |
||
396 |
doEdit |
|
397 |
<resource: #uiCallback> |
|
398 |
||
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
399 |
self doEdit: self rulesetSelectionHolder value. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
400 |
|
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
401 |
"Modified: / 14-10-2014 / 16:48:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
402 |
! |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
403 |
|
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
404 |
doEdit: rule |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
405 |
| edited dialog | |
14061
aec91e761d33
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14059
diff
changeset
|
406 |
|
14868
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
407 |
rule isBuiltin ifTrue:[ |
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
408 |
Dialog warn: (resources string: 'Cannot edit built-in rule sets'). |
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
409 |
^ self |
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
410 |
]. |
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
411 |
|
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
412 |
dialog := LintRuleEditDialog new. |
14774
9337fd51b990
Support for built-in Lint rulesets
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14770
diff
changeset
|
413 |
dialog nameEditableHolder value: false. |
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
414 |
edited := rule deepCopy. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
415 |
dialog rule: edited. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
416 |
dialog open. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
417 |
dialog accepted ifTrue:[ |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
418 |
rule name: edited name. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
419 |
rule rules: edited rules. |
14154
5bfb4881d66d
class: Tools::LintRuleSettingsApplication
Stefan Vogel <sv@exept.de>
parents:
14061
diff
changeset
|
420 |
self updateModifiedChannel. |
5bfb4881d66d
class: Tools::LintRuleSettingsApplication
Stefan Vogel <sv@exept.de>
parents:
14061
diff
changeset
|
421 |
]. |
13840 | 422 |
|
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
423 |
"Created: / 14-10-2014 / 16:47:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
14868
2b290ffb8a95
Warn when trying to edit built-in ruleset (by double-clicking, for example)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14852
diff
changeset
|
424 |
"Modified: / 20-11-2014 / 01:59:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 425 |
! |
426 |
||
427 |
doExport |
|
428 |
<resource: #uiCallback> |
|
429 |
||
430 |
| file | |
|
431 |
||
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
432 |
Dialog warn: 'Not yet implemented'. |
14769 | 433 |
^ self. |
434 |
||
13840 | 435 |
file := Dialog requestFileName: (resources string: 'Select file') default: (LastFileName ? Filename currentDirectory / 'exported-ruleset.st'). |
436 |
file isEmptyOrNil ifTrue:[ ^ self ]. |
|
437 |
||
438 |
self shouldImplement |
|
439 |
||
14769 | 440 |
"Modified: / 14-10-2014 / 16:33:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 441 |
! |
442 |
||
443 |
doImport |
|
444 |
<resource: #uiCallback> |
|
445 |
||
14769 | 446 |
Dialog warn: 'Not yet implemented' |
13840 | 447 |
|
14769 | 448 |
"Modified: / 14-10-2014 / 16:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 449 |
! |
450 |
||
451 |
doRemove |
|
452 |
<resource: #uiCallback> |
|
453 |
||
454 |
| rule idx | |
|
455 |
||
456 |
rule := self rulesetSelectionHolder value. |
|
457 |
idx := self rulesetList indexOf: rule. |
|
458 |
idx ~~ 0 ifTrue:[ |
|
459 |
self rulesetList remove: rule. |
|
460 |
self rulesetList size > 0 ifTrue:[ |
|
461 |
self rulesetSelectionHolder value: (self rulesetList at: ((idx -1 ) max: 1)) |
|
462 |
] |
|
463 |
]. |
|
464 |
self updateModifiedChannel |
|
465 |
||
466 |
"Modified: / 27-02-2013 / 11:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
14878
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
467 |
! |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
468 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
469 |
doResetDefault |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
470 |
<resource: #uiCallback> |
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
471 |
|
d33a626816f6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14868
diff
changeset
|
472 |
RBBuiltinRuleSet flushBuiltinDefault. |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
473 |
! |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
474 |
|
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
475 |
makeDefaultInBrowser |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
476 |
<resource: #uiCallback> |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
477 |
|
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
478 |
self smallLintRulesetDefault value:(self rulesetSelectionHolder value). |
13840 | 479 |
! ! |
480 |
||
481 |
!LintRuleSettingsApplication methodsFor:'aspects'! |
|
482 |
||
483 |
canCopyHolder |
|
484 |
^self hasSelectionHolder |
|
485 |
||
486 |
"Created: / 27-02-2013 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
487 |
! |
|
488 |
||
489 |
canEditHolder |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
490 |
^self hasSelectionAndUserDefinedHolder |
13840 | 491 |
|
492 |
"Created: / 27-02-2013 / 11:24:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
493 |
"Modified: / 11-11-2014 / 15:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 494 |
! |
495 |
||
496 |
canExportHolder |
|
497 |
^self hasSelectionHolder |
|
498 |
||
499 |
"Created: / 27-02-2013 / 11:24:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
500 |
! |
|
501 |
||
502 |
canRemoveHolder |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
503 |
^self hasSelectionAndUserDefinedHolder |
13840 | 504 |
|
505 |
"Created: / 27-02-2013 / 11:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
506 |
"Modified: / 11-11-2014 / 15:12:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
507 |
! |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
508 |
|
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
509 |
defaultInBrowserRuleNameHolder |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
510 |
defaultInBrowserRuleNameHolder isNil ifTrue:[ |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
511 |
defaultInBrowserRuleNameHolder := '' asValue |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
512 |
]. |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
513 |
^ defaultInBrowserRuleNameHolder |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
514 |
! |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
515 |
|
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
516 |
hasSelectionAndUserDefinedHolder |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
517 |
|
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
518 |
|
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
519 |
hasSelectionAndUserDefinedHolder isNil ifTrue:[ |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
520 |
hasSelectionAndUserDefinedHolder := PluggableAdaptor on: self rulesetSelectionHolder |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
521 |
getter:[ :model | model value notNil and:[model value isBuiltin not ] ] |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
522 |
|
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
523 |
]. |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
524 |
^ hasSelectionAndUserDefinedHolder |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
525 |
|
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
526 |
"Created: / 11-11-2014 / 15:11:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 527 |
! |
528 |
||
529 |
hasSelectionHolder |
|
530 |
"return/create the 'hasSelectionHolder' value holder (automatically generated)" |
|
531 |
||
532 |
hasSelectionHolder isNil ifTrue:[ |
|
533 |
hasSelectionHolder := (AspectAdaptor forAspect: #notNil) subjectChannel: self rulesetSelectionHolder |
|
534 |
]. |
|
535 |
^ hasSelectionHolder |
|
536 |
||
537 |
"Modified: / 27-02-2013 / 11:24:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
538 |
! |
|
539 |
||
15729
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
540 |
hasSmallSenseLoaded |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
541 |
^ (Smalltalk at:#'SmallSense::SmalltalkChecker') notNil |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
542 |
! |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
543 |
|
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
544 |
hasSmallSenseNotLoaded |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
545 |
^ self hasSmallSenseLoaded not |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
546 |
! |
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
547 |
|
13840 | 548 |
rulesetList |
549 |
"return/create the 'rulesetList' value holder (automatically generated)" |
|
550 |
||
551 |
rulesetList isNil ifTrue:[ |
|
552 |
rulesetList := List new. |
|
553 |
]. |
|
554 |
^ rulesetList |
|
555 |
||
556 |
"Modified: / 27-02-2013 / 11:14:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
557 |
! |
|
558 |
||
559 |
rulesetSelectionHolder |
|
560 |
"return/create the 'rulesetSelectionHolder' value holder (automatically generated)" |
|
561 |
||
562 |
rulesetSelectionHolder isNil ifTrue:[ |
|
563 |
rulesetSelectionHolder := ValueHolder new. |
|
564 |
]. |
|
565 |
^ rulesetSelectionHolder |
|
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
566 |
! |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
567 |
|
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
568 |
smallLintRulesetDefault |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
569 |
smallLintRulesetDefault isNil ifTrue:[ |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
570 |
smallLintRulesetDefault := ValueHolder with:false. |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
571 |
smallLintRulesetDefault |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
572 |
onChangeEvaluate:[ |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
573 |
self updateModifiedChannel. |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
574 |
self defaultInBrowserRuleNameHolder |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
575 |
value:(smallLintRulesetDefault value isNil |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
576 |
ifTrue:[ RBBuiltinRuleSet rulesetBuiltinDefault] |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
577 |
ifFalse:[ smallLintRulesetDefault value name ]) |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
578 |
]. |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
579 |
]. |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
580 |
^ smallLintRulesetDefault |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
581 |
! |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
582 |
|
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
583 |
smallSenseEnabledHolder |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
584 |
smallSenseEnabledHolder isNil ifTrue:[ |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
585 |
smallSenseEnabledHolder := ValueHolder with:false. |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
586 |
smallSenseEnabledHolder onChangeSend:#updateModifiedChannel to:self |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
587 |
]. |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
588 |
^ smallSenseEnabledHolder |
13840 | 589 |
! ! |
590 |
||
591 |
!LintRuleSettingsApplication methodsFor:'protocol'! |
|
592 |
||
593 |
basicReadSettings |
|
594 |
"superclass AbstractSettingsApplication says that I am responsible to implement this method" |
|
595 |
||
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
596 |
|rbCompositeLintRuleClass| |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
597 |
|
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
598 |
self smallSenseEnabledHolder |
15729
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
599 |
value:(self hasSmallSenseLoaded |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
600 |
and:[ currentUserPrefs perform:#smallSenseEnabled ifNotUnderstood:false]). |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
601 |
|
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
602 |
self smallLintRulesetDefault value:(currentUserPrefs smallLintRulesetDefault). |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
603 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
604 |
rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'. |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
605 |
|
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
606 |
rbCompositeLintRuleClass isNil ifTrue:[ |
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
607 |
"/ Not loaded? |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
608 |
[ |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
609 |
Smalltalk loadPackage: #'stx:goodies/refactoryBrowser/lint'. |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
610 |
] on: PackageLoadError do:[:ex | |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
611 |
Dialog warn: (resources string: 'SmallLint package could not be loaded!!'). |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
612 |
^ self. |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
613 |
]. |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
614 |
rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'. |
13899
85faafbcb77c
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13840
diff
changeset
|
615 |
]. |
13840 | 616 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
617 |
rbCompositeLintRuleClass notNil ifTrue:[ |
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
618 |
self rulesetList |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
619 |
removeAll; |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
620 |
addAll: rbCompositeLintRuleClass rulesetsBuiltin; |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
621 |
addAll: rbCompositeLintRuleClass rulesetsUserDefined deepCopy |
14821
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
622 |
]. |
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
623 |
|
77f50f088501
Show also builtin rules in Lint rule settings dialog.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14785
diff
changeset
|
624 |
"Modified: / 11-11-2014 / 15:08:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 625 |
! |
626 |
||
627 |
basicSaveSettings |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
628 |
| oldRulesets newRulesets toRemove toAdd rbCompositeLintRuleClass| |
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
629 |
|
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
630 |
self smallSenseEnabledHolder value ifTrue:[ |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
631 |
currentUserPrefs addPreloadedPackage:'stx:goodies/smallsense' |
15472
abf44e74df2f
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15359
diff
changeset
|
632 |
] ifFalse:[ |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
633 |
currentUserPrefs removePreloadedPackage:'stx:goodies/smallsense' |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
634 |
]. |
15734
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
635 |
currentUserPrefs smallLintRulesetDefault:(smallLintRulesetDefault value). |
4c376216e8aa
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15729
diff
changeset
|
636 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
637 |
(Smalltalk at:#'SmallSense::SmalltalkChecker') notNil ifTrue:[ |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
638 |
UserPreferences current |
15472
abf44e74df2f
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15359
diff
changeset
|
639 |
perform:#smallSenseEnabled: with:(self smallSenseEnabledHolder value) ifNotUnderstood:[] |
15291
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
640 |
]. |
fbdf542a45b3
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15100
diff
changeset
|
641 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
642 |
rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'. |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
643 |
|
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
644 |
oldRulesets := rbCompositeLintRuleClass rulesetsUserDefined. |
14899
8a2d8908b414
Fix to handle old settings properly
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14878
diff
changeset
|
645 |
newRulesets := self rulesetList reject:[:e|e isBuiltin]. |
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
646 |
|
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
647 |
toAdd := OrderedCollection withAll: newRulesets. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
648 |
toRemove := Set new. |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
649 |
rbCompositeLintRuleClass rulesetsUserDefined do:[:oldRuleset | |
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
650 |
| newRuleset | |
13840 | 651 |
|
14770
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
652 |
newRuleset := newRulesets detect:[:each | each name = oldRuleset name ] ifNone: nil. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
653 |
newRuleset isNil ifTrue:[ |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
654 |
toRemove add: oldRuleset. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
655 |
] ifFalse:[ |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
656 |
toAdd remove: newRuleset. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
657 |
oldRuleset rules: newRuleset rules. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
658 |
]. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
659 |
]. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
660 |
oldRulesets removeAll:toRemove. |
6a3d59666ca8
Fix in reading/saving rulesets - work on copy of rulesets and update them in-place
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14769
diff
changeset
|
661 |
oldRulesets addAll:toAdd. |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
662 |
rbCompositeLintRuleClass rulesetsUserDefined: oldRulesets. |
13840 | 663 |
|
14899
8a2d8908b414
Fix to handle old settings properly
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14878
diff
changeset
|
664 |
"Modified: / 24-11-2014 / 11:21:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
13840 | 665 |
! |
666 |
||
667 |
helpFilename |
|
15493
c622c88a464b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15484
diff
changeset
|
668 |
"subclasses must return either the relative name of a helpFile |
c622c88a464b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15484
diff
changeset
|
669 |
in the doc/online/<language>/help directory, |
c622c88a464b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15484
diff
changeset
|
670 |
or an absolute pathname (typically in their packageDirectory). |
13840 | 671 |
Or nil, if no help is available." |
672 |
||
15493
c622c88a464b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15484
diff
changeset
|
673 |
^ 'Launcher/lintRuleSettings.html' |
13840 | 674 |
! ! |
675 |
||
676 |
!LintRuleSettingsApplication methodsFor:'queries'! |
|
677 |
||
678 |
hasUnsavedChanges |
|
679 |
"superclass AbstractSettingsApplication says that I am responsible to implement this method" |
|
680 |
||
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
681 |
|defaultRules currentRules firstTry rbCompositeLintRuleClass| |
14852
5dd39f1f7d2b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14821
diff
changeset
|
682 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
683 |
self smallSenseEnabledHolder value ifTrue:[ |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
684 |
currentUserPrefs addPreloadedPackage:'stx:goodies/smallsense' |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
685 |
]. |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
686 |
(currentUserPrefs perform:#smallSenseEnabled ifNotUnderstood:false) |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
687 |
~= (self smallSenseEnabledHolder value) |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
688 |
ifTrue:[ |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
689 |
^ true |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
690 |
]. |
15735
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
691 |
currentUserPrefs smallLintRulesetDefault ~= (smallLintRulesetDefault value) ifTrue:[^ true]. |
d59ccef25442
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15734
diff
changeset
|
692 |
|
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
693 |
rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'. |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
694 |
rbCompositeLintRuleClass isNil ifTrue:[^ false]. |
15100
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
695 |
|
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
696 |
firstTry := true. |
14059
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
697 |
SequenceableCollection missingClassInLiteralArrayErrorSignal handle:[:ex | |
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
698 |
"/ maybe we have to load additional packages... |
15100
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
699 |
firstTry ifTrue:[ |
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
700 |
(Smalltalk isPackageLoaded:'stx:goodies/refactoryBrowser/lint/spelling') ifFalse:[ |
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
701 |
firstTry := false. |
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
702 |
Smalltalk loadPackage:'stx:goodies/refactoryBrowser/lint/spelling'. |
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
703 |
ex restart. |
1e7b3f5e4ca6
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15029
diff
changeset
|
704 |
]. |
14059
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
705 |
]. |
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
706 |
ex reject. |
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
707 |
] do:[ |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
708 |
defaultRules := rbCompositeLintRuleClass rulesetsUserDefined copyAsOrderedCollection. |
14852
5dd39f1f7d2b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14821
diff
changeset
|
709 |
currentRules := self rulesetList copyAsOrderedCollection. |
5dd39f1f7d2b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14821
diff
changeset
|
710 |
"/ I will always add the defaultRule |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
711 |
defaultRules removeAllFoundIn:rbCompositeLintRuleClass rulesetsBuiltin. |
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
712 |
currentRules removeAllFoundIn:rbCompositeLintRuleClass rulesetsBuiltin. |
14852
5dd39f1f7d2b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
14821
diff
changeset
|
713 |
^ defaultRules ~= currentRules |
14059
3ede3ee7643b
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
13899
diff
changeset
|
714 |
]. |
15484
aa6b6dd894a2
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15472
diff
changeset
|
715 |
^ false. |
13840 | 716 |
|
717 |
"Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
718 |
! ! |
|
719 |
||
720 |
!LintRuleSettingsApplication class methodsFor:'documentation'! |
|
721 |
||
722 |
version |
|
15729
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
723 |
^ '$Header$' |
13840 | 724 |
! |
725 |
||
726 |
version_CVS |
|
15729
9072e5715657
class: Tools::LintRuleSettingsApplication
Claus Gittinger <cg@exept.de>
parents:
15626
diff
changeset
|
727 |
^ '$Header$' |
13840 | 728 |
! ! |
729 |
||
730 |
||
731 |
LintRuleSettingsApplication initialize! |