I was wondering whether Preferences are the best way to control these
or whether the user could simply remove the ones they don't want by
blue-clicking and then clicking the close halo (X)...

I know when the DockingBar is regenerated they would have to re-remove
them, but still...  we do have a live, direct-manuipulation system,
sometimes we should be able to fall back on it..?

On Wed, Jun 15, 2016 at 1:29 AM,  <commits at source.squeak.org> wrote:
> Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-mt.1179.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-mt.1179
> Author: mt
> Time: 15 June 2016, 8:28:59.901896 am
> UUID: 798fffba-733f-3444-840e-84baabd04da4
> Ancestors: Morphic-mt.1178
>
> Add the world's Do-menu to the world main docking bar. Can be hidden via preferences.
>
> =============== Diff against Morphic-mt.1178 ===============
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar (in category 'preferences') -----
> + showDoMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Do'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Do'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showDoMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showDoMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showDoMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>doMenuOn: (in category 'construction') -----
> + doMenuOn: aDockingBar
> +
> +       aDockingBar addItem: [ :item |
> +               item
> +                       contents: 'Do' translated;
> +                       subMenuUpdater: self
> +                       selector: #listCommonRequestsOn: ]!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in category 'submenu - do') -----
> + listCommonRequestsOn: aMenu
> +
> +       | strings |
> +       strings := Utilities commonRequestStrings contents.
> +
> +       strings asString linesDo: [:aString |
> +               aString = '-'
> +                       ifTrue: [aMenu addLine]
> +                       ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]].
> +
> +       aMenu addLine.
> +       aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings.!
>
> Item was changed:
>   ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
>   menusOn: aDockingBar
>
>         self class showMainMenuInWorldMainDockingBar ifTrue: [
>                 self squeakMenuOn: aDockingBar].
>
>         self class showProjectsMenuInWorldMainDockingBar ifTrue: [
>                 self projectsMenuOn: aDockingBar].
>
>         self class showToolsMenuInWorldMainDockingBar ifTrue: [
>                 self toolsMenuOn: aDockingBar].
>
>         self class showAppsMenuInWorldMainDockingBar ifTrue: [
>                 self appsMenuOn: aDockingBar].
>
> +       self class showDoMenuInWorldMainDockingBar ifTrue: [
> +               self doMenuOn: aDockingBar].
> +
>         self class showExtrasMenuInWorldMainDockingBar ifTrue: [
>                 self extrasMenuOn: aDockingBar].
>
>         self class showWindowsMenuInWorldMainDockingBar ifTrue: [
>                 self windowsMenuOn: aDockingBar].
>
>         self class showHelpMenuInWorldMainDockingBar ifTrue: [
>                 self helpMenuOn: aDockingBar].!
>
> Item was changed:
>   (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling that occurs in the same control flow after loading this code."
>   HandMorph allInstancesDo: [:ea | ea initForEvents].
>
>   "Deploy mouse-wheel event handling to existing scrollpanes and hands."
>   Project allMorphicProjects do: [:morphicProject |
>         morphicProject world handsDo: [:hand |
>                 hand addKeyboardCaptureFilter: hand]].
>   ScrollPane allSubInstancesDo: [:ea |
> +       ea addKeyboardCaptureFilter: ea].
> +
> + "Add Do-menu."
> + TheWorldMainDockingBar updateInstances.'!
> -       ea addKeyboardCaptureFilter: ea].'!
>
>