The Trunk: Morphic-mt.1084.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1084.mcz

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

Name: Morphic-mt.1084
Author: mt
Time: 18 February 2016, 3:44:46.860199 pm
UUID: 0fa3da60-2335-4f68-b851-047aed05e59c
Ancestors: Morphic-mt.1083

Define final exit actions. Move Morphic-specific locale update code to here. Avoid calling final enter actions because all Projects get that call now.

=============== Diff against Morphic-mt.1083 ===============

Item was changed:
  ----- Method: MorphicProject>>finalExitActions (in category 'enter') -----
  finalExitActions

        (world findA: ProjectNavigationMorph)
                ifNotNil: [:navigator | navigator retractIfAppropriate].
+
+       World := nil.
+
+       ActiveWorld := ActiveHand := ActiveEvent := nil.
+       Sensor flushAllButDandDEvents. "Will be reinstalled by World>>install"
+
        uiProcess := nil. "forget the uiProcess that soon will be terminated"!

Item was changed:
  ----- Method: MorphicProject>>saveState (in category 'enter') -----
  saveState
        "Save the current state in me prior to leaving this project"

        changeSet := ChangeSet current.
        thumbnail ifNotNil: [thumbnail hibernate].
        world := World.
        world sleep.
+       transcript := Transcript.
-       ActiveWorld := ActiveHand := ActiveEvent := nil.
-       Sensor flushAllButDandDEvents. "Will be reinstalled by World>>install"
-       transcript := Transcript
  !

Item was changed:
  ----- Method: MorphicProject>>scheduleProcessForEnter: (in category 'enter') -----
  scheduleProcessForEnter: showZoom
        "Complete the enter: by launching a new process"

-       self finalEnterActions.
        world repairEmbeddedWorlds.
        world triggerEvent: #aboutToEnterWorld.
        self spawnNewProcessAndTerminateOld: true.!

Item was added:
+ ----- Method: MorphicProject>>updateLocaleDependents (in category 'language') -----
+ updateLocaleDependents
+       "Set the project's natural language as indicated"
+
+       ActiveWorld allTileScriptingElements do: [:viewerOrScriptor |
+                       viewerOrScriptor localeChanged].
+
+       Flaps disableGlobalFlaps: false.
+       Preferences eToyFriendly
+               ifTrue: [
+                       Flaps addAndEnableEToyFlaps.
+                       ActiveWorld addGlobalFlaps]
+               ifFalse: [Flaps enableGlobalFlaps].
+
+       (Project current isFlapIDEnabled: 'Navigator' translated)
+               ifFalse: [Flaps enableDisableGlobalFlapWithID: 'Navigator' translated].
+
+       ScrapBook default emptyScrapBook.
+       MenuIcons initializeTranslations.
+
+       super updateLocaleDependents.
+
+       "self setFlaps.
+       self setPaletteFor: aLanguageSymbol."
+ !