'From etoys2.1 of 8 August 2007 [latest update: #1645] on 14 September 2007 at 8:56:43 pm'! "Change Set: RelBldrFix-yo Date: 14 September 2007 Author: Yoshiki Ohshima A fix of typo and initialization of default thumbnail."! !Preferences class methodsFor: 'fonts' stamp: 'yo 9/14/2007 20:49'! restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts " Preferences setDefaultFonts: #( (setListFontTo: BitstreamVeraSans 15) (setFlapsFontTo: BitstreamVeraSansBold 15) (setEToysButtonFontTo: BitstreamVeraSans 15) (setEToysFontTo: BitstreamVeraSansBold 15) (setEToysCodeFontTo: BitstreamVeraSans 24) (setPaintBoxButtonFontTo: BitstreamVeraSans 9) (setMenuFontTo: BitstreamVeraSans 15) (setWindowTitleFontTo: BitstreamVeraSans 15) (setBalloonHelpFontTo: BitstreamVeraSans 15) ). ! ! !Preferences class methodsFor: 'fonts' stamp: 'yo 9/14/2007 20:49'! restoreDefaultFontsForSqueakland "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFontsForSqueakland " Preferences setDefaultFonts: #( (setListFontTo: BitstreamVeraSans 12) (setFlapsFontTo: BitstreamVeraSansBold 12) (setEToysButtonFontTo: BitstreamVeraSans 12) (setEToysFontTo: BitstreamVeraSansBold 12) (setEToysCodeFontTo: BitstreamVeraSans 12) (setPaintBoxButtonFontTo: BitstreamVeraSans 9) (setMenuFontTo: BitstreamVeraSans 12) (setWindowTitleFontTo: BitstreamVeraSans 15) (setBalloonHelpFontTo: BitstreamVeraSans 12) ). ! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'yo 9/14/2007 20:54'! buildInitialScreenForOLPC "ReleaseBuilderSqueakland new buildInitialScreenForOLPC" World submorphsDo: [:m | m delete]. Flaps disableGlobalFlaps: false. Flaps enableEToyFlaps. ProjectLoading loadFromImagePath: 'Tutorials'. ProjectLoading loadFromImagePath: 'Gallery'. ProjectLoading loadFromImagePath: 'Launcher'. (World submorphs select: [:e | e isMemberOf: ProjectViewMorph]) do: [:e | e delete]. Project current setThumbnail: ((Project named: 'Launcher') ifNotNil: [(Project named: 'Launcher') thumbnail] ifNil: [nil]).! !