The Trunk: Morphic-fbs.702.mcz

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.702.mcz

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

Name: Morphic-fbs.702
Author: fbs
Time: 7 December 2013, 7:48:47.11 pm
UUID: 8e43ff45-8dd5-eb4b-a5d2-164bf53afe71
Ancestors: Morphic-fbs.701

Update to the new find-a-class-or-trait-from-a-pattern API.

=============== Diff against Morphic-fbs.701 ===============

Item was changed:
  ----- Method: SearchBarMorph>>smartSearch: (in category 'search') -----
  smartSearch: evt
  "Take the user input and perform an appropriate search"
  | input newContents |
  input := self contents asString ifEmpty:[^self].
  (Smalltalk bindingOf: input) ifNotNil:[:assoc| | global |
  "It's a global or a class"
  global := assoc value.
  ^ToolSet browse: (global isBehavior ifTrue:[global] ifFalse:[global class]) selector: nil.
  ].
  (SystemNavigation new allImplementorsOf: input asSymbol) ifNotEmpty:[:list|
  ^SystemNavigation new
  browseMessageList: list
  name: 'Implementors of ' , input
  ].
  input first isUppercase ifTrue:[
+ (UIManager default classFromPattern: input withCaption: '') ifNotNil:[:aClass|
- (Utilities classFromPattern: input withCaption: '') ifNotNil:[:aClass|
  ^ToolSet browse: aClass selector: nil.
  ].
  ] ifFalse:[
  ^ToolSet default browseMessageNames: input
  ].
  newContents := input, ' -- not found.'.
  self
  newContents: newContents;
  selectFrom: input size+1 to: newContents size.
  evt hand newKeyboardFocus: self!

Item was changed:
  ----- Method: TextEditor>>browseClassFromIt (in category 'menu messages') -----
  browseClassFromIt
  "Launch a hierarchy browser for the class indicated by the current selection.  If multiple classes matching the selection exist, let the user choose among them."
  | aClass |
  self lineSelectAndEmptyCheck: [ ^ self ].
+ aClass := UIManager default
- aClass := Utilities
  classFromPattern: self selection string withBlanksTrimmed
  withCaption: 'choose a class to browse...'.
  aClass ifNil: [ ^ morph flash ].
  SystemNavigation default
  spawnHierarchyForClass: aClass
  selector: nil!