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!
packages@lists.squeakfoundation.org