On Sat, 3 Apr 2010, commits at source.squeak.org wrote:

> Chris Muller uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-cmm.407.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-cmm.407
> Author: cmm
> Time: 3 April 2010, 6:14:18.484 pm
> UUID: ee3a09dc-6bbc-48f9-b99c-2a05d2c5e056
> Ancestors: Morphic-ul.406
>
> The Searchbar now employs a more subdued "Echo back" (http://c2.com/ppr/checks.html#4) rather than beeping at the user.

The only problem is that the Search Bar now loses the keyboard focus if no 
match is found, which is pretty annoying.


Levente

>
> =============== Diff against Morphic-ul.406 ===============
>
> Item was changed:
>  ----- Method: SearchBarMorph>>smartSearch (in category 'search') -----
>  smartSearch
>  	"Take the user input and perform an appropriate search"
> + 	| input newContents |
> - 	| input |
>  	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:[
>  		(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!
> - 	"Not found"
> - 	Beeper beepPrimitive.!
>
>
>