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

[commits at source.squeak.org]

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

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

Name: Morphic-dtl.222
Author: dtl
Time: 8 November 2009, 12:10:36 pm
UUID: f86670be-9739-4124-a5f8-3a70136d1afe
Ancestors: Morphic-ar.221

Move three methods from MorphicProject back to Project, undoing prior change. These are required for creating and entering an MVC project from Morphic.

=============== Diff against Morphic-ar.221 ===============

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed: (in category 'flaps support') -----
- flapsSuppressed: aBoolean
- 	"Make the setting of the flag that governs whether global flaps are suppressed in the project be as indicated and add or remove the actual flaps"
- 
- 	self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not.
- 	self == Project current  "Typical case"
- 		ifTrue:
- 			[Preferences setPreference: #showSharedFlaps toValue: aBoolean not]
- 		ifFalse:   "Anomalous case where this project is not the current one."
- 			[aBoolean
- 				ifTrue:		
- 					[Flaps globalFlapTabsIfAny do:
- 						[:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]]
- 
- 				ifFalse:
- 					[self currentWorld addGlobalFlaps]].
- 	Project current assureNavigatorPresenceMatchesPreference!

Item was removed:
- ----- Method: MorphicProject>>showSharedFlaps (in category 'flaps support') -----
- showSharedFlaps
- 	"Answer whether shared flaps are shown or suppressed in this project"
- 
- 	| result |
- 	result := Preferences showSharedFlaps.
- 	^ self == Project current
- 		ifTrue:
- 			[result]
- 		ifFalse:
- 			[self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]!

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed (in category 'flaps support') -----
- flapsSuppressed
- 	"Answer whether flaps are suppressed in this project"
- 
- 	^ self showSharedFlaps not!