On Tue, 21 Jun 2011, commits@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.!
Ok, I'll remove the menu item (and steal that cool icon too).
On Tue, Jun 21, 2011 at 5:50 PM, Levente Uzonyi leves@elte.hu wrote:
On Tue, 21 Jun 2011, commits@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.!
squeak-dev@lists.squeakfoundation.org