equal
deleted
inserted
replaced
450 self selectionOfClass value isNil ifTrue: [^nil]. |
450 self selectionOfClass value isNil ifTrue: [^nil]. |
451 self withWaitCursorDo: |
451 self withWaitCursorDo: |
452 [ |
452 [ |
453 |clsName| |
453 |clsName| |
454 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
454 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
455 clsName := ((self listOfClassesView list at: anIndex) upTo: $ ) asSymbol. |
455 clsName := ((self listOfClassesView list at: anIndex) printString upTo: $ ) asSymbol. |
456 self valueOfClassName value: clsName. |
456 self valueOfClassName value: clsName. |
457 self class lastSelection: clsName. |
457 self class lastSelection: clsName. |
458 self listOfResources contents: |
458 self listOfResources contents: |
459 ((((Smalltalk at: clsName) |
459 ((((Smalltalk at: clsName) |
460 class methodDictionary |
460 class methodDictionary |
590 ]. |
590 ]. |
591 foundClass := classes at: 1 ifAbsent: [nil] |
591 foundClass := classes at: 1 ifAbsent: [nil] |
592 ]. |
592 ]. |
593 foundClass notNil |
593 foundClass notNil |
594 ifTrue: |
594 ifTrue: |
595 [ |
595 [|item| |
596 self listOfClassesView |
596 item := self listOfClasses |
597 selectFromListOfNames: (foundClass |
597 detectChild:[:child :arg| child contents == arg ] |
598 withAllSuperclasses reverse collect: [:cls| cls name asString]); |
598 arguments:(foundClass withAllSuperclasses reverse). |
599 selectedNodeExpand: true |
599 item notNil ifTrue:[ |
|
600 self selectionOfClass value:item |
|
601 ] |
600 ]. |
602 ]. |
601 self valueOfClassName value: clsPattern |
603 self valueOfClassName value: clsPattern |
602 ]. |
604 ]. |
603 self valueOfClassName value: classSelection. |
605 self valueOfClassName value: classSelection. |
604 self classNameInputField entryCompletionBlock: |
606 self classNameInputField entryCompletionBlock: |