UIPainter.st
changeset 2273 b72473dda659
parent 2268 52429abf9eab
child 2277 342f25e2c276
equal deleted inserted replaced
2272:d1923697d456 2273:b72473dda659
  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