'From Pharo3.0 of 18 March 2013 [Latest update: #30820] on 7 May 2014 at 11:04:34.731412 pm'!
Object subclass: #DOScreenshotExporter
	instanceVariableNames: 'directory'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Domain-Parties'!
!DOScreenshotExporter commentStamp: '<historical>' prior: 0!
!


!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 23:03'!
writeMorph: aMorph as: aFileName
	(directory / aFileName) ensureDelete.
	PNGReadWriter putForm: aMorph imageForm onFileNamed: (directory / aFileName).! !

!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 23:03'!
writeWorldAs: aFileName
	(directory / aFileName) ensureDelete.
	PNGReadWriter putForm: World imageForm  onFileNamed: (directory / aFileName).! !

!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 22:31'!
directory
	^ directory! !

!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 23:03'!
writeMorph: aMorph rectangle: aRectangle as: aFileName
	(directory / aFileName) ensureDelete.
	PNGReadWriter putForm: (aMorph imageFormForRectangle: aRectangle) onFileNamed: (directory / aFileName).! !

!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 22:31'!
directory: anObject
	directory := anObject! !

!DOScreenshotExporter methodsFor: 'accessing' stamp: 'StephanEggermont 5/7/2014 23:03'!
writeForm: aForm as: aFileName
	(directory / aFileName) ensureDelete.
	PNGReadWriter putForm: aForm onFileNamed: (directory / aFileName).! !