[squeak-dev] The Trunk: Morphic-rhi.439.mcz
Levente Uzonyi
leves at elte.hu
Tue Jun 21 22:50:17 UTC 2011
On Tue, 21 Jun 2011, commits at 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.!
>
>
>
More information about the Squeak-dev
mailing list
|