johnnydean1 wrote:
scimonster wrote:
johnnydean1 wrote:
Cracked it:
exportFileName: fileName
| form fName |
form _ self stageShotForm.
form depth <= 8 ifTrue: [
(fileName asLowercase endsWith: '.png')
ifTrue: [fName _ fileName]
ifFalse: [fName _ fileName, '.png'].
GIFReadWriter putForm: form colorReduced8Bit onFileNamed: fName.
^ self].
(fileName asLowercase endsWith: '.png')
ifTrue: [fName _ fileName]
ifFalse: [fName _ fileName, '.png'].
(form asFormOfDepth: 32) writeBMPFileNamed: fName.It can't write a PNG called name.bmp or name.gif
Just physically impossible.Have you actually tried it?
Well, no...
Offline