'From etoys3.0 of 7 March 2008 [latest update: #2084] on 25 August 2008 at 10:18:26 pm'!
"Change Set:		projectName-bf
Date:			25 August 2008
Author:			Bert Freudenberg

Preserve project name set in Journal (#8087)"!


!SugarLauncher methodsFor: 'datastore' stamp: 'bf 8/25/2008 22:17'!
resumeJournalEntry: id
	| props file title project mimetype |
	props := self dataStore getProperties: id.
	title := (props at: 'title' ifAbsent: ['untitled' translated]) utf8ToSqueak.

	mimetype := props at: 'mime_type' ifAbsent: [''].

	mimetype isEmpty ifTrue: [^self welcome: ''].

	mimetype = 'application/x-squeak-project' ifFalse: [
		"Do not modify original non-project journal entry when later saving this project"
		parameters removeKey: 'OBJECT_ID' ifAbsent: [].
		"reuse drop code"
		WorldState addDeferredUIMessage: [
			ActiveHand lastEvent position: World center.
			Utilities informUser: 'Opening journal entry' translated, String cr, 
					(title copyReplaceAll: String lf with: String cr)
				during: [file := self getFile: id].
			self handleStream: file mimetype: mimetype titled: title].
		^Project enterNew].

	ProjectLoading showProgressBarDuring: [
		Display fillWhite;forceToScreen.
		file := self getFile: id.
		"load project and close temp file (which will thus be deleted)"
		project := ProjectLoading 
			loadName: ((title copyReplaceAll: '/' with: '\') contractTo: 64)
			stream: file
			fromDirectory: nil
			withProjectView: nil.
		file close.
		project name: title.
		project projectParameterAt: #sugarAutoSave put: true.
		project enter].
! !