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]!
squeak-dev@lists.squeakfoundation.org