[squeak-dev] The Trunk: Morphic-mt.1084.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 14:45:28 UTC 2016


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."
+ !



More information about the Squeak-dev mailing list