The Trunk: System-dtl.166.mcz

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]]]]!