author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 06 Sep 2012 17:38:47 +0100 | |
changeset 28 | f516772ba2b8 |
parent 24 | a468dff1d0f7 |
child 29 | fe650a6e5704 |
permissions | -rw-r--r-- |
11 | 1 |
"{ Package: 'stx:libtool/smallsense' }"! |
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
!AssignmentNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
childNamesAndValuesDo:aBlock |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
aBlock value: #variable value: variable. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
aBlock value: #expression value: expression. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
"Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
! ! |
11 | 12 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
!AssignmentNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
inferedType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
^ expression inferedType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
! ! |
11 | 21 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
!AssignmentNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
inferedType: aSmallSenseType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
^ self shouldNotImplement |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
! ! |
11 | 30 |
|
31 |
!ConfigurableFeatures class methodsFor:'queries-features'! |
|
32 |
||
33 |
hasSmallSenseEnabled |
|
34 |
||
35 |
^UserPreferences current smallSenseEnabled |
|
36 |
||
37 |
||
38 |
" |
|
39 |
ConfigurableFeatures hasSmallSenseEnabled |
|
40 |
ConfigurableFeatures includesFeature:'SmallSenseEnabled' |
|
41 |
" |
|
42 |
||
43 |
"Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
44 |
! ! |
|
45 |
||
16 | 46 |
!HTMLDocumentView methodsFor:'actions'! |
47 |
||
48 |
doQuickFix: quickFixNo |
|
49 |
| app | |
|
50 |
||
51 |
app := self application. |
|
52 |
app notNil ifTrue:[ |
|
23 | 53 |
app doQuickFix: quickFixNo |
16 | 54 |
]. |
55 |
||
56 |
"Created: / 16-02-2012 / 14:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 |
! ! |
|
58 |
||
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
!MessageNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
60 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
61 |
childNamesAndValuesDo:aBlock |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
62 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
63 |
aBlock value: #receiver value: receiver. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
64 |
argArray notNil ifTrue:[ |
23 | 65 |
argArray withIndexDo:[:node :idx| |
66 |
aBlock value: 'arg[' , idx printString , ']' value: node |
|
67 |
] |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
68 |
] |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
69 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
"Modified: / 26-11-2011 / 12:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
! ! |
11 | 72 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
!ParseErrorNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
75 |
childNamesAndValuesDo:aBlock |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
76 |
"superclass ParseNode says that I am responsible to implement this method" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
^ self shouldImplement |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
! ! |
11 | 80 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
!ParseNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
childNamesAndValuesDo: aBlock |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
84 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
"Enumerates all direct children and evaluates a block |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
with its name (usually instVar name) and the node itself" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
^self subclassResponsibility |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
89 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
90 |
"Created: / 26-11-2011 / 10:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
! ! |
11 | 92 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
93 |
!ParseNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
94 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
95 |
inferedType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
| t | |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
98 |
t := self objectAttributeAt:#inferedType. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
t isNil ifTrue:[t := SmallSenseType default]. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
100 |
^t |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
101 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
103 |
! ! |
11 | 104 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
!ParseNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
inferedType: aSmallSenseType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
109 |
^ self objectAttributeAt:#inferedType put: aSmallSenseType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
110 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
111 |
"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
112 |
! ! |
11 | 113 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
114 |
!ParseNode methodsFor:'testing'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
115 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
isSelector |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
117 |
"return true, if this is a node for an selctors" |
23 | 118 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
119 |
^ false |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
120 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
121 |
"Created: / 22-02-2011 / 21:44:45 / Jakub <zelenja7@fel.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
122 |
! ! |
11 | 123 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
124 |
!PrimaryNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
125 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
126 |
childNamesAndValuesDo:aBlock |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
128 |
"Initionally left blank, primary nodes have no children" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
129 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
"Modified: / 26-11-2011 / 11:49:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
131 |
! ! |
11 | 132 |
|
9 | 133 |
!RBLintRule methodsFor:'accessing'! |
134 |
||
135 |
fixes: aSmallSenseQuickFixer |
|
136 |
"Adds all possible code fixes to given quick fixer. |
|
137 |
Default is to do nothing, meaning that there are |
|
138 |
no quickfixes available" |
|
139 |
||
140 |
"Created: / 01-02-2012 / 12:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
141 |
! ! |
|
11 | 142 |
|
9 | 143 |
!RBTransformationRule methodsFor:'accessing'! |
144 |
||
145 |
fixes: fixer |
|
17
8443d79a77ac
Improvements in background lint checker
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
16
diff
changeset
|
146 |
| changes | |
9 | 147 |
|
17
8443d79a77ac
Improvements in background lint checker
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
16
diff
changeset
|
148 |
changes := self changes. |
8443d79a77ac
Improvements in background lint checker
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
16
diff
changeset
|
149 |
changes notEmptyOrNil ifTrue:[ |
23 | 150 |
fixer fix |
151 |
label:'Rewrite the code'; |
|
152 |
action: [ fixer apply: |
|
153 |
((ChangeSet withAll:self changes) name: self name) |
|
154 |
]. |
|
17
8443d79a77ac
Improvements in background lint checker
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
16
diff
changeset
|
155 |
] |
9 | 156 |
|
157 |
"Created: / 01-02-2012 / 12:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
158 |
! ! |
|
11 | 159 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
160 |
!StatementNode methodsFor:'enumeration'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
161 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
162 |
childNamesAndValuesDo:aBlock |
15
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
163 |
| stmt index | |
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
164 |
stmt := self. |
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
165 |
index := 1. |
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
166 |
[ stmt notNil ] whileTrue:[ |
23 | 167 |
aBlock value: ('statement[%1]' bindWith: index) value: stmt expression. |
168 |
stmt := stmt nextStatement. |
|
169 |
index := index + 1. |
|
15
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
170 |
] |
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
|
15
23ecfbccccd5
Updates in SmallSenseParseNodeInspector
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
11
diff
changeset
|
172 |
"Modified: / 15-02-2012 / 12:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
173 |
! ! |
11 | 174 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
175 |
!StatementNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
inferedType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
^ expression inferedType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
! ! |
11 | 183 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
!StatementNode methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
186 |
inferedType: aSmallSenseType |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
187 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
188 |
^ self shouldNotImplement |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
189 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
190 |
"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
191 |
! ! |
11 | 192 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
193 |
!Tools::NavigationState methodsFor:'aspects'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
194 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
195 |
selectedClasses |
23 | 196 |
"WARNING WARNING: |
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
197 |
This is overwriten method from SmallSense!!!!!! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
198 |
" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
199 |
selectedClasses isNil ifTrue:[ |
23 | 200 |
selectedClasses := "SpecialValueHolder with:nil." nil asValue. |
201 |
(ConfigurableFeatures includesFeature:'SmallSenseEnabled') ifTrue:[ |
|
202 |
selectedClasses onChangeEvaluate:[ |
|
203 |
selectedClasses value ? #() do:[:cls| |
|
204 |
SmallSenseManager instance updateInfoForClass: cls. |
|
205 |
]. |
|
206 |
] |
|
207 |
] |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
208 |
]. |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
209 |
^ selectedClasses |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
210 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
211 |
"Modified: / 27-11-2011 / 17:50:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
212 |
! ! |
11 | 213 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
214 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
215 |
|
5
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
216 |
smallSenseBackgroundLintEnabled |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
217 |
"Return true if SmallSense background source checking is enabled" |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
218 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
219 |
^self at:#smallSenseBackgroundLintEnabled ifAbsent:[false] |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
220 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
221 |
"Created: / 30-01-2012 / 19:59:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
222 |
! ! |
11 | 223 |
|
5
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
224 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
225 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
226 |
smallSenseBackgroundLintEnabled: aBoolean |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
227 |
"Return true if SmallSense background source checking is enabled" |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
228 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
229 |
^self at:#smallSenseBackgroundLintEnabled put: aBoolean |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
230 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
231 |
" |
23 | 232 |
UserPreferences current smallSenseBackgroundLintEnabled |
233 |
UserPreferences current smallSenseBackgroundLintEnabled: true |
|
234 |
UserPreferences current smallSenseBackgroundLintEnabled: false |
|
5
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
235 |
" |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
236 |
|
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
237 |
"Created: / 30-01-2012 / 20:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
238 |
! ! |
11 | 239 |
|
240 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
|
241 |
||
242 |
smallSenseBackgroundTypingEnabled |
|
243 |
"Return true if SmallSense background source checking is enabled" |
|
244 |
||
245 |
^self at:#smallSenseBackgroundTypingEnabled ifAbsent:[false] |
|
246 |
||
247 |
"Created: / 04-02-2012 / 21:41:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
248 |
! ! |
|
249 |
||
250 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
|
251 |
||
252 |
smallSenseBackgroundTypingEnabled: aBoolean |
|
253 |
"Return true if SmallSense background source checking is enabled" |
|
254 |
||
255 |
^self at:#smallSenseBackgroundTypingEnabled put: aBoolean |
|
256 |
||
257 |
" |
|
23 | 258 |
UserPreferences current smallSenseBackgroundTypingEnabled |
259 |
UserPreferences current smallSenseBackgroundTypingEnabled: true |
|
260 |
UserPreferences current smallSenseBackgroundTypingEnabled: false |
|
11 | 261 |
" |
262 |
||
263 |
"Created: / 04-02-2012 / 21:41:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
264 |
! ! |
|
265 |
||
5
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
266 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
9b296f3ad0a4
Added code critics (lint) window
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
267 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
268 |
smallSenseEnabled |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
269 |
"Return true if SmallSense is enabled" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
270 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
271 |
^self at:#smallSenseEnabled ifAbsent:[false] |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
272 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
273 |
"Created: / 27-11-2011 / 17:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
274 |
! ! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
275 |
|
20
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
276 |
!UserPreferences methodsFor:'accessing-SmallSense'! |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
277 |
|
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
278 |
smallSenseEnabled: aBoolean |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
279 |
"enable/disable SmallSense" |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
280 |
|
23 | 281 |
^self at:#smallSenseEnabled put: aBoolean. |
20
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
282 |
|
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
283 |
" |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
284 |
UserPreferences current smallSenseEnabled. |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
285 |
UserPreferences current smallSenseEnabled: true. |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
286 |
UserPreferences current smallSenseEnabled: false. |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
287 |
" |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
288 |
|
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
289 |
"Created: / 02-04-2012 / 11:37:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
290 |
! ! |
65bee305e13f
Added UserPreferences>>smallSenseEnabled:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
19
diff
changeset
|
291 |
|
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
292 |
!VariableNode methodsFor:'queries'! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
293 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
294 |
isGlobalOrPrivateClass |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
295 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
296 |
^ type == #GlobalVariable or:[type == #PrivateClass] |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
297 |
|
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
298 |
"Created: / 27-11-2011 / 16:31:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
299 |
! ! |
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
300 |
|
11 | 301 |
!stx_libtool_smallsense class methodsFor:'documentation'! |
0
893cc7b0ed1d
copied smallsense from old /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
302 |
|
11 | 303 |
extensionsVersion_SVN |
24 | 304 |
^ '$Id:: extensions.st 7983 2012-04-19 08:02:50Z vranyj1 $' |
305 |
! ! |