'From etoys4.0 of 9 October 2008 [latest update: #2219] on 26 May 2009 at 4:21:25 pm'! "ChangeSet: squeaklandDevImage-yo Date: 26 May 2009 Author: Yoshiki Oshima Supplies a method which, when evaluated, will transform the user's dev image into one suitable for ongoing Squeakland development work."! !ReleaseBuilderSqueakland methodsFor: 'squeakland-dev' stamp: 'yo 5/26/2009 13:43'! buildForSqueaklandDev "Perform various image cleanups in preparation for making a Squeakland OLPC image." "ReleaseBuilderSqueakland new buildForSqueaklandDev" Undeclared removeUnreferencedKeys. StandardScriptingSystem initialize. Browser initialize. (Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']. "Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared']." ScriptingSystem deletePrivateGraphics. "?" ChangeSet current clear. ChangeSet current name: 'Unnamed1'. Smalltalk garbageCollect. "Reinitialize DataStream; it may hold on to some zapped entitities" DataStream initialize. Smalltalk garbageCollect. ScheduledControllers _ nil. Smalltalk garbageCollect. SMSqueakMap default purge. self installReleaseSpecificsForSqueakland. Preferences chicago. OLPCVirtualScreen virtualScreenExtent: nil. Display isVirtualScreen ifTrue: [ OLPCVirtualScreen unInstall ]. Display newDepth: 16. Project current displayDepth: 16. PartsBin rebuildIconsWithProgress. Preferences setPreference: #eToyFriendly toValue: false. Preferences setPreference: #securityChecksEnabled toValue: false. Preferences setPreference: #automaticKeyGeneration toValue: false. Preferences setPreference: #biggerCursors toValue: false. Preferences setPreference: #uniqueNamesInHalos toValue: true. Preferences setPreference: #allowEtoyUserCustomEvents toValue: false. Preferences setPreference: #useLocale toValue: false. Preferences setPreference: #startInUntrustedDirectory toValue: false. SugarNavigatorBar current configureForSqueakland. ! !