[etoys-dev] Etoys: System-bf.36.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Sep 7 17:46:04 EDT 2010

Bert Freudenberg uploaded a new version of System to project Etoys:

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

Name: System-bf.36
Author: bf
Time: 7 September 2010, 11:45:16 pm
UUID: 67c16399-12c4-4e1c-b2f5-09549f49b6d5
Ancestors: System-bf.35

Fix SQ-779: all shared flaps destroyed when switching projects.

=============== Diff against System-bf.35 ===============

Item was changed:
  ----- Method: Project>>finalEnterActions (in category 'menu messages') -----
  	"Perform the final actions necessary as the receiver project is entered"
  	| navigator armsLengthCmd navType thingsToUnhibernate |
  	self projectParameters 
  		at: #projectsToBeDeleted 
  		ifPresent: [ :projectsToBeDeleted |
  			self removeParameter: #projectsToBeDeleted.
  			projectsToBeDeleted do: [ :each | 
  				Project deletingProject: each.
  				each removeChangeSetIfPossible]].
  	Preferences preserveProjectLocale
  		ifTrue: [Locale switchAndInstallFontToID: self localeID gently: true]
  		ifFalse: [self localeID = LocaleID current ifFalse: [
+ 			Locale previous: (Locale localeID: self localeID).
+ 			self localeChanged]].
- 			Locale previous: (Locale localeID: self localeID)].
- 			self localeChanged].
  	(self projectParameterAt: #oldProject ifAbsent: [false])
  			[(self isFlapIDEnabled: 'Sugar Navigator Flap' translated)
  					[(world findA: SugarNavTab) ifNotNilDo:
  						[:tab |
  							 tab hideNavBar.
  							tab firstSubmorph  putUpInitialBalloonHelpFor:
  								 'show the tool bar' translated.
  			[(self isFlapIDEnabled: 'Sugar Navigator Flap' translated)
  				ifFalse: [Flaps enableGlobalFlapWithID: 'Sugar Navigator Flap' translated]].
  	self removeParameter: #oldProject.
  	thingsToUnhibernate _ world valueOfProperty: #thingsToUnhibernate ifAbsent: [#()].
  	thingsToUnhibernate do: [:each | each unhibernate].
  	world removeProperty: #thingsToUnhibernate.
  	(self projectParameterAt: #substitutedFont) ifNotNil: [
  		self removeParameter: #substitutedFont.
  		self world presenter allPlayersWithUniclasses do: [:uni | uni allScriptEditors do: [:scr |
  			scr setProperty: #needsLayoutFixed toValue: true ]].
  	navType _ ProjectNavigationMorph preferredNavigator.
  	armsLengthCmd _ self parameterAt: #armsLengthCmd ifAbsent: [nil].
  	navigator _ world findA: navType.
  	(Preferences classicNavigatorEnabled and: [Preferences showProjectNavigator and: [navigator isNil]]) ifTrue:
  		[(navigator _ navType new addButtons)
  			bottomLeft: world bottomLeft;
  			openInWorld: world].
  	navigator notNil & armsLengthCmd notNil ifTrue:
  		[navigator color: Color lightBlue].
  	armsLengthCmd ifNotNil: [armsLengthCmd openInWorld: world].
  	Smalltalk isMorphic ifTrue:
  		[world reformulateUpdatingMenus.
  		world hands do: [:h | h releaseCachedState].
  		world presenter positionStandardPlayer].
  	WorldState addDeferredUIMessage: [self startResourceLoading].!

More information about the etoys-dev mailing list