equal
deleted
inserted
replaced
127 self selectionOfClass value isNil ifTrue: [^nil]. |
127 self selectionOfClass value isNil ifTrue: [^nil]. |
128 self withWaitCursorDo: |
128 self withWaitCursorDo: |
129 [ |
129 [ |
130 |clsName contentsBlock| |
130 |clsName contentsBlock| |
131 resourceTypes isNil ifTrue: [resourceTypes := #(instance class)]. |
131 resourceTypes isNil ifTrue: [resourceTypes := #(instance class)]. |
132 clsName := self selectionOfClass value name. |
132 clsName := (self selectionOfClass value name upTo: $ ) asSymbol. |
133 self valueOfClassName value: clsName. |
133 self valueOfClassName value: clsName. |
134 self class lastSelection: clsName. |
134 self class lastSelection: clsName. |
135 self listOfResourceMethods removeAll. |
135 self listOfResourceMethods removeAll. |
136 contentsBlock := |
136 contentsBlock := |
137 [:protocol| |
137 [:protocol| |