'From etoys2.1 of 30 August 2007 [latest update: #1622] on 13 September 2007 at 12:06:24 am'!
"Change Set:		startFix-bf
Date:			13 September 2007
Author:			Bert Freudenberg

On startup, enter Launcher project if no other project supplied."!


!SugarLauncher methodsFor: 'running' stamp: 'bf 9/12/2007 19:43'!
startUp
	self class allInstances do: [:ea | ea shutDown].

	Current := self.

	parameters at: 'ACTIVITY_ID' ifPresent: [ :activityId |
		World windowEventHandler: self.
		process := [self runDBusService: 'org.laptop.Activity', activityId]
			forkAt: Processor userInterruptPriority named: 'Sugar DBus service'.
		ServerDirectory
			addServer: (SugarDatastoreDirectory mimetype: 'application/x-squeak-project' extension: '.pr')
			named: SugarLauncher defaultDatastoreDirName.
		parameters at: 'OBJECT_ID' ifPresent: [:id |
			^self resumeJournalEntry: id].
		Project current removeParameter: #sugarAutoSave.
		self createJournalEntryFor: Project current filename: '' mimetype: ''.
		^self welcome: (parameters at: 'URI' ifAbsent: [''])].

	parameters at: 'SUGARPIPE' ifPresent: [ :sugarPipe |
		^process := [self fetchCommandsFrom: sugarPipe] 
			forkAt: Processor userInterruptPriority named: 'Sugar Pipe handler'].

	self welcome: ''

! !

!SugarLauncher methodsFor: 'commands' stamp: 'bf 9/12/2007 19:47'!
welcome: aUrl
	"Sent either when running from Sugar, or at regular startUp otherwise"

	aUrl isEmpty ifFalse: [^Project fromUrl: aUrl].

	(Project named: 'Launcher') ifNotNilDo: [:p | p enter]! !