-
-
Notifications
You must be signed in to change notification settings - Fork 353
/
ClyMethod.class.st
58 lines (48 loc) · 1.78 KB
/
ClyMethod.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
"
I represent the type of any kind of methods.
I am introduced to abstract actual method implementation where in live system it would be CompiledMethod.
So when Calypso build browser items for methods their type is supposed to be me.
Look at class references to discover all compatible method definitions.
"
Class {
#name : #ClyMethod,
#superclass : #Object,
#category : #'Calypso-SystemQueries-Domain'
}
{ #category : #testing }
ClyMethod class >> checkCalypsoItem: aCompiledMethod isEqualTo: anotherCompiledMethod [
aCompiledMethod == anotherCompiledMethod ifTrue: [ ^true ].
^aCompiledMethod origin == anotherCompiledMethod origin
and: [ aCompiledMethod selector == anotherCompiledMethod selector ]
]
{ #category : #'item convertation' }
ClyMethod class >> convertToCalypsoBrowserItem: aMethod [
| item |
item := ClyBrowserItem named: aMethod selector with: aMethod.
item addProperty: (ClyMethodDefinitionProperty of: aMethod).
^item
]
{ #category : #'item decoration' }
ClyMethod class >> decorateBrowserItem: aBrowserItem by: anEnvironmentPlugin [
^ anEnvironmentPlugin
decorateBrowserItem: aBrowserItem
ofMethod: aBrowserItem actualObject
]
{ #category : #sorting }
ClyMethod class >> defaultSortFunctionForCalypso [
^ClySortMethodBySelectorFunction ascending
]
{ #category : #sorting }
ClyMethod class >> itemsSortOrderForCalypso [
^1
]
{ #category : #testing }
ClyMethod class >> match: aMethod forQueryBrowserFilter: aQueryBrowserFilter [
(aQueryBrowserFilter matchesString: aMethod selector) ifTrue: [ ^true ].
(aQueryBrowserFilter matchesString: aMethod origin name) ifTrue: [ ^true ].
^aQueryBrowserFilter matchesString: aMethod package name
]
{ #category : #printing }
ClyMethod class >> printSystemPathTo: aMethod [
^aMethod origin package name, ' / ' , aMethod origin name
]