equal
deleted
inserted
replaced
211 |
211 |
212 |holder| |
212 |holder| |
213 (holder := builder bindingAt:#listOfClasses) isNil ifTrue:[ |
213 (holder := builder bindingAt:#listOfClasses) isNil ifTrue:[ |
214 builder aspectAt:#listOfClasses put: |
214 builder aspectAt:#listOfClasses put: |
215 (holder := |
215 (holder := |
216 (TreeItem name: resourceSuperclass) |
216 (TreeItem name: (resourceSuperclass ? #Object)) |
217 children: (OrderedCollection with: |
217 children: (OrderedCollection with: |
218 (TreeItem newAsTreeFromSmalltalkClass: (Smalltalk at:resourceSuperclass)))) |
218 (TreeItem newAsTreeFromSmalltalkClass: (Smalltalk at:(resourceSuperclass ? #Object))))) |
219 ]. |
219 ]. |
220 ^ holder |
220 ^ holder |
221 |
221 |
222 |
222 |
223 ! |
223 ! |
302 !ResourceSelectionBrowser methodsFor:'initialization'! |
302 !ResourceSelectionBrowser methodsFor:'initialization'! |
303 |
303 |
304 postBuildWith:aBuilder |
304 postBuildWith:aBuilder |
305 |
305 |
306 |classSelection classSelectionBlock| |
306 |classSelection classSelectionBlock| |
307 classSelection := self class lastSelection ? resourceClass ? ''. |
307 |
|
308 classSelection := self class lastSelection ? resourceClass ? #Object. |
308 classSelectionBlock := [:cls| |
309 classSelectionBlock := [:cls| |
309 self listOfClassesView selectFromListOfNames: |
310 self listOfClassesView selectFromListOfNames: |
310 (((Smalltalk at: cls asSymbol ifAbsent: [Object])) |
311 (((Smalltalk at: cls asSymbol ifAbsent: [Object])) |
311 withAllSuperclasses reverse collect: [:cls| cls name asString])]. |
312 withAllSuperclasses reverse collect: [:cls| cls name asString])]. |
312 classSelectionBlock value: classSelection. |
313 classSelectionBlock value: classSelection. |