'From etoys2.1 of 26 July 2007 [latest update: #1545] on 10 August 2007 at 12:18:58 pm'! "Change Set: releaseBuilderOLPC-tak Date: 10 August 2007 Author: Takashi Yamamiya Cleanup configure script. ReleaseBuilderSqueakland new prepareReleaseImageForOLPC. - prepareReleaseImageForOLPC updates all changes, shrinks, and makes initial screen. - Rename buildInitialScreenForOLPC2 to buildInitialScreenForOLPC. - Remove language specific setting. - Remove button building script for Welcome.pr. "! !ReleaseBuilderSqueakland commentStamp: 'tak 8/10/2007 12:01' prior: 0! To make OLPC etoys.image from developer's image: - place project files for 'Welcome' 'DemonCastle1' 'Gallery' 'Launcher'. - set screen size as 1200 @ 900. - save as 'etoys.image'. ReleaseBuilderSqueakland new prepareReleaseImageForOLPC.! !ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'tak 8/7/2007 22:30'! installReleaseSpecificsForOLPC "ReleaseBuilderSqueakland new installReleaseSpecificsForOLPC" World color: (Color r: 0.9 g: 0.9 b: 1.0). (TextStyle named: 'KomikaText') addNewFontSize: 18. (TextStyle named: 'KomikaText') addNewFontSize: 21. Preferences setDefaultFonts: #( (setListFontTo: KomikaText 18) (setFlapsFontTo: KomikaText 21) (setEToysFontTo: KomikaText 21) (setPaintBoxButtonFontTo: BitstreamVeraSans 9) (setMenuFontTo: KomikaText 21) (setWindowTitleFontTo: KomikaText 18) (setBalloonHelpFontTo: KomikaTextKaps 24) (setButtonFontTo: KomikaText 21) (setCodeFontTo: BitstreamVeraSans 12) ). ! ! !ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'tak 8/10/2007 11:39'! updateAll | logFile logWindow | logWindow := Transcript openLabel: self name. Utilities updateFromServer. Transcript cr; show: '-----'. Transcript cr; show: SmalltalkImage current systemInformationString. logFile := FileDirectory default forceNewFileNamed: self name , '.log'. [logFile nextPutAll: logWindow contents text] ensure: [logFile close]! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'tak 8/7/2007 22:16'! buildInitialScreenForOLPC "ReleaseBuilderSqueakland new buildInitialScreenForOLPC2" World submorphsDo: [:m | m delete]. Flaps disableGlobalFlaps: false. Flaps enableEToyFlaps. ProjectLoading loadFromImagePath: 'Welcome'. ProjectLoading loadFromImagePath: 'DemonCastle1'. ProjectLoading loadFromImagePath: 'Gallery'. ProjectLoading openFromImagePath: 'Launcher'. ! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'tak 8/7/2007 22:33'! cleanupForOLPC "Perform various image cleanups in preparation for making a Squeak gamma release candidate image." "ReleaseBuilderSqueakland new cleanupForOLPC" (self confirm: 'Are you sure you want to prepare a release image? This will perform several irreversible cleanups on this image.') ifFalse: [^ self]. self initialCleanup; finalStripping; installReleaseSpecificsForOLPC; finalCleanup. Preferences cambridge. Display isVirtualScreen ifTrue: [ OLPCVirtualScreen unInstall ]. Display newDepth: 16. Project current displayDepth: 16. PartsBin rebuildIconsWithProgress. ! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'tak 8/10/2007 11:58'! prepareReleaseImageForOLPC "ReleaseBuilderSqueakland new prepareReleaseImageForOLPC" self testPrerequired. self updateAll. self cleanupForOLPC. self buildInitialScreenForOLPC. ! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'tak 8/10/2007 12:00'! testPrerequired | directory entries projectNames | projectNames := #('Welcome' 'DemonCastle1' 'Gallery' 'Launcher' ). directory := FileDirectory on: Smalltalk imagePath. entries := FileList2 projectOnlySelectionMethod: directory entries. projectNames do: [:projectName | (entries anySatisfy: [:each | (Project parseProjectFileName: each first) first = projectName]) ifFalse: [^ self error: projectName , ' is not found']]. "Test if the screen resolution is correct" Display extent = (1200 @ 900) ifFalse: [^ self error: 'The display extent should be 1200 @ 900']. ! ! ReleaseBuilderSqueakland removeSelector: #buildInitialButtons:! ReleaseBuilderSqueakland removeSelector: #buildInitialScreenForOLPC2! ReleaseBuilderSqueakland removeSelector: #buildWelcomeButtons! ReleaseBuilderSqueakland removeSelector: #initialProjectButtonSpec! ReleaseBuilderSqueakland removeSelector: #setupLanguageSpecifics! ReleaseBuilderSqueakland removeSelector: #welcomeProjectButtonSpec! JapaneseEnvironment removeSelector: #setupSqueaklandSpecifics! !JapaneseEnvironment reorganize! ('as yet unclassified') ! LanguageEnvironment removeSelector: #setupSqueaklandSpecifics!