The Trunk: Morphic-cmm.614.mcz

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!