The Trunk: System-dtl.162.mcz

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

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

Name: System-dtl.162
Author: dtl
Time: 7 November 2009, 11:57:44 am
UUID: 6f140160-1c75-48a9-b282-d51b609c8d0f
Ancestors: System-dtl.161

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 System-dtl.161 ===============

Item was added:
+ ----- Method: Project>>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 added:
+ ----- Method: Project>>flapsSuppressed (in category 'flaps support') -----
+ flapsSuppressed
+ "Answer whether flaps are suppressed in this project"
+
+ ^ self showSharedFlaps not!

Item was added:
+ ----- Method: Project>>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:
+ [Smalltalk isMorphic  ifTrue:
+ [self currentWorld addGlobalFlaps]]].
+ Project current assureNavigatorPresenceMatchesPreference!