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 at freudenbergs.de>wrote:

> On 2013-03-12, at 12:20, Bert Freudenberg <bert at freudenbergs.de> wrote:
>
> > mask := PNGReadWriter formFromFileNamed: 'mask.png'.
> > image := Display copy: mask boundingBox.
> > mask displayOn: image at: 0 at 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 at 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 -
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20130312/cb40dc71/attachment.htm