[Pkg] The Trunk: Morphic-dtl.218.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 31 18:53:47 UTC 2009


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



More information about the Packages mailing list