'From etoys4.0 of 9 October 2008 [latest update: #2261] on 7 September 2009 at 5:27:53 pm'! "Change Set: clearHandUponLoading-yo Date: 7 September 2009 Author: Yoshiki Ohshima Reset keyboard interpreter upon loading."! !Project methodsFor: 'menu messages' stamp: 'yo 9/7/2009 17:26'! 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]]] 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 clearKeyboardInterpreter]. world presenter positionStandardPlayer]. WorldState addDeferredUIMessage: [self startResourceLoading].! !