'From etoys4.0 of 9 October 2008 [latest update: #2275] on 8 September 2009 at 3:27:01 pm'!
"Change Set:		displayModeMenu-sw
Date:			8 September 2009
Author:			Scott Wallace

Add display-mode item to the world's halo menu."!


!PasteUpMorph methodsFor: 'menu & halo' stamp: 'sw 9/8/2009 15:17'!
addWorldHaloMenuItemsTo: aMenu hand: aHandMorph
	"Add the standard items to the aMenu which will serve as the World's halo menu."

	| wm |
	aMenu add: 'about this system...' translated target: SmalltalkImage current selector: #aboutThisSystem.
	aMenu addLine.
	aMenu add: 'redraw screen (r)' translated action: #restoreMorphicDisplay.
	aMenu add: 'preferences...' translated target: Preferences selector: #openPreferencesInspector.
	aMenu add: 'authoring tools...' translated target: (wm := TheWorldMenu new adaptToWorld: self) selector: #scriptingDo.
	aMenu add: 'display mode...' translated target: wm selector: #offerScalingMenu..
	
	aMenu addLine.
	self addWorldToggleItemsToHaloMenu: aMenu.
	Preferences eToyFriendly ifFalse:
		[Preferences sugarNavigator ifFalse:
			[self addExportMenuItems: aMenu hand: aHandMorph]].

	self addLockingItemsTo: aMenu.
	aMenu addLine.
	self addFillStyleMenuItems: aMenu hand: aHandMorph.
	self addPenMenuItems: aMenu hand: aHandMorph.
	self addPlayfieldMenuItems: aMenu hand: aHandMorph.

	(owner isKindOf: BOBTransformationMorph) ifTrue:  "wow, blast from the past"
		[self addScalingMenuItems: aMenu hand: aHandMorph].

	Preferences eToyFriendly
		ifFalse:
			[aMenu addLine.
			aMenu add: 'world menu...' translated target: self action: #putUpDesktopMenu:]! !


!TheWorldMenu methodsFor: 'menu' stamp: 'sw 9/8/2009 15:26'!
offerScalingMenu
	"Put up the sugar-navigator's scaling / display-mode ) menu."

	| aBar |
	aBar := SugarNavigatorBar current ifNil: [SugarNavigatorBar new].
	aBar chooseScreenSetting

	! !