[Pkg] The Trunk: Morphic-fbs.702.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 7 19:52:14 UTC 2013

Frank Shearar uploaded a new version of Morphic to project The Trunk:

==================== 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.'.
  		newContents: newContents; 
  		selectFrom: input size+1 to: newContents size.
  	evt hand newKeyboardFocus: self!

Item was changed:
  ----- Method: TextEditor>>browseClassFromIt (in category 'menu messages') -----
  	"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!

More information about the Packages mailing list