[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:
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].!
More information about the etoys-dev
mailing list