'From Squeak3.4alpha of ''11 November 2002'' [latest update: #5125] on 4 December 2002 at 6:14:41 pm'! "Change Set: findMethFix-je Date: 4 December 2002 Author: Joern Eyrich avoid walkback when invoking 'find method...' on a class that has none"! !Browser methodsFor: 'class functions' stamp: 'je 12/4/2002 18:10'! findMethod "Pop up a list of the current class's methods, and select the one chosen by the user" | aClass selectors reply cat messageCatIndex messageIndex | self classListIndex = 0 ifTrue: [^ self]. self okToChange ifFalse: [^ self]. aClass _ self selectedClassOrMetaClass. selectors _ aClass selectors asSortedArray. selectors isEmpty ifTrue: [self inform: aClass name, ' has no methods.'. ^ self]. reply _ (SelectionMenu labelList: selectors selections: selectors) startUp. reply == nil ifTrue: [^ self]. cat _ aClass whichCategoryIncludesSelector: reply. messageCatIndex _ self messageCategoryList indexOf: cat. self messageCategoryListIndex: messageCatIndex. messageIndex _ (self messageList indexOf: reply). self messageListIndex: messageIndex! !