[squeak-dev] The Trunk: Morphic-cmm.549.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 21 21:38:38 UTC 2011
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.!
More information about the Squeak-dev
mailing list
|