The Trunk: Morphic-ar.405.mcz

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

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

Name: Morphic-ar.405
Author: ar
Time: 29 March 2010, 9:26:50.478 pm
UUID: a7b0717c-c4d5-544e-b5cc-ba5abb09d577
Ancestors: Morphic-ar.404

Fix smartSearch in the search bar. When having an exact hit on a class name it would browse the metaclass instead of the class itself.

=============== Diff against Morphic-ar.404 ===============

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| | global |
- (Smalltalk bindingOf: input) ifNotNil:[:assoc|
  "It's a global or a class"
+ global := assoc value.
+ ^ToolSet browse: (global isBehavior ifTrue:[global] ifFalse:[global class]) selector: nil.
- ^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
  ].
  "Not found"
  Beeper beepPrimitive.!