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

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

Name: System-dtl.160
Author: dtl
Time: 31 October 2009, 3:30:47 am
UUID: d705035f-648c-41cc-b196-76a6532ea36b
Ancestors: System-dtl.159

Move flaps support from Project to MorphicProject.

=============== Diff against System-dtl.159 ===============

Item was removed:
- ----- 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 removed:
- ----- Method: Project>>suppressFlapsString (in category 'flaps support') -----
- suppressFlapsString
- 	^ (self flapsSuppressed
- 		ifTrue: ['<no>']
- 		ifFalse: ['<yes>']), 'show shared tabs (F)' translated!

Item was removed:
- ----- Method: Project>>globalFlapWithIDEnabledString: (in category 'flaps support') -----
- globalFlapWithIDEnabledString: aFlapID
- 	"Answer the string to be shown in a menu to represent the status of the given flap regarding whether it it should be shown in this project."
- 
- 	| aFlapTab |
- 	aFlapTab := Flaps globalFlapTabWithID: aFlapID.
- 	^ (self isFlapEnabled: aFlapTab)
- 		ifTrue:
- 			['<on>', aFlapTab wording]
- 		ifFalse:
- 			['<off>', aFlapTab wording]!

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

Item was removed:
- ----- Method: Project>>assureFlapIntegrity (in category 'flaps support') -----
- assureFlapIntegrity
- 	"Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them.  Also, old (and damaging) parameters that held references to actual disabled flaps are cleansed"
- 
- 	| disabledFlapIDs currentGlobalIDs oldList |
- 	Smalltalk isMorphic ifTrue:
- 		[disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new].
- 		currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID].
- 		oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil].
- 		oldList ifNotNil:
- 			[disabledFlapIDs := oldList collect: [:aFlap | aFlap flapID].
- 			disabledFlapIDs addAll: {'Scripting' translated. 'Stack Tools' translated. 'Painting' translated}].
- 		disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID].
- 		self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs asSet.
- 		self assureNavigatorPresenceMatchesPreference].
- 
- 	projectParameters ifNotNil:
- 		[projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]!

Item was removed:
- ----- Method: Project>>cleanseDisabledGlobalFlapIDsList (in category 'flaps support') -----
- cleanseDisabledGlobalFlapIDsList
- 	"Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them"
- 
- 	| disabledFlapIDs currentGlobalIDs oldList |
- 	Smalltalk isMorphic ifTrue:
- 		[disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new].
- 		currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID].
- 		oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil].
- 		oldList ifNotNil:
- 			[disabledFlapIDs := oldList select: [:aFlap | aFlap flapID]].
- 		disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID].
- 		self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs].
- 
- 	projectParameters ifNotNil:
- 		[projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []].
- !

Item was removed:
- ----- Method: Project>>enableDisableGlobalFlap: (in category 'flaps support') -----
- enableDisableGlobalFlap: aFlapTab
- 	"For the benefit of pre-existing which-global-flap buttons from a design now left behind."
- 
- 	self flag: #toRemove.
- 	^ self inform: 
- 'Sorry, this is an obsolete menu; please
- dismiss it and get a fresh menu.  Thanks.'.!

Item was removed:
- ----- Method: Project>>toggleFlapsSuppressed (in category 'flaps support') -----
- toggleFlapsSuppressed
- 	"Project toggleFlapsSuppressed"
- 
- 	^self flapsSuppressed: self flapsSuppressed not.!

Item was removed:
- ----- Method: Project>>isFlapEnabled: (in category 'flaps support') -----
- isFlapEnabled:  aFlapTab
- 	"Answer whether the given flap tab is enabled in this project"
- 
- 	^ self isFlapIDEnabled: aFlapTab flapID!

Item was removed:
- ----- Method: Project>>isFlapIDEnabled: (in category 'flaps support') -----
- isFlapIDEnabled:  aFlapID
- 	"Answer whether a flap of the given ID is enabled in this project"
- 
- 	| disabledFlapIDs  |
- 	disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [^ true].
- 	^ (disabledFlapIDs includes: aFlapID) not!

Item was removed:
- ----- 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!

Item was removed:
- ----- Method: Project>>globalFlapEnabledString: (in category 'flaps support') -----
- globalFlapEnabledString: aFlapTab
- 	"Answer the string to be shown in a menu to represent the status of the givne flap regarding whether it it should be shown in this project."
- 
- 	^ (self isFlapEnabled: aFlapTab)
- 		ifTrue:
- 			['<on>', aFlapTab wording]
- 		ifFalse:
- 			['<off>', aFlapTab wording]!