[Pkg] The Trunk: Morphic-dtl.248.mcz

[commits at source.squeak.org]

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.248.mcz

==================== Summary ====================

Name: Morphic-dtl.248
Author: dtl
Time: 23 November 2009, 5:09:04 am
UUID: 6a48c0f2-b8c9-462b-b2ee-d01a1a86365c
Ancestors: Morphic-dtl.247

Eliminate class CurrentProjectRefactoring.

=============== Diff against Morphic-dtl.247 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBarOld>>previousProject (in category 'menu actions') -----
  previousProject
  
  	Project returnToPreviousProject.
+ 	Project current exit.	"go to parent if no previous"
- 	CurrentProjectRefactoring exitCurrentProject.	"go to parent if no previous"
  	Beeper beep.!

Item was changed:
  ----- Method: TheWorldMainDockingBarOld>>suppressFlapsString (in category 'menu actions') -----
  suppressFlapsString
  	"Answer the wording of the suppress-flaps item"
+ 	^ Project current suppressFlapsString!
- 	^ CurrentProjectRefactoring suppressFlapsString!

Item was changed:
  ----- Method: TheWorldMainDockingBarOld>>configurationMenu (in category 'construction - submenus') -----
  configurationMenu
  	| menu |
  	menu := MenuMorph new defaultTarget: self.
  	""
  	self createMenuItem: {'set language...'. 'Choose the language in which Squeak should be displayed'. MenuIcons smallLanguageIcon} on: menu.
  	menu addLine.
  	self createMenuItem: {'update from server'. 'Update from server (Internet access is required)'. MenuIcons smallUpdateIcon} on: menu.
  	""
  	menu addLine.
  	menu addUpdating: #showWorldMainDockingBarString action: #toggleShowWorldMainDockingBar.
  	Flaps sharedFlapsAllowed
  		ifTrue: [menu
  				addUpdating: #suppressFlapsString
+ 				target: Project current
+ 				action: #toggleFlapsSuppressed].
- 				target: CurrentProjectRefactoring
- 				action: #currentToggleFlapsSuppressed].
  	menu addLine.
  	self createMenuItem: {'set world color...'. 'Choose a color to use as world background.'} on: menu.
  	ScreenController lastScreenModeSelected
  		ifTrue: [self createMenuItem: {'exit from full screen'. 'Exit from full screen and enclose Squeak in a window'. MenuIcons smallFullScreenIcon} on: menu]
  		ifFalse: [self createMenuItem: {'switch to full screen'. 'Switch to full screen giving the maximun display space to Squeak'. MenuIcons smallFullScreenIcon} on: menu].
  	""
  	self createMenuItem: {'change sound volume'. 'Change sound volume'. MenuIcons smallVolumeIcon} on: menu.
  	menu addLine.
  	Preferences noviceMode
  		ifFalse: [""
  			Preferences useUndo
  				ifTrue: [""
  					self createMenuItem: {'purge undo records'. 'Save space by removing all the undo information.'} on: menu.
  					menu addLine].
  			self createMenuItem: {'preferences..'. 'Opens a "Preferences Panel" which allows you to alter many settings'. MenuIcons smallConfigurationIcon} on: menu.
  			self createMenuItem: {'appearance...'. nil. MenuIcons smallConfigurationIcon} on: menu].
  	self createMenuItem: {'set color theme...'. 'Choose the color theme in which Squeak should be displayed'} on: menu.
  	menu addLine.
  	Preferences noviceMode
  		ifTrue: [self createMenuItem: {'switch to expert mode'. 'Switch to expert mode. CAUTION: The expert mode is powerful as well as dangerous'. MenuIcons smallExpertIcon} on: menu]
  		ifFalse: [self createMenuItem: {'switch to novice mode'. 'Come back to novice mode'. MenuIcons smallExpertIcon} on: menu].
  	""
  	^ menu!