The Trunk: Morphic-ar.403.mcz

> Andreas Raab uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-ar.403.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-ar.403
> Author: ar
> Time: 28 March 2010, 3:06:47.714 pm
> UUID: 35cb8716-1e23-404b-9c5d-bad6f7df8550
> Ancestors: Morphic-klub.402
>
> Merging Morphic-klub.402:
>
> - added a search bar and a clock to the docking bar
> - (ar) label the search entry for noobs
> - (ar) first round of smart search for typing in globals or messages and fire browsers on those
>
> =============== Diff against Morphic-cmm.401 ===============
>
> Item was added:
> + ----- 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|
> +               "It's a global or a class"
> +               ^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:[
> +               "Should offer a list of selectors or so"
> +       ].
> +       "Not found"
> +       Beeper beepPrimitive.!
>
> Item was added:
> + ----- Method: SearchBarMorph>>initialize (in category 'initialize') -----
> + initialize
> +
> +       super initialize.
> +       text := Text new.
> +       backgroundColor := TranslucentColor gray alpha: 0.3.
> +       self width: 200.
> +       self crAction: (MessageSend receiver: self selector: #smartSearch).
> +       self setBalloonText: 'Searches for globals and methods'.!
>
> Item was added:
> + TextMorph subclass: #SearchBarMorph
> +       instanceVariableNames: ''
> +       classVariableNames: ''
> +       poolDictionaries: ''
> +       category: 'Morphic-Menus-DockingBar'!
>
> Item was added:
> + ----- Method: SearchBarMorph>>fillStyle (in category 'initialize') -----
> + fillStyle
> +
> +       ^backgroundColor!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') -----
> + clockOn: aDockingBar
> +
> +       aDockingBar
> +               addMorphBack: (
> +                       ClockMorph new
> +                               showSeconds: false;
> +                               yourself);
> +               addDefaultSpace!
>
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') -----
>  helpMenuOn: aDockingBar
>
>        aDockingBar addItem: [ :it |
>                it      contents: 'Help' translated;
>                        addSubMenu: [ :menu |  'Todo'.
>                                menu addItem:[:item|
>                                        item
>                                                contents: 'Online Resources' translated;
>                                                help: 'Online resources for Squeak' translated;
>                                                target: self;
> +                                               icon: MenuIcons smallHelpIcon;
>                                                selector: #showSqueakResources ].
>                                menu addItem:[:item|
>                                        item
>                                                contents: 'Keyboard Shortcuts' translated;
>                                                help: 'Keyboard bindings used in Squeak' translated;
>                                                target: Utilities;
>                                                selector: #openCommandKeyHelp ].
>                                menu addItem:[:item|
>                                        item
>                                                contents: 'Font Size Summary' translated;
>                                                help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated;
>                                                target: TextStyle;
>                                                selector: #fontSizeSummary ].
>                                menu addItem:[:item|
>                                        item
>                                                contents: 'Useful Expressions' translated;
>                                                help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated;
>                                                target: Utilities;
>                                                selector: #openStandardWorkspace ].
>                        ]].!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>searchBarOn: (in category 'right side') -----
> + searchBarOn: aDockingBar
> +
> +       aDockingBar
> +               addMorphBack: (StringMorph new contents: 'Search: ');
> +               addMorphBack: SearchBarMorph new;
> +               addDefaultSpace!
>
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
>  menusOn: aDockingBar
>
>        self
>                squeakMenuOn: aDockingBar;
>                projectsMenuOn: aDockingBar;
>                toolsMenuOn: aDockingBar;
>                extrasMenuOn: aDockingBar;
>                windowsMenuOn: aDockingBar;
> +               helpMenuOn: aDockingBar.
> +       aDockingBar addSpacer.
> +       self
> +               searchBarOn: aDockingBar;
> +               clockOn: aDockingBar!
> -               helpMenuOn: aDockingBar!
>
>
>