equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
13 |
14 |
14 |
|
15 "{ Package: 'stx:libtool2' }" |
|
16 |
15 ResourceSelectionBrowser subclass:#MethodSelectionBrowser |
17 ResourceSelectionBrowser subclass:#MethodSelectionBrowser |
16 instanceVariableNames:'' |
18 instanceVariableNames:'' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
19 category:'Interface-Dialogs' |
21 category:'Interface-Dialogs' |
65 aSuperclassOrSymbol, |
67 aSuperclassOrSymbol, |
66 and aClassOrSymbol, |
68 and aClassOrSymbol, |
67 and aSelector, |
69 and aSelector, |
68 with allowed protocolTypes" |
70 with allowed protocolTypes" |
69 |
71 |
70 " |
72 ^ self new |
71 MethodSelectionBrowser |
73 title: aTitle; |
|
74 openOnSuperclass: aSuperclass |
|
75 andClass: aClass |
|
76 andSelector: aSelector |
|
77 withTypes: protocolTypes |
|
78 |
|
79 " |
|
80 MethodSelectionBrowser |
72 request: 'Select a Method' |
81 request: 'Select a Method' |
73 onSuperclass: #ApplicationModel |
82 onSuperclass: #ApplicationModel |
74 andClass: #MenuEditor |
83 andClass: #MenuEditor |
75 andSelector: #menuItemImage |
84 andSelector: #menuItemImage |
76 withTypes: #(class) |
85 withTypes: #(class) |
77 " |
86 " |
78 |
|
79 ^self new |
|
80 title: aTitle; |
|
81 openOnSuperclass: aSuperclass |
|
82 andClass: aClass |
|
83 andSelector: aSelector |
|
84 withTypes: protocolTypes |
|
85 |
|
86 |
|
87 ! ! |
87 ! ! |
88 |
88 |
89 !MethodSelectionBrowser class methodsFor:'list specs'! |
89 !MethodSelectionBrowser class methodsFor:'list specs'! |
90 |
90 |
91 tableColumnsForResourceMethodAttributes |
91 tableColumnsForResourceMethodAttributes |
168 |
168 |
169 !MethodSelectionBrowser methodsFor:'instance creation'! |
169 !MethodSelectionBrowser methodsFor:'instance creation'! |
170 |
170 |
171 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: protocolTypes |
171 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: protocolTypes |
172 "opens a MethodSelectionBrowser on |
172 "opens a MethodSelectionBrowser on |
173 aSuperclassOrSymbol, |
173 aSuperclassOrSymbol, |
174 and aClassOrSymbol, |
174 and aClassOrSymbol, |
175 and aSelector, |
175 and aSelector, |
176 with allowed protocolTypes" |
176 with allowed protocolTypes" |
177 |
177 |
178 |message type row| |
178 |message type row| |
179 |
179 |
180 message := super openOnSuperclass: aSuperclassOrSymbol |
180 message := self |
181 andClass: aClassOrSymbol |
181 openOnSuperclass: aSuperclassOrSymbol |
182 andSelector: aSelector |
182 andClass: aClassOrSymbol |
183 withResourceTypes: protocolTypes. |
183 andSelector: aSelector |
|
184 withResourceTypes: protocolTypes. |
184 |
185 |
185 (message notNil and: |
186 (message notNil and: |
186 [((row := self selectionOfResourceMethod value) notNil and: |
187 [((row := self selectionOfResourceMethod value) notNil and: |
187 [(type := row protocol) = 'class'])]) |
188 [(type := row protocol) = 'class'])]) |
188 ifTrue: |
189 ifTrue: |
189 [ |
190 [ |
190 message := message replChar:$ withString: ' class ' |
191 message := message replChar:$ withString: ' class ' |
191 ]. |
192 ]. |
192 ^message |
193 ^message |
193 |
|
194 |
|
195 |
|
196 ! ! |
194 ! ! |
197 |
195 |
198 !MethodSelectionBrowser methodsFor:'startup / release'! |
196 !MethodSelectionBrowser methodsFor:'startup / release'! |
199 |
197 |
200 postBuildWith:aBuilder |
198 postBuildWith:aBuilder |