The Trunk: Morphic-dtl.222.mcz

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!