'From etoys4.0 of 9 October 2008 [latest update: #2229] on 7 July 2009 at 4:57:10 pm'! "Change Set: toggleFullScreen-bf Date: 7 July 2009 Author: Bert Freudenberg Make the zoom button toggle full screen mode, hold down to show display options."! !ProjectNavigationMorph methodsFor: 'as yet unclassified' stamp: 'bf 7/7/2009 16:41'! showMenuFor: aSymbol event: evt (#(publishProject publishProjectSimple) includes: aSymbol) ifTrue: [ self doPublishButtonMenuEvent: evt. ^true "we did show the menu" ]. (#(findAProject findAProjectSimple chooseObject) includes: aSymbol) ifTrue: [ self doFindButtonMenuEvent: evt. ^true "we did show the menu" ]. (aSymbol == #stopSqueak) ifTrue: [ self doStopButtonMenuEvent: evt. ^true "we did show the menu" ]. (aSymbol == #zoom) ifTrue: [ self doZoomButtonMenuEvent: evt. ^true "we did show the menu" ]. ^false ! ! !SugarNavigatorBar methodsFor: 'buttons creation' stamp: 'bf 7/7/2009 16:55'! buttonZoom "Build and return a fresh Zoom button for me." ^ zoomButton := self makeButton: 'zoom' balloonText: 'Click here to toggle using the full screen.' translated for: #zoom ! ! !SugarNavigatorBar methodsFor: 'button actions' stamp: 'bf 7/7/2009 16:50'! doZoomButtonMenuEvent: evt self chooseScreenSetting ! ! !SugarNavigatorBar methodsFor: 'button actions' stamp: 'bf 7/7/2009 16:47'! zoom self inFullScreenMode ifTrue: [self fullScreenOff] ifFalse: [self fullScreenOn]! !