[Pkg] The Trunk: Morphic-ar.403.mcz

[commits at source.squeak.org]

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!