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!
Locked
