'From Pharo-1.1-11367-Beta of ''19 October 2009'' [Latest update: #11367] on 21 June 2010 at 2:00:35 pm'!

!PasteUpMorph methodsFor: '*morphic-windows' stamp: 'GuillermoPolito 6/21/2010 13:59'!
closeAllWindows
	(self confirm: 'Do you really want to close all windows?' translated)
		ifFalse: [^ self].

	(self  windowsSatisfying: [:w | true ]) do: [:w | w privateDelete].! !


!WorldState class methodsFor: 'world menu items' stamp: 'GuillermoPolito 6/21/2010 13:41'!
windowsOn: aBuilder 
	<worldMenu>
	(aBuilder item: #Windows)
		order: 2.0;
		icon: MenuIcons smallWindowIcon;
		with: [
			(aBuilder item: # 'Collapse all windows') 
				action: [World collapseAll];
				help: 'Reduce all open windows to collapsed forms that only show titles' translated.
			(aBuilder item: # 'Expand all windows') 
				action: [World expandAll];
				help: 'Expand all collapsed windows back to their expanded forms' translated.
			(aBuilder item: # 'Close top window (w)') 
				action: [SystemWindow closeTopWindow];
				help: 'Close the topmost window if possible' translated.
			(aBuilder item: # 'Send top window to back (\)') 
				action: [SystemWindow sendTopWindowToBack];
				help: 'Make the topmost window become the backmost one, and activate the window just beneath it.' translated.
			(aBuilder item: # 'Move windows onscreen') 
				action: [World bringWindowsFullOnscreen];
				help: 'Make all windows fully visible on the screen' translated.
			(aBuilder item: # 'Delete unchanged windows') 
				action: [World closeUnchangedWindows];
				help: 'Deletes all windows that do not have unsaved text edits.' translated.
			(aBuilder item: # 'Close all windows') 
				action: [World closeAllWindows];
				help: 'Closes all windows.' translated].! !