The Trunk: System-dtl.159.mcz

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

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

Name: System-dtl.159
Author: dtl
Time: 31 October 2009, 2:53:47 am
UUID: ede05820-00ce-4784-855d-d00142df3598
Ancestors: System-nice.158

Move docking bars support from Project to MorphicProject.

=============== Diff against System-nice.158 ===============

Item was removed:
- ----- Method: Project>>toggleShowWorldMainDockingBar (in category 'docking bars support') -----
- toggleShowWorldMainDockingBar
- self showWorldMainDockingBar: self showWorldMainDockingBar not!

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

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

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

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

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

Item was removed:
- ----- Method: Project>>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 nedeed"
- mainDockingBars
- do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]!