[squeak-dev] The Trunk: Morphic-ar.403.mcz
Chris Muller
asqueaker at gmail.com
Mon Mar 29 19:15:26 UTC 2010
This is great, thanks! The Docking Bar is now worth the real-estate
for me.. Thanks also for fixing the ClockMorph (from showing
milliseconds).
On Sun, Mar 28, 2010 at 5:07 PM, <commits at source.squeak.org> wrote:
> 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!
>
>
>
More information about the Squeak-dev
mailing list
|