Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.549.mcz
==================== Summary ====================
Name: Morphic-cmm.549 Author: cmm Time: 21 June 2011, 4:37:36.774 pm UUID: 7a4d2568-d94b-41ea-ba5d-36dd5eba9557 Ancestors: Morphic-cmm.548, Morphic-rhi.439
Integrated Morphic-rhi.439, full-screen toggle button on the tool-bar.
=============== Diff against Morphic-cmm.548 ===============
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; appsMenuOn: 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