[Pkg] The Trunk: System-dtl.159.mcz

[commits at source.squeak.org]

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