The Trunk: Morphic-ar.404.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.404.mcz

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

Name: Morphic-ar.404
Author: ar
Time: 28 March 2010, 3:13:44.42 pm
UUID: 5ef067a6-55f8-4f4e-8aa1-f5d73a6430fa
Ancestors: Morphic-ar.403

MessageNames to the rescue!

=============== Diff against Morphic-ar.403 ===============

Item was changed:
  ----- Method: SearchBarMorph>>smartSearch (in category 'search') -----
  smartSearch
  "Take the user input and perform an appropriate search"
  | input |
  input := self contents asString ifEmpty:[^self].
  (Smalltalk bindingOf: input) ifNotNil:[:assoc|
  "It's a global or a class"
  ^ToolSet browse: assoc value class selector: nil.
  ].
  (SystemNavigation new allImplementorsOf: input asSymbol) ifNotEmpty:[:list|
  ^SystemNavigation new
  browseMessageList: list
  name: 'Implementors of ' , input
  ].
  input first isUppercase ifTrue:[
  (Utilities classFromPattern: input withCaption: '') ifNotNil:[:aClass|
  ^ToolSet browse: aClass selector: nil.
  ].
  ] ifFalse:[
+ ^ToolSet default browseMessageNames: input
- "Should offer a list of selectors or so"
  ].
  "Not found"
  Beeper beepPrimitive.!