[etoys-dev] Etoys: MorphicExtras-Richo.3.mcz

[commits at source.squeak.org]

A new version of MorphicExtras was added to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-Richo.3.mcz

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

Name: MorphicExtras-Richo.3
Author: Richo
Time: 22 May 2010, 4:23:48 pm
UUID: 11963ef7-8c36-aa4e-ab9c-ce1111a5d44a
Ancestors: MorphicExtras-bf.2

* Fixed TheWorldMenu to avoid sending #translated twice for all its items.

=============== Diff against MorphicExtras-bf.2 ===============

Item was changed:
  ----- Method: TheWorldMenu>>formulateFlapsMenu: (in category '*MorphicExtras-windows & flaps menu') -----
  formulateFlapsMenu: aMenu
  	"Fill aMenu with appropriate content"
  
  	aMenu addTitle: 'flaps' translated.
  	aMenu addStayUpItem.
  	Preferences classicNavigatorEnabled ifTrue:
  		[aMenu
  			addUpdating: #navigatorShowingString
  			enablementSelector: #enableProjectNavigator
  			target: Preferences
  			selector: #togglePreference: 
  			argumentList: #(showProjectNavigator).
  		aMenu balloonTextForLastItem: (Preferences preferenceAt: #showProjectNavigator) helpString translated].
  
  	Flaps sharedFlapsAllowed
  		ifTrue:
  			[self fillIn: aMenu from:
  				{{#suppressFlapsString.
  					{CurrentProjectRefactoring. #currentToggleFlapsSuppressed}.
+ 				'Whether prevailing flaps should be shown in the project right now or not.' translatedNoop}}.
- 				'Whether prevailing flaps should be shown in the project right now or not.' translated}}.
  
  			aMenu addUpdating: #automaticFlapLayoutString  target: Preferences selector: #togglePreference: argumentList: #(automaticFlapLayout).
  			aMenu balloonTextForLastItem: (Preferences preferenceAt: #automaticFlapLayout) helpString translated.
  
  			aMenu addLine.
  			Flaps addIndividualGlobalFlapItemsTo: aMenu].
  
       self fillIn: aMenu from: {
  			nil.
  
+                {'make a new flap' translatedNoop.
-                {'make a new flap' translated.
  			{Flaps. #addLocalFlap}.
+ 			'Create a new flap.  You can later make it into a shared flap is you wish.' translatedNoop}.
- 			'Create a new flap.  You can later make it into a shared flap is you wish.' translated}.
  
  			nil.}.
  	Flaps sharedFlapsAllowed
  		ifTrue:
  			[aMenu addWithLabel: 'put shared flaps on bottom' translated enablementSelector: #showSharedFlaps
  				target: Flaps selector: #sharedFlapsAlongBottom argumentList: #().
  			aMenu balloonTextForLastItem: 'Group all the standard shared flaps along the bottom edge of the screen' translated.
  
  			self fillIn: aMenu from: {
+ 				{'destroy all shared flaps' translatedNoop.
- 				{'destroy all shared flaps' translated.
  				{Flaps. #disableGlobalFlaps}.
+ 				'Destroy all the shared flaps and disable their use in all projects.' translatedNoop}.
- 				'Destroy all the shared flaps and disable their use in all projects.' translated}.
  
+ 				{'destroy flap...' translatedNoop.
- 				{'destroy flap...' translated.
  				{Flaps. #destroyFlapDotDotDot}.
+ 				'Choose a flap to destroy, from a pop-up list that will be presented' translatedNoop}}]
- 				'Choose a flap to destroy, from a pop-up list that will be presented' translated}}]
  		ifFalse:
  			[aMenu add: 'install olpc etoy flaps' translated target: Flaps action: #enableOLPCEToyFlaps.
  			aMenu balloonTextForLastItem: 'Put up the default etoy flaps: a custom Supplies flap and the Navigator flap' translated.
  
  aMenu add: 'install developers'' flaps' translated target: Flaps action: #enableDeveloperFlaps.
  			aMenu balloonTextForLastItem: 'Create the default set of shared flaps used by successive versions of the Squeak development platform' translated.
  			aMenu add: 'install classic etoy flaps' translated target: Flaps action: #enableClassicEToyFlaps.
  			aMenu addLine].
  
  	self fillIn: aMenu from: {
  			nil.
+ 			{'about flaps...' translatedNoop.
- 			{'about flaps...' translated.
  			{Flaps . #explainFlaps}.
+ 			'Gives a window full of details about how to use flaps.' translatedNoop}}!
- 			'Gives a window full of details about how to use flaps.' translated}}!

Item was changed:
- SystemOrganization addCategory: #'MorphicExtras-Demo'!
- SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'!
  SystemOrganization addCategory: #'MorphicExtras-AdditionalMorphs'!
+ SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'!
+ SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'!
- SystemOrganization addCategory: #'MorphicExtras-Widgets'!
  SystemOrganization addCategory: #'MorphicExtras-Books'!
+ SystemOrganization addCategory: #'MorphicExtras-Demo'!
- SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'!
- SystemOrganization addCategory: #'MorphicExtras-Support'!
- SystemOrganization addCategory: #'MorphicExtras-Undo'!
- SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'!
- SystemOrganization addCategory: #'MorphicExtras-PartsBin'!
- SystemOrganization addCategory: #'MorphicExtras-SoundInterface'!
  SystemOrganization addCategory: #'MorphicExtras-EToy-Download'!
- SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'!
  SystemOrganization addCategory: #'MorphicExtras-Flaps'!
- SystemOrganization addCategory: #'MorphicExtras-Navigators'!
  SystemOrganization addCategory: #'MorphicExtras-GeeMail'!
- SystemOrganization addCategory: #'MorphicExtras-Palettes'!
  SystemOrganization addCategory: #'MorphicExtras-Leds'!
+ SystemOrganization addCategory: #'MorphicExtras-Navigators'!
+ SystemOrganization addCategory: #'MorphicExtras-Obsolete'!
+ SystemOrganization addCategory: #'MorphicExtras-Palettes'!
+ SystemOrganization addCategory: #'MorphicExtras-PartsBin'!
+ SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'!
+ SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'!
+ SystemOrganization addCategory: #'MorphicExtras-SoundInterface'!
  SystemOrganization addCategory: #'MorphicExtras-SqueakPage'!
+ SystemOrganization addCategory: #'MorphicExtras-Support'!
  SystemOrganization addCategory: #'MorphicExtras-Text Support'!
+ SystemOrganization addCategory: #'MorphicExtras-Undo'!
+ SystemOrganization addCategory: #'MorphicExtras-Widgets'!
- SystemOrganization addCategory: #'MorphicExtras-Obsolete'!