The Inbox: Morphic-rhi.439.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/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 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.!

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!