The Trunk: Morphic-topa.750.mcz

> Tobias Pape uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-topa.750.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-topa.750
> Author: topa
> Time: 17 October 2014, 7:56:41.314 pm
> UUID: 4b0f4bf4-aa80-4f90-8cf7-255aa5107744
> Ancestors: Morphic-topa.749
>
> Enhancement:
>  Allow each menu of the main docking bar to be hidden via a preference.
>
> =============== Diff against Morphic-topa.749 ===============
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>disableMenuPreference: (in category 'preferences') -----
> + disableMenuPreference: aPreferenceSymbol
> +
> +       self setMenuPreference: aPreferenceSymbol to: false.!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>enableMenuPreference: (in category 'preferences') -----
> + enableMenuPreference: aPreferenceSymbol
> +
> +       self setMenuPreference: aPreferenceSymbol to: true.!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>getMenuPreference: (in category 'preferences') -----
> + getMenuPreference: aPreferenceSymbol
> +
> +       ^ self getMenuPreference: aPreferenceSymbol ifAbsent: [true]!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>getMenuPreference:ifAbsent: (in category 'preferences') -----
> + getMenuPreference: aPreferenceSymbol ifAbsent: aBlock
> +
> +       | project |
> +       ^ (project := Project current) isMorphic
> +               ifTrue: [project projectPreferenceFlagDictionary at: aPreferenceSymbol ifAbsent: aBlock]
> +               ifFalse: aBlock
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>setMenuPreference:to: (in category 'preferences') -----
> + setMenuPreference: aPreferenceSymbol to: aBoolean
> +       | project |
> +       (project := Project current) isMorphic ifTrue: [
> +               project projectPreferenceFlagDictionary at: aPreferenceSymbol  put: aBoolean.
> +               (aBoolean ~= (Preferences perform: aPreferenceSymbol))
> +                       ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBoolean]].
> +       self updateInstances.!
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showAppsMenuInWorldMainDockingBar (in category 'preferences') -----
> + showAppsMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Apps'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Apps'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showAppsMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showAppsMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showAppsMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showAppsMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showExtrasMenuInWorldMainDockingBar (in category 'preferences') -----
> + showExtrasMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Extras'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Extras'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showExtrasMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showExtrasMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showExtrasMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showExtrasMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showHelpMenuInWorldMainDockingBar (in category 'preferences') -----
> + showHelpMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Help'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Help'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showHelpMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showHelpMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showHelpMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showHelpMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showMainMenuInWorldMainDockingBar (in category 'preferences') -----
> + showMainMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Main'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Main'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showMainMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showMainMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showMainMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showMainMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showProjectsMenuInWorldMainDockingBar (in category 'preferences') -----
> + showProjectsMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Projects'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Projects'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showProjectsMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showProjectsMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showProjectsMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showProjectsMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showToolsMenuInWorldMainDockingBar (in category 'preferences') -----
> + showToolsMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Tools'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Tools'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showToolsMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showToolsMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showToolsMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showToolsMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showWindowsMenuInWorldMainDockingBar (in category 'preferences') -----
> + showWindowsMenuInWorldMainDockingBar
> +
> +       <preference: 'Show ''Windows'' menu in world main docking bar'
> +               category: 'docking bars'
> +               description: 'Whether world''s main docking bar should show the ''Windows'' menu.'
> +               type: #Boolean>
> +       ^ self getMenuPreference: #showWindowsMenuInWorldMainDockingBar ifAbsent: [true]
> + !
>
> Item was added:
> + ----- Method: TheWorldMainDockingBar class>>showWindowsMenuInWorldMainDockingBar: (in category 'preferences') -----
> + showWindowsMenuInWorldMainDockingBar: aBoolean
> +
> +       self
> +               setMenuPreference: #showWindowsMenuInWorldMainDockingBar
> +               to: aBoolean.
> + !
>
> 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 showExtrasMenuInWorldMainDockingBar ifTrue: [
> +               self extrasMenuOn: aDockingBar].
> +
> +       self class showWindowsMenuInWorldMainDockingBar ifTrue: [
> +               self windowsMenuOn: aDockingBar].
> +
> +       self class showHelpMenuInWorldMainDockingBar ifTrue: [
> +               self helpMenuOn: aDockingBar].!
> -       self
> -               squeakMenuOn: aDockingBar;
> -               projectsMenuOn: aDockingBar;
> -               toolsMenuOn: aDockingBar;
> -               appsMenuOn: aDockingBar;
> -               extrasMenuOn: aDockingBar;
> -               windowsMenuOn: aDockingBar;
> -               helpMenuOn: aDockingBar!
>
>