[Pkg] The Trunk: Morphic-cmm.407.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Apr 3 23:16:29 UTC 2010
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.
=============== 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.!
More information about the Packages
mailing list