'From etoys3.0 of 19 February 2008 [latest update: #2019] on 19 June 2008 at 7:54:55 pm'!
"Change Set:		projectWriteError-bf
Date:			19 June 2008
Author:			Bert Freudenberg

Log error while storing project"!


!Project methodsFor: 'file in/out' stamp: 'bf 6/19/2008 19:52'!
storeOnServerWithNoInteraction

	"Save to disk as an Export Segment.  Then put that file on the server I came from, as a new version.  Version is literal piece of file name.  Mime encoded and http encoded."
	| ret pp |
	world setProperty: #optimumExtentFromAuthor toValue: world extent.
	self isCurrentProject ifTrue: ["exit, then do the command"
		Flaps globalFlapTabsIfAny do: [:each | Flaps removeFlapTab: each keepInList: true].
		ret _ self 
			armsLengthCommand: #storeOnServerWithNoInteraction
			withDescription: 'Publishing' translated.
		^ ret
	].
	pp _   self displaySavingProgress.
	[self storeOnServerWithNoInteractionInnards] on: Error do: [:ex |
		Smalltalk logError: ex description inContext: ex signalerContext to: 'SqueakDebug.log'.
		pp value. ^ false].
	pp value.
	^ true.
! !