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