[Pkg] The Trunk: System-dtl.166.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Nov 14 02:21:58 UTC 2009


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

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

Name: System-dtl.166
Author: dtl
Time: 13 November 2009, 10:19:16 am
UUID: d9b4919c-f2ab-4832-aa12-0aad0801b81d
Ancestors: System-ar.165

Finish moving flaps support from Project to MVCProject and MorphicProject

=============== Diff against System-ar.165 ===============

Item was changed:
  ----- 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 
+ 		ifTrue: "Typical case"
- 	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>>setFlaps (in category 'language') -----
- setFlaps
- 
- 	| flapTabs flapIDs sharedFlapTabs navigationMorph |
- 	flapTabs := ActiveWorld flapTabs.
- 	flapIDs := flapTabs collect: [:tab | tab knownName].
- 	flapTabs
- 		do: [:tab | (tab isMemberOf: ViewerFlapTab)
- 				ifFalse: [tab isGlobalFlap
- 						ifTrue: [Flaps removeFlapTab: tab keepInList: false.
- 							tab currentWorld reformulateUpdatingMenus]
- 						ifFalse: [| referent | 
- 							referent := tab referent.
- 							referent isInWorld
- 								ifTrue: [referent delete].
- 							tab delete]]].
- 	sharedFlapTabs := Flaps classPool at: #SharedFlapTabs.
- 	flapIDs
- 		do: [:id | 
- 			id = 'Navigator' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newNavigatorFlap].
- 			id = 'Widgets' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newWidgetsFlap].
- 			id = 'Tools' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newToolsFlap].
- 			id = 'Squeak' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newSqueakFlap].
- 			id = 'Supplies' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newSuppliesFlap].
- 			id = 'Stack Tools' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newStackToolsFlap].
- 			id = 'Painting' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newPaintingFlap].
- 			id = 'Objects' translated
- 				ifTrue: [sharedFlapTabs add: Flaps newObjectsFlap ]].
- 	2 timesRepeat: [flapIDs do: [:id | Flaps enableDisableGlobalFlapWithID: id]].
- 	ActiveWorld flapTabs
- 		do: [:flapTab | flapTab isCurrentlyTextual
- 				ifTrue: [flapTab changeTabText: flapTab knownName]].
- 	Flaps positionNavigatorAndOtherFlapsAccordingToPreference.
- 	navigationMorph := World findDeeplyA: ProjectNavigationMorph preferredNavigator.
- 	navigationMorph isNil
- 		ifTrue: [^ self].
- 	navigationMorph allMorphs
- 		do: [:morph | morph class == SimpleButtonDelayedMenuMorph
- 				ifTrue: [(morph findA: ImageMorph) isNil
- 						ifTrue: [| label | 
- 							label := morph label.
- 							label isNil
- 								ifFalse: [| name | 
- 									name := morph knownName.
- 									name isNil
- 										ifTrue: [morph name: label.
- 											name := label].
- 									morph label: name translated]]]]!



More information about the Packages mailing list