'From etoys2.2 of 1 October 2007 [latest update: #1766] on 7 November 2007 at 5:28:38 pm'! "Change Set: RenameLauncher-yo Date: 7 November 2007 Author: Yoshiki Ohshima Rename the Launcher project to Etoys Activity."! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'yo 11/7/2007 17:26'! buildInitialScreenForOLPC "ReleaseBuilderSqueakland new buildInitialScreenForOLPC" "pre-load QuickGuideMorph class var IndexPage" QuickGuideMorph new preloadIndex. World submorphsDo: [:m | m delete]. Flaps disableGlobalFlaps: false. Flaps enableEToyFlaps. ProjectLoading loadFromImagePath: 'Tutorials'. ProjectLoading loadFromImagePath: 'Gallery'. ProjectLoading loadFromImagePath: 'EtoysActivity'. (World submorphs select: [:e | e isMemberOf: ProjectViewMorph]) do: [:e | e delete]. Project current setThumbnail: ((Project named: 'Etoys Activity') ifNotNil: [(Project named: 'Etoys Activity') thumbnail] ifNil: [nil]).! ! !ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'yo 11/7/2007 17:27'! testPrerequired | directory entries projectNames | projectNames := #('Gallery' 'Tutorials' 'EtoysActivity'). 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']. ! ! !SugarLauncher methodsFor: 'commands' stamp: 'yo 11/7/2007 17:27'! welcome: aUrl "Sent either when running from Sugar, or at regular startUp otherwise" aUrl isEmpty ifFalse: [^Project fromUrl: aUrl]. "only enter launcher if no script given on cmd line" ((SmalltalkImage current getSystemAttribute: 2) ifNil: ['']) ifNotEmpty: [^self]. (Project named: 'Etoys Activity') ifNotNilDo: [:p | p enter]! !