author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 06 May 2014 08:23:16 +0100 | |
changeset 337 | 5f39eba6a1e3 |
child 343 | b3d22e8c0a05 |
permissions | -rw-r--r-- |
337
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'jv:smallsense' }" |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
"{ NameSpace: SmallSense }" |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
AbstractSearchDialog subclass:#PackageSearchDialog |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
instanceVariableNames:'' |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
classVariableNames:'' |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
poolDictionaries:'' |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
category:'SmallSense-Core-Interface-Search' |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
!PackageSearchDialog methodsFor:'queries'! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
canSelect:selection |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
^ selection askFor: #isSmallSensePackagePO |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
"Created: / 05-05-2014 / 23:50:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
! ! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
!PackageSearchDialog methodsFor:'searching'! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
matchingObjectPOsFor:objects |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
objects sort: [ :a :b | a < b ]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
^ objects collect:[ :e | PackagePO new subject: e ]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
"Created: / 05-05-2014 / 23:54:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
matchingObjectsForPattern:pattern inEnvironment:environment |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
| packages | |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
packages := Set new. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
environment allClassesDo: [ :cls | |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
| pkg | |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
37 |
pkg := cls package. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
((pkg notNil and:[ pkg ~~ PackageId noProjectID ]) |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
and:[(filter isNil or:[ filter value: pkg ]) |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
and:[pattern isNil or:[pattern match: pkg]]]) ifTrue:[ packages add: pkg ]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
environment allMethodsDo:[ :mth | |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
| pkg | |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
pkg := mth package. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
((pkg notNil and:[ pkg ~~ PackageId noProjectID ]) |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
and:[(filter isNil or:[ filter value: pkg ]) |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
and:[pattern isNil or:[pattern match: pkg]]]) ifTrue:[ packages add: pkg ]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
]. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
^ packages asArray. |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
|
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
"Created: / 05-05-2014 / 23:53:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
! ! |
5f39eba6a1e3
Added PackageSearchDialog and MethodSearch dialog. Still needs to be polished.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |