Etoys: System-Richo.48.mcz

Ricardo Moran uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-Richo.48.mcz

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

Name: System-Richo.48
Author: Richo
Time: 13 January 2012, 3:27:34 pm
UUID: 1b767f2a-dc2a-c446-bcde-3e3b182e5c0c
Ancestors: System-bf.47

* Modified the way the locale changes are notified to morphs. Basically, Project>>#updateLocaleDependentsWithPreviousSupplies:gently: now sends #localeChanged to all morphs and the default implementation in Morph does nothing.
* Added Scott fix to retain the old order (first all morphs that are not top-level ScriptEditorMorphs)

=============== Diff against System-bf.47 ===============

Item was changed:
  ----- Method: Project>>updateLocaleDependentsWithPreviousSupplies:gently: (in category 'language') -----
  updateLocaleDependentsWithPreviousSupplies: aCollection gently: gentlyFlag
  "Set the project's natural language as indicated"
 
  | morphs scriptEditors |
  gentlyFlag ifTrue: [
  LanguageEnvironment localeChangedGently.
  ] ifFalse: [
  LanguageEnvironment localeChanged.
  ].
 
  morphs := IdentitySet new: 400.
  ActiveWorld allMorphsAndBookPagesInto: morphs.
  scriptEditors := morphs select: [:m | (m isKindOf: ScriptEditorMorph) and: [m topEditor == m]].
+ (morphs copyWithoutAll: scriptEditors) do: [:morph | morph localeChanged].
- morphs := morphs copyWithoutAll: scriptEditors.
- morphs do: [:morph |
- morph isTileScriptingElement ifTrue: [morph localeChanged].
- (morph isKindOf: TextMorph) ifTrue: [morph localeChanged].
- "NB: only those marked as translatable will be translated..."
- morph class == ObjectsTool ifTrue: [morph localeChanged]].
  scriptEditors do: [:m | m localeChanged].
 
  Flaps disableGlobalFlaps: false.
  Preferences sugarNavigator
  ifTrue:
  [Flaps addAndEnableEToyFlapsWithPreviousEntries: aCollection.
  ActiveWorld addGlobalFlaps]
  ifFalse:
  [Preferences eToyFriendly
  ifTrue:
  [Flaps addAndEnableEToyFlaps.
  ActiveWorld addGlobalFlaps]
  ifFalse:
  [Flaps enableGlobalFlaps]].
 
  (Project current isFlapIDEnabled: 'Navigator' translated)
  ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated].
 
  ParagraphEditor initializeTextEditorMenus.
  MenuIcons initializeTranslations.
 
  #(PartsBin ParagraphEditor BitEditor FormEditor StandardSystemController)
  do: [ :key | Smalltalk at: key ifPresent: [ :class | class initialize ]].
 
  ActiveWorld reformulateUpdatingMenus.
  "self setFlaps.
  self setPaletteFor: aLanguageSymbol."
  !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev