4231 |
4231 |
4232 "/ |oldSelector| |
4232 "/ |oldSelector| |
4233 |
4233 |
4234 "/ oldSelector := currentSelector. |
4234 "/ oldSelector := currentSelector. |
4235 |
4235 |
|
4236 aspect := nil. |
4236 (fullProtocol not and:[currentClass isNil]) ifTrue:[^ self]. |
4237 (fullProtocol not and:[currentClass isNil]) ifTrue:[^ self]. |
4237 |
4238 |
4238 currentMethodCategory := methodCategoryListView selectionValue. |
4239 currentMethodCategory := methodCategoryListView selectionValue. |
4239 self methodCategorySelectionChanged. |
4240 self methodCategorySelectionChanged. |
4240 aspect := nil. |
|
4241 |
4241 |
4242 "if there is only one method, show it right away" |
4242 "if there is only one method, show it right away" |
4243 methodListView list size == 1 ifTrue:[ |
4243 methodListView list size == 1 ifTrue:[ |
4244 methodListView selection:1. |
4244 methodListView selection:1. |
4245 self methodSelection:1 |
4245 self methodSelection:1 |
4246 "/ ] ifFalse:[ |
4246 "/ ] ifFalse:[ |
4247 "/ oldSelector notNil ifTrue:[ |
4247 "/ oldSelector notNil ifTrue:[ |
4248 "/ methodListView selectElement:oldSelector. |
4248 "/ methodListView selectElement:oldSelector. |
4249 "/ methodListView hasSelection ifTrue:[ |
4249 "/ methodListView hasSelection ifTrue:[ |
4250 "/ self methodSelection:methodListView selection. |
4250 "/ self methodSelection:methodListView selection. |
4251 "/ ] |
4251 "/ ] |
4252 "/ ] |
4252 "/ ] |
4253 ] |
4253 ] |
4254 |
4254 |
4255 "Created: 23.11.1995 / 14:19:56 / cg" |
4255 "Created: 23.11.1995 / 14:19:56 / cg" |
|
4256 "Modified: 9.2.1996 / 02:24:15 / cg" |
4256 ! |
4257 ! |
4257 |
4258 |
4258 methodCategorySelectionChanged |
4259 methodCategorySelectionChanged |
4259 "method category selection has changed - update dependent views" |
4260 "method category selection has changed - update dependent views" |
4260 |
4261 |