[Pkg] The Trunk: System-dtl.162.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.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!