Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.267.mcz==================== Summary ====================
Name: Tools-eem.267
Author: eem
Time: 7 September 2010, 12:19:53.465 pm
UUID: 2af3671c-ded6-425f-acb1-e31a545ad842
Ancestors: Tools-eem.259, Tools-ar.266
Nuke Browser find method wildcard.... It is noise given the
spiffy new find method... menu.
=============== Diff against Tools-ar.266 ===============
Item was changed:
----- Method: Browser>>classListMenu:shifted: (in category 'class functions') -----
classListMenu: aMenu shifted: shifted
"Set up the menu to apply to the receiver's class list, honoring the #shifted boolean"
(self menuHook: aMenu named: #classListMenu shifted: shifted) ifTrue:[^aMenu].
shifted ifTrue:[^ self shiftedClassListMenu: aMenu].
aMenu addList: #(
-
('browse full (b)' browseMethodFull)
('browse hierarchy (h)' spawnHierarchy)
('browse protocol (p)' browseFullProtocol)
-
('printOut' printOutClass)
('fileOut' fileOutClass)
-
('show hierarchy' hierarchy)
('show definition' editClass)
('show comment' editComment)
-
('inst var refs...' browseInstVarRefs)
('inst var defs...' browseInstVarDefs)
-
('class var refs...' browseClassVarRefs)
('class vars' browseClassVariables)
('class refs (N)' browseClassRefs)
-
('rename class ...' renameClass)
('copy class' copyClass)
('remove class (x)' removeClass)
-
('find method...' findMethod)
- ('find method wildcard...' findMethodWithWildcard)
-
('more...' offerShiftedClassListMenu)).
^ aMenu
!
Item was removed:
- ----- Method: Browser>>findMethodWithWildcard (in category 'class functions') -----
- findMethodWithWildcard
- "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 := UIManager default request: 'Enter partial method name:'.
- (reply isNil or: [reply isEmpty])
- ifTrue: [^self].
- (reply includes: $*)
- ifFalse: [reply := '*', reply, '*'].
- selectors := selectors select: [:each | reply match: each].
- selectors isEmpty ifTrue: [self inform: aClass name, ' has no matching methods.'. ^ self].
- reply := selectors size = 1
- ifTrue: [selectors first]
- ifFalse: [
- UIManager default
- chooseFrom: selectors
- values: selectors].
- reply == nil ifTrue: [^ self].
-
- cat := aClass whichCategoryIncludesSelector: reply.
- messageCatIndex := self messageCategoryList indexOf: cat.
- self messageCategoryListIndex: messageCatIndex.
- messageIndex := (self messageList indexOf: reply).
- self messageListIndex: messageIndex!
Locked
