Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.614.mcz

==================== Summary ====================

Name: Morphic-cmm.614
Author: cmm
Time: 29 March 2012, 8:37:44.924 pm
UUID: ed1d4628-7783-4f54-9859-57dcaca2ca04
Ancestors: Morphic-eem.613, Morphic-cmm.606

- Merged cmm.606.
- Separate UI from domain function so exporting Morphs as graphics can be done programmatically.

=============== Diff against Morphic-eem.613 ===============

Item was changed:
  ----- Method: HaloMorph>>doGrab:with: (in category 'private') -----
  doGrab: evt with: grabHandle
  	"Ask hand to grab my target."
  
  	self obtainHaloForEvent: evt andRemoveAllHandlesBut: grabHandle.
+ 	evt hand attachMorph: target.
- 	evt hand grabMorph: target.
  	self step. "update position if necessary"
  	evt hand addMouseListener: self. "Listen for the drop"!

Item was changed:
  ----- Method: Morph>>exportAsBMP (in category 'menus') -----
  exportAsBMP
  	| fName |
  	fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.bmp'.
  	fName isEmpty ifTrue:[^self].
+ 	self exportAsBMPNamed: fName!
- 	self imageForm writeBMPfileNamed: fName.!

Item was added:
+ ----- Method: Morph>>exportAsBMPNamed: (in category 'menus') -----
+ exportAsBMPNamed: aString 
+ 	self imageForm writeBMPfileNamed: aString!

Item was changed:
  ----- Method: Morph>>exportAsGIF (in category 'menus') -----
  exportAsGIF
  	| fName |
  	fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.gif'.
  	fName isEmpty ifTrue:[^self].
+ 	self exportAsGIFNamed: fName!
- 	GIFReadWriter putForm: self imageForm onFileNamed: fName.!

Item was added:
+ ----- Method: Morph>>exportAsGIFNamed: (in category 'menus') -----
+ exportAsGIFNamed: aString 
+ 	GIFReadWriter
+ 		putForm: self imageForm
+ 		onFileNamed: aString!

Item was changed:
  ----- Method: Morph>>exportAsJPEG (in category 'menus') -----
  exportAsJPEG
- 	"Export the receiver's image as a JPEG"
- 
  	| fName |
  	fName := UIManager default request: 'Please enter the name' translated initialAnswer: self externalName,'.jpeg'.
  	fName isEmpty ifTrue: [^ self].
+ 	self exportAsJPEGNamed: fName!
- 	self imageForm writeJPEGfileNamed: fName!

Item was added:
+ ----- Method: Morph>>exportAsJPEGNamed: (in category 'menus') -----
+ exportAsJPEGNamed: aString 
+ 	self imageForm writeJPEGfileNamed: aString!

Item was changed:
  ----- Method: Morph>>exportAsPNG (in category 'menus') -----
  exportAsPNG
  	| fName |
  	fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.png'.
  	fName isEmpty ifTrue:[^self].
+ 	self exportAsPNGNamed: fName!
- 	PNGReadWriter putForm: self imageForm onFileNamed: fName.!

Item was added:
+ ----- Method: Morph>>exportAsPNGNamed: (in category 'menus') -----
+ exportAsPNGNamed: aString 
+ 	PNGReadWriter
+ 		putForm: self imageForm
+ 		onFileNamed: aString!