The Trunk: Morphic-dtl.218.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.218.mcz

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

Name: Morphic-dtl.218
Author: dtl
Time: 31 October 2009, 2:51:36 am
UUID: 29652e24-9d08-4e81-913d-12ceff09c839
Ancestors: Morphic-MarcoSchmidt.217

Move docking bars support from Project to MorphicProject, with some cosmetic changes and spelling corrections.

=============== Diff against Morphic-MarcoSchmidt.217 ===============

Item was added:
+ ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') -----
+ createOrUpdateMainDockingBar
+ "Private - create a new main docking bar or update the current one"
+ | w mainDockingBars |
+ w := self world.
+ mainDockingBars := w mainDockingBars.
+ mainDockingBars isEmpty
+ ifTrue: ["no docking bar, just create a new one"
+ TheWorldMainDockingBar instance createDockingBar openInWorld: w.
+ ^ self].
+ "update if needed"
+ mainDockingBars
+ do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]!

Item was added:
+ ----- Method: MorphicProject>>removeMainDockingBar (in category 'docking bars support') -----
+ removeMainDockingBar
+ "Remove the receiver's main docking bars"
+ self world mainDockingBars
+ do: [:each | each delete]!

Item was added:
+ ----- Method: MorphicProject>>showWorldMainDockingBar (in category 'docking bars support') -----
+ showWorldMainDockingBar
+
+ ^ self projectPreferenceFlagDictionary
+ at: #showWorldMainDockingBar
+ ifAbsent: [Preferences showWorldMainDockingBar]!

Item was added:
+ ----- Method: MorphicProject>>toggleShowWorldMainDockingBar (in category 'docking bars support') -----
+ toggleShowWorldMainDockingBar
+ self showWorldMainDockingBar: self showWorldMainDockingBar not!

Item was added:
+ ----- Method: MorphicProject>>showWorldMainDockingBar: (in category 'docking bars support') -----
+ showWorldMainDockingBar: aBoolean
+ "Change the receiver to show the main docking bar"
+ self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean.
+ (self == Project current
+ and: [aBoolean ~= Preferences showWorldMainDockingBar])
+ ifTrue: [Preferences setPreference: #showWorldMainDockingBar toValue: aBoolean].
+ self assureMainDockingBarPresenceMatchesPreference!

Item was added:
+ ----- Method: MorphicProject>>showWorldMainDockingBarString (in category 'docking bars support') -----
+ showWorldMainDockingBarString
+ ^ (self showWorldMainDockingBar
+ ifTrue: ['<yes>']
+ ifFalse: ['<no>'])
+ , 'show main docking bar (M)' translated!

Item was added:
+ ----- Method: MorphicProject>>assureMainDockingBarPresenceMatchesPreference (in category 'docking bars support') -----
+ assureMainDockingBarPresenceMatchesPreference
+ "Synchronize the state of the receiver's dockings with the  
+ preference"
+ (self showWorldMainDockingBar)
+ ifTrue: [self createOrUpdateMainDockingBar]
+ ifFalse: [self removeMainDockingBar]!