Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.23.mcz
==================== 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') ----- finalEnterActions "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]) ifTrue: [(self isFlapIDEnabled: 'Sugar Navigator Flap' translated) ifTrue: [(world findA: SugarNavTab) ifNotNilDo: [:tab | tab hideNavBar. tab firstSubmorph putUpInitialBalloonHelpFor: {{#showNavBar. 'show the tool bar' translated. #bottomLeft. false}}]]] ifFalse: [(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].!
etoys-dev@lists.squeakfoundation.org