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.'}}!