[squeak-dev] The Trunk: MorphicExtras-mt.166.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 27 08:58:53 UTC 2015


Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.166.mcz

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

Name: MorphicExtras-mt.166
Author: mt
Time: 27 August 2015, 10:58:40.044 am
UUID: 6b748c1a-044e-204b-825d-975865233017
Ancestors: MorphicExtras-ul.165

Some adjustments for cleaned-up preferences interface.

=============== Diff against MorphicExtras-ul.165 ===============

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: #toggle: 
- 			selector: #togglePreference: 
  			argumentList: #(showProjectNavigator).
  		aMenu balloonTextForLastItem: (Preferences preferenceAt: #showProjectNavigator) helpString translated].
  
  	Flaps sharedFlapsAllowed
  		ifTrue:
  			[self fillIn: aMenu from:
  				{{#suppressFlapsString.
  					{Project current. #toggleFlapsSuppressed}.
  				'Whether prevailing flaps should be shown in the project right now or not.'}}.
  
+ 			aMenu addUpdating: #automaticFlapLayoutString  target: Preferences selector: #toggle: argumentList: #(automaticFlapLayout).
- 			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'.
  			{Flaps. #addLocalFlap}.
  			'Create a new flap.  You can later make it into a shared flap is you wish.'}.
  
  			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'.
  				{Flaps. #disableGlobalFlaps}.
  				'Destroy all the shared flaps and disable their use in all projects.'}}]
  		ifFalse:
  			[aMenu add: 'install default shared flaps' translated target: Flaps action: #enableGlobalFlaps.
  			aMenu balloonTextForLastItem: 'Create the default set of shared flaps' translated.
  			aMenu add: 'install etoy flaps' translated target: Flaps action: #enableEToyFlaps.
  			aMenu balloonTextForLastItem: 'Put up the default etoy flaps: a custom Suplies flap and the Navigator flap' translated.
  			aMenu addLine].
  
  	self fillIn: aMenu from: {
  			nil.
  			{'about flaps...'.
  			{Flaps . #explainFlaps}.
  			'Gives a window full of details about how to use flaps.'}}!



More information about the Squeak-dev mailing list