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 at elte.hu> wrote:
> 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.!
>>
>>
>>
>
>