author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 09 Jul 2014 12:23:50 +0100 | |
changeset 353 | b1170c3a4585 |
parent 346 | 88c1d211f9be |
child 354 | cbffe76c9b5a |
permissions | -rw-r--r-- |
353
b1170c3a4585
Package renamed to stx:goodies/smallsense
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
346
diff
changeset
|
1 |
"{ Package: 'stx:goodies/smallsense' }" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
"{ NameSpace: SmallSense }" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
PO subclass:#MethodPO |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
6 |
instanceVariableNames:'selector classes' |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
classVariableNames:'' |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
poolDictionaries:'' |
67
020b7461b15e
Package structure reorganization.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
64
diff
changeset
|
9 |
category:'SmallSense-Core-Interface-PO' |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
!MethodPO methodsFor:'accessing'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
|
234
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
15 |
classes |
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
16 |
^ classes |
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
17 |
! |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
cursorColumnAfterComplete |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
| idx | |
230
2c12395f8108
PO refactoring: get rid of name instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
229
diff
changeset
|
22 |
idx := self label indexOf: $:. |
2c12395f8108
PO refactoring: get rid of name instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
229
diff
changeset
|
23 |
^idx == 0 ifTrue:[self label size + 1] ifFalse:[idx + 1]. |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
"Created: / 05-04-2011 / 17:08:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
230
2c12395f8108
PO refactoring: get rid of name instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
229
diff
changeset
|
26 |
"Modified: / 20-05-2014 / 11:43:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
|
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
29 |
cursorColumnAfterCompleteForLanguage: language |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
30 |
| stringToComplete idx | |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
31 |
|
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
32 |
stringToComplete := self stringToCompleteForLanguage: language. |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
33 |
language isSmalltalk ifTrue:[ |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
34 |
idx := stringToComplete indexOf: $:. |
127
98c615301608
Fixes for Java completion (for both Java/Groovy and Smalltalk)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
122
diff
changeset
|
35 |
^idx == 0 ifTrue:[stringToComplete size] ifFalse:[idx]. |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
36 |
]. |
122 | 37 |
((language askFor: #isJava) or:[language askFor: #isGroovy]) ifTrue:[ |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
38 |
^ (stringToComplete at: stringToComplete size - 1) isSeparator |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
39 |
ifTrue:[stringToComplete size- 2] |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
40 |
ifFalse:[stringToComplete size] |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
41 |
]. |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
42 |
|
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
43 |
^ stringToComplete size + 1. |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
44 |
|
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
45 |
"Created: / 03-10-2013 / 16:50:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
127
98c615301608
Fixes for Java completion (for both Java/Groovy and Smalltalk)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
122
diff
changeset
|
46 |
"Modified: / 07-10-2013 / 12:30:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
47 |
! |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
48 |
|
232
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
49 |
hint |
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
50 |
^ (classes collect:[:each | each nameWithoutPrefix ]) asArray asStringWith:' , '. |
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
51 |
|
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
52 |
"Created: / 20-05-2014 / 12:27:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
53 |
! |
a95a378b4248
PO refactoring: parametrized displayLabel:... method to ease customozation.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
230
diff
changeset
|
54 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
label |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
|
115 | 57 |
label isNil ifTrue:[ |
58 |
| someClass | |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
|
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
60 |
someClass := classes anElement. |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
61 |
label := selector. |
115 | 62 |
someClass programmingLanguage isSmalltalk ifFalse:[ |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
63 |
label := (someClass compiledMethodAt: selector) printStringForBrowserWithSelector: selector. |
115 | 64 |
] |
65 |
]. |
|
66 |
^ label |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
67 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
68 |
"Created: / 07-04-2011 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
69 |
"Modified: / 20-05-2014 / 10:28:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
|
234
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
72 |
selector |
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
73 |
^ selector |
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
74 |
! |
97857872ee47
Initial set of tests for GroovyCompletionEngineSimple (along with some fixes)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
233
diff
changeset
|
75 |
|
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
76 |
stringToCompleteForLanguage: language |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
77 |
| someClass | |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
78 |
|
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
79 |
someClass := classes anElement. |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
80 |
someClass isJavaClass ifTrue:[ |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
81 |
| method | |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
82 |
|
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
83 |
method := someClass compiledMethodAt: selector. |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
84 |
language isSmalltalk ifTrue:[ |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
85 |
^ selector upTo: $( |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
86 |
]. |
122 | 87 |
((language askFor: #isJava) or:[language askFor: #isGroovy]) ifTrue:[ |
212
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
88 |
| selector | |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
89 |
|
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
90 |
selector := (method selector upTo: $(). |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
91 |
selector = '<init>' ifTrue:[ |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
92 |
selector := someClass lastName. |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
93 |
]. |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
94 |
selector := selector , (method numArgs == 0 ifTrue:['()'] ifFalse:['( )']). |
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
95 |
^ selector |
120
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
96 |
]. |
4fefce92f5bb
Initial support for Java/Groovy completion and for mixed-language completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
115
diff
changeset
|
97 |
]. |
185
75738108cc3f
Support for Tab in code completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
98 |
^ String |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
99 |
fromStringCollection: (selector tokensBasedOn: $:) |
185
75738108cc3f
Support for Tab in code completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
174
diff
changeset
|
100 |
separatedBy: ': '. |
115 | 101 |
|
102 |
"Created: / 02-10-2013 / 02:33:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
212
a2caebc602a7
Fixes and improvements for Java/Groovy completion (part 1)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
103 |
"Modified: / 15-05-2014 / 13:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
104 |
"Modified: / 20-05-2014 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
|
346
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
107 |
!MethodPO methodsFor:'accessing-private'! |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
108 |
|
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
109 |
subject |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
110 |
"Return the real object for which the receiver |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
111 |
is a presentor. |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
112 |
|
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
113 |
For internal usage only." |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
114 |
|
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
115 |
classes size ~~ 1 ifTrue:[ |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
116 |
self error: 'Multiple classes' |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
117 |
]. |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
118 |
^ classes anElement compiledMethodAt: selector |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
119 |
|
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
120 |
"Created: / 20-06-2014 / 11:11:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
121 |
! ! |
88c1d211f9be
Reintroduced PO>>subject.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
343
diff
changeset
|
122 |
|
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
123 |
!MethodPO methodsFor:'initialization'! |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
124 |
|
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
125 |
initializeWithClass: aClass selector: aSymbol |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
126 |
^ self initializeWithClasses: (Array with: aClass) selector: aSymbol |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
127 |
|
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
128 |
"Created: / 20-05-2014 / 10:32:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
90 | 129 |
! |
130 |
||
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
131 |
initializeWithClasses: anArray"Of Classes" selector: aSymbol |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
132 |
selector := aSymbol. |
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
133 |
classes := anArray |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
134 |
|
229
c82a22d2153d
PO refactoring: get rid of subject instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
192
diff
changeset
|
135 |
"Created: / 20-05-2014 / 10:32:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
230
2c12395f8108
PO refactoring: get rid of name instvar.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
229
diff
changeset
|
136 |
"Modified: / 20-05-2014 / 11:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
!MethodPO methodsFor:'testing'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
140 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
isSmallSenseMethodPO |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
^ true |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
143 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
144 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
145 |
!MethodPO class methodsFor:'documentation'! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
146 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
147 |
version_HG |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
148 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
149 |
^ '$Changeset: <not expanded> $' |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
151 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
152 |
version_SVN |
174
3e08d765d86f
sync from current CVS head; fixed comment highlighting for STXEOLRule
Claus Gittinger
parents:
132
diff
changeset
|
153 |
^ '$Id: SmallSense__MethodPO.st,v 1.2 2014/02/12 14:49:29 sr Exp $' |
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
154 |
! ! |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |