equal
deleted
inserted
replaced
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Interface-Dialogs' |
19 category:'Interface-Dialogs' |
20 ! |
20 ! |
21 |
21 |
22 Object subclass:#Row |
22 Object subclass:#Row |
23 instanceVariableNames:'selector type' |
23 instanceVariableNames:'selector protocol' |
24 classVariableNames:'' |
24 classVariableNames:'' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 privateIn:MethodSelectionBrowser |
26 privateIn:MethodSelectionBrowser |
27 ! |
27 ! |
28 |
28 |
88 #'labelAlignment:' #left |
88 #'labelAlignment:' #left |
89 #model: #selector |
89 #model: #selector |
90 #canSelect: false |
90 #canSelect: false |
91 ) |
91 ) |
92 (#DataSetColumnSpec |
92 (#DataSetColumnSpec |
93 #label: ' Type' |
93 #label: ' Protocol' |
94 #'labelAlignment:' #left |
94 #'labelAlignment:' #left |
95 #model: #type |
95 #model: #protocol |
96 #canSelect: false |
96 #canSelect: false |
97 )) |
97 )) |
98 |
98 |
99 |
99 |
100 |
100 |
116 (resourceTypes includes: #instance) ifTrue: [ |
116 (resourceTypes includes: #instance) ifTrue: [ |
117 self listOfResources contents: |
117 self listOfResources contents: |
118 (((Smalltalk at: clsName) |
118 (((Smalltalk at: clsName) |
119 selectors |
119 selectors |
120 asOrderedCollection) |
120 asOrderedCollection) |
121 collect: [:sel| Row new selector: sel; type: 'instance'])]. |
121 collect: [:sel| Row new selector: sel; protocol: 'instance'])]. |
122 (resourceTypes includes: #class) ifTrue: [ |
122 (resourceTypes includes: #class) ifTrue: [ |
123 self listOfResources addAll: |
123 self listOfResources addAll: |
124 (((Smalltalk at: clsName) |
124 (((Smalltalk at: clsName) |
125 class selectors |
125 class selectors |
126 asOrderedCollection) |
126 asOrderedCollection) |
127 collect: [:sel| Row new selector: sel; type: 'class'])]. |
127 collect: [:sel| Row new selector: sel; protocol: 'class'])]. |
128 ] |
128 ] |
129 |
129 |
130 |
130 |
131 ! ! |
131 ! ! |
132 |
132 |
163 |
163 |
164 ! ! |
164 ! ! |
165 |
165 |
166 !MethodSelectionBrowser::Row methodsFor:'accessing'! |
166 !MethodSelectionBrowser::Row methodsFor:'accessing'! |
167 |
167 |
|
168 protocol |
|
169 |
|
170 ^protocol |
|
171 |
|
172 |
|
173 ! |
|
174 |
|
175 protocol: aString |
|
176 |
|
177 protocol := aString |
|
178 |
|
179 |
|
180 ! |
|
181 |
168 selector |
182 selector |
169 |
183 |
170 selector isNil ifTrue: [selector := method who methodSelector]. |
184 selector isNil ifTrue: [selector := method who methodSelector]. |
171 ^selector |
185 ^selector |
172 |
186 |
174 |
188 |
175 selector: aSymbol |
189 selector: aSymbol |
176 |
190 |
177 selector := aSymbol |
191 selector := aSymbol |
178 |
192 |
179 ! |
|
180 |
|
181 type |
|
182 |
|
183 ^type |
|
184 |
|
185 |
|
186 ! |
|
187 |
|
188 type: aString |
|
189 |
|
190 type := aString |
|
191 |
|
192 |
|
193 ! ! |
193 ! ! |
194 |
194 |
195 !MethodSelectionBrowser class methodsFor:'documentation'! |
195 !MethodSelectionBrowser class methodsFor:'documentation'! |
196 |
196 |
197 version |
197 version |