The Trunk: Tools-cmm.211.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.211.mcz

==================== Summary ====================

Name: Tools-cmm.211
Author: cmm
Time: 15 March 2010, 7:00:07.585 pm
UUID: 334c161d-c0de-4a09-8f96-c314747e9238
Ancestors: Tools-nice.210

Integrated new ListChooser from Michael Davies.

=============== Diff against Tools-nice.210 ===============

Item was changed:
  ----- Method: Browser>>findMethod (in category 'class functions') -----
  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 := UIManager default
+ chooseFrom: selectors
+ values: selectors
- chooseFrom: (Array with: 'Enter Wildcard'), selectors
- values: (Array with: 'Enter Wildcard'), selectors
  lines: #(1).
  reply == nil ifTrue: [^ self].
  reply = 'Enter Wildcard'
  ifTrue: [
  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!