'From etoys2.3 of 28 November 2007 [latest update: #1813] on 1 December 2007 at 1:33:20 pm'!
"Change Set:		IncludeChangeSet-yo
Date:			1 December 2007
Author:			Yoshiki Ohshima

Include changeset by default when saving without interaction."!


!Project methodsFor: 'file in/out' stamp: 'yo 12/1/2007 13:30'!
exportSegmentFileName: aFileName directory: aDirectory withoutInteraction: noInteraction

	| exportChangeSet |

	"An experimental version to fileout a changeSet first so that a project can contain its own classes"

	self projectParameterAt: #eToysFont put: (Preferences standardEToysFont familySizeFace).

	"Store my project out on the disk as an *exported* ImageSegment.  Put all outPointers in a form that can be resolved in the target image.  Name it <project name>.extSeg.
	Player classes are included automatically."
	exportChangeSet _ nil.
	(changeSet notNil and: [changeSet isEmpty not]) ifTrue: [
		(noInteraction or: [self confirm: 
	'Would you like to include all the changes in the change set
	as part of this publishing operation?' translated]) ifTrue: [
				exportChangeSet _ changeSet
		].
	].

	Project publishInSexp ifTrue: [
		^ self exportSegmentInSexpWithChangeSet: exportChangeSet fileName: aFileName directory: aDirectory withoutInteraction: noInteraction
	].
	^ self 
		exportSegmentWithChangeSet: exportChangeSet
		fileName: aFileName 
		directory: aDirectory
		withoutInteraction: noInteraction
! !