equal
deleted
inserted
replaced
519 (mayReadResources not or: [self selectionOfClass value isNil]) ifTrue: [^nil]. |
519 (mayReadResources not or: [self selectionOfClass value isNil]) ifTrue: [^nil]. |
520 self withWaitCursorDo: |
520 self withWaitCursorDo: |
521 [ |
521 [ |
522 |clsName| |
522 |clsName| |
523 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
523 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
524 clsName := self selectionOfClass value name. |
524 clsName := (self selectionOfClass value name upTo: $ ) asSymbol. |
525 self valueOfClassName value: clsName. |
525 self valueOfClassName value: clsName. |
526 self class lastSelection: clsName. |
526 self class lastSelection: clsName. |
527 self listOfResourceMethods contents: |
527 self listOfResourceMethods contents: |
528 ((((Smalltalk at: clsName) |
528 ((((Smalltalk at: clsName) |
529 class methodDictionary |
529 class methodDictionary |