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]!