On Tue, 21 Jun 2011, commits at source.squeak.org wrote:

> Chris Muller uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-rhi.439.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-rhi.439
> Author: rhi
> Time: 6 June 2010, 12:52:31.213 pm
> UUID: 2b5a8d5e-913d-4eee-a1ee-0db20ced46d2
> Ancestors: Morphic-cmm.438
>
> Adds toggle-full-screen button to tool bar...

We have to clean up the docking bar a bit, because now there are two ways 
to toggle fullscreen mode.


Levente

>
> =============== Diff against Morphic-cmm.438 ===============
>
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') -----
>  fillDockingBar: aDockingBar
>  	"Private - fill the given docking bar"
>
>  	aDockingBar addSpace: 6.
>  	self menusOn: aDockingBar.
> + 	aDockingBar addSpacer.
> + 	self rightSideOn: aDockingBar.
>  	aDockingBar
>  		setProperty: #mainDockingBarTimeStamp
> + 		toValue: self class timeStamp.!
> - 		toValue: self class timeStamp!
>
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
> + menusOn: aDockingBar
> - menusOn: aDockingBar
>
> + 	self
> - 	self
>  		squeakMenuOn: aDockingBar;
>  		projectsMenuOn: aDockingBar;
>  		toolsMenuOn: aDockingBar;
>  		extrasMenuOn: aDockingBar;
>  		windowsMenuOn: aDockingBar;
> + 		helpMenuOn: aDockingBar.!
> - 		helpMenuOn: aDockingBar.
> - 	aDockingBar addSpacer.
> - 	self
> - 		searchBarOn: aDockingBar;
> - 		clockOn: aDockingBar!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>rightSideOn: (in category 'construction') -----
> + rightSideOn: aDockingBar
> +
> + 	self
> + 		searchBarOn: aDockingBar;
> + 		clockOn: aDockingBar;
> + 		toggleFullScreenOn: aDockingBar.!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') -----
> + toggleFullScreenOn: aDockingBar
> +
> + 	| toggleMorph toggleColor toggleColorOver |
> + 	toggleColor := Color "transparent" lightOrange.
> + 	toggleColorOver := Color orange.
> + 	(toggleMorph := Morph new)
> + 		extent: 18 @ 18; flag: #rhi; "*** 18 = MAGIC NUMBER? ***"
> + 		borderWidth: 0;
> + 		color: toggleColor;
> + 		setBalloonText: 'toggle full screen mode';
> + 		on: #mouseDown send: #value to: [Project current toggleFullScreen];
> + 		on: #mouseEnter send: #value to: [toggleMorph color: toggleColorOver];
> + 		on: #mouseLeave send: #value to: [toggleMorph color: toggleColor].
> + 	aDockingBar addMorphBack: toggleMorph.!
>
>
>