equal
deleted
inserted
replaced
4267 ! |
4267 ! |
4268 |
4268 |
4269 doBrowseViewClass |
4269 doBrowseViewClass |
4270 "opens a browser on the selected widgets class" |
4270 "opens a browser on the selected widgets class" |
4271 |
4271 |
4272 |selection| |
4272 |selection widget| |
4273 |
4273 |
4274 ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[ |
4274 ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[ |
4275 selection first class browse |
4275 widget := selection first |
4276 ] ifFalse: [ |
4276 ] ifFalse:[ |
4277 selection class browse |
4277 widget := selection |
4278 ] |
4278 ]. |
|
4279 |
|
4280 widget isScrollWrapper ifTrue:[ widget := widget scrolledView]. |
|
4281 widget class browse |
4279 ! |
4282 ! |
4280 |
4283 |
4281 doDefineClassAndSelector |
4284 doDefineClassAndSelector |
4282 "launches a dialog for defining class, superclass, and selector of the application" |
4285 "launches a dialog for defining class, superclass, and selector of the application" |
4283 |
4286 |