Very nice!  almost exactly what I wanted (need to tweak the mask - a little too agressive for my tasted).

Also, to write the form out, you could use:

image writePNGfileNamed:'screenshot.png'.

(or are you/we trying to move away from including '.' in filenames?)

one final thing - your previous email, I couldn't see any text, or most of the rest of the message, in GMail.  First time that I'm aware of that. Had to look at source to see what you wrote. Odd.

-Chris


On Tue, Mar 12, 2013 at 5:48 AM, Bert Freudenberg <bert@freudenbergs.de> wrote:
On 2013-03-12, at 12:20, Bert Freudenberg <bert@freudenbergs.de> wrote:

> mask := PNGReadWriter formFromFileNamed: 'mask.png'.
> image := Display copy: mask boundingBox.
> mask displayOn: image at: 0@0 rule: Form blend.
> image asMorph openInHand.

Hehe, this is fun. A couple more lines and you have a real fuzzy screenshot tool:

mask := PNGReadWriter formFromFileNamed: 'mask.png'.
image := Form fromUser.
scaledMask := Form extent: image extent depth: 32.
mask displayScaledOn: scaledMask.
scaledMask displayOn: image at: 0@0 rule: Form blend.
fileName := FileDirectory default nextNameFor: 'screenshot' extension: 'png'.
image asMorph name: fileName; openCenteredInWorld.
Cursor write showWhile: [PNGReadWriter putForm: image onFileNamed: fileName].

- Bert -