<div dir="ltr">Very nice! almost exactly what I wanted (need to tweak the mask - a little too agressive for my tasted).<div><br></div><div>Also, to write the form out, you could use:</div><div><br></div><div>image writePNGfileNamed:'screenshot.png'.<br>
</div><div><br></div><div style>(or are you/we trying to move away from including '.' in filenames?)</div><div style><br></div><div style>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.</div>
<div style><br></div><div style>-Chris</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Tue, Mar 12, 2013 at 5:48 AM, Bert Freudenberg <span dir="ltr"><<a href="mailto:bert@freudenbergs.de" target="_blank">bert@freudenbergs.de</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">On 2013-03-12, at 12:20, Bert Freudenberg <<a href="mailto:bert@freudenbergs.de">bert@freudenbergs.de</a>> wrote:<br>
<br>
> mask := PNGReadWriter formFromFileNamed: 'mask.png'.<br>
> image := Display copy: mask boundingBox.<br>
> mask displayOn: image at: 0@0 rule: Form blend.<br>
> image asMorph openInHand.<br>
<br>
</div>Hehe, this is fun. A couple more lines and you have a real fuzzy screenshot tool:<br>
<div class="im"><br>
mask := PNGReadWriter formFromFileNamed: 'mask.png'.<br>
</div>image := Form fromUser.<br>
scaledMask := Form extent: image extent depth: 32.<br>
mask displayScaledOn: scaledMask.<br>
scaledMask displayOn: image at: 0@0 rule: Form blend.<br>
fileName := FileDirectory default nextNameFor: 'screenshot' extension: 'png'.<br>
image asMorph name: fileName; openCenteredInWorld.<br>
Cursor write showWhile: [PNGReadWriter putForm: image onFileNamed: fileName].<br>
<span class="HOEnZb"><font color="#888888"><br>
- Bert -<br>
<br>
<br>
</font></span></blockquote></div><br></div>