createFormCode: aStream
"Create code to generate a form for an image"
| handler aForm name |
handler := ExternalDropHandler lookupExternalDropHandler: aStream.
handler ifNil: [^self].
aStream binary.
aForm := Form fromBinaryStream: (RWBinaryOrTextStream with: aStream contents) reset.
name := aStream localName.
Transcript show: (FileDirectory baseNameFor: name)
, 'Form
"Original file: ' , name , '"
^ Form
extent: ' , aForm width asString , ' @ ' , aForm height asString , '
depth: ' , aForm depth asString , '
fromArray: ' , aForm bits asArray asString , '
offset: 0 @ 0
'