equal
deleted
inserted
replaced
5129 widget := selection first |
5129 widget := selection first |
5130 ] ifFalse:[ |
5130 ] ifFalse:[ |
5131 widget := selection |
5131 widget := selection |
5132 ]. |
5132 ]. |
5133 |
5133 |
5134 widget isScrollWrapper ifTrue:[ widget := widget scrolledView]. |
5134 widget scrolledView class browse |
5135 widget class browse |
5135 |
|
5136 "Modified: / 22-01-2011 / 12:02:31 / cg" |
5136 ! |
5137 ! |
5137 |
5138 |
5138 doDefineClassAndSelector |
5139 doDefineClassAndSelector |
5139 "launches a dialog for defining class, superclass, and selector of the application" |
5140 "launches a dialog for defining class, superclass, and selector of the application" |
5140 |
5141 |