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

commits at source.squeak.org commits at source.squeak.org
Sat Jun 26 09:33:31 EDT 2010

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

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

Name: System-bf.23
Author: bf
Time: 26 June 2010, 3:32:39 pm
UUID: 5d3e17e5-f80c-418e-a0f7-66ed0eac8560
Ancestors: System-bf.22

- reset hands when loading project (fix for SQ-401)

=============== Diff against System-bf.22 ===============

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: [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 hands do: [:h | h clearKeyboardInterpreter].
  		world presenter positionStandardPlayer].
  	WorldState addDeferredUIMessage: [self startResourceLoading].!

More information about the etoys-dev mailing list