[squeak-dev] The Trunk: Morphic-topa.750.mcz
Chris Muller
asqueaker at gmail.com
Fri Oct 17 20:56:26 UTC 2014
Ohh, thank you! I never use those menus and they just get in the way
of the search bar when I want to make the window narrow..
On Fri, Oct 17, 2014 at 12:56 PM, <commits at source.squeak.org> wrote:
> 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!
>
>
More information about the Squeak-dev
mailing list
|