equal
deleted
inserted
replaced
108 self selectionOfClass value isNil ifTrue: [^nil]. |
108 self selectionOfClass value isNil ifTrue: [^nil]. |
109 self withWaitCursorDo: |
109 self withWaitCursorDo: |
110 [ |
110 [ |
111 |clsName| |
111 |clsName| |
112 resourceTypes isNil ifTrue: [resourceTypes := #(instance class)]. |
112 resourceTypes isNil ifTrue: [resourceTypes := #(instance class)]. |
113 clsName := self listOfClassesView list at: anIndex. |
113 clsName := ((self listOfClassesView list at: anIndex) upTo: $ ) asSymbol. |
114 self valueOfClassName value: clsName. |
114 self valueOfClassName value: clsName. |
115 self class lastSelection: clsName. |
115 self class lastSelection: clsName. |
116 (resourceTypes includes: #instance) ifTrue: [ |
116 (resourceTypes includes: #instance) ifTrue: [ |
117 self listOfResources contents: |
117 self listOfResources contents: |
118 (((Smalltalk at: clsName) |
118 (((Smalltalk at: clsName) |