equal
deleted
inserted
replaced
57 |
57 |
58 !MethodSelectionBrowser class methodsFor:'instance creation'! |
58 !MethodSelectionBrowser class methodsFor:'instance creation'! |
59 |
59 |
60 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withTypes: aResourceTypes |
60 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withTypes: aResourceTypes |
61 |
61 |
62 "self |
62 " |
63 request: 'Select A Method' |
63 MethodSelectionBrowser |
|
64 request: 'Select a Method' |
64 onSuperclass: #ApplicationModel |
65 onSuperclass: #ApplicationModel |
65 andClass: #ToolApplicationModel |
66 andClass: #ToolApplicationModel |
66 andSelector: #saveIcon |
67 andSelector: #saveIcon |
67 withTypes: #(class) |
68 withTypes: #(class) |
68 " |
69 " |
69 |
70 |
70 ^self new |
71 ^self new |
71 title: aTitle; |
72 title: aTitle; |
72 openOnSuperclass: aSuperclass |
73 openOnSuperclass: aSuperclass |
81 |
82 |
82 columnsOfDataSetView |
83 columnsOfDataSetView |
83 |
84 |
84 ^ #( |
85 ^ #( |
85 #(#DataSetColumnSpec |
86 #(#DataSetColumnSpec |
86 #label: 'Selector' |
87 #label: ' Selector' |
|
88 #'labelAlignment:' #left |
87 #model: #selector |
89 #model: #selector |
88 #canSelect: false |
90 #canSelect: false |
89 ) |
91 ) |
90 (#DataSetColumnSpec |
92 (#DataSetColumnSpec |
91 #label: 'Type' |
93 #label: ' Type' |
|
94 #'labelAlignment:' #left |
92 #model: #type |
95 #model: #type |
93 #canSelect: false |
96 #canSelect: false |
94 )) |
97 )) |
95 |
98 |
96 |
99 |
129 |
132 |
130 !MethodSelectionBrowser methodsFor:'instance creation'! |
133 !MethodSelectionBrowser methodsFor:'instance creation'! |
131 |
134 |
132 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: aResourceTypes |
135 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: aResourceTypes |
133 |
136 |
134 ^super openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
137 |message type row| |
|
138 message := super openOnSuperclass: aSuperclassOrSymbol |
|
139 andClass: aClassOrSymbol |
|
140 andSelector: aSelector |
|
141 withResourceTypes: aResourceTypes. |
|
142 |
|
143 (message notNil and: |
|
144 [((row := self selectionOfResource value) notNil and: |
|
145 [(type := row type) = 'class'])]) |
|
146 ifTrue: |
|
147 [ |
|
148 message := message replChar:$ withString: ' class ' |
|
149 ]. |
|
150 ^message |
135 |
151 |
136 |
152 |
137 |
153 |
138 ! ! |
154 ! ! |
139 |
155 |