Hi denis On Jan 11, 2011, at 10:34 PM, Denis Kudriashov wrote:

Hello,

I try BitmapFillStyle with translucent form for my morph object. And It's does not work.

Did you try in latest squeak because I saw passing a fix for translucency but I do not know if this

There is AlphaInfiniteForm in polymorph package that work good as translucent fill styles.

BitmapFillStyle used by Morph>>useBitmapFill. This method try set default bitmap form fill:

fill := BitmapFillStyle fromForm: self defaultBitmapFillForm. "Note: Must fix the origin due to global coordinates" fill origin: self bounds origin. self fillStyle: fill.

For my application I change #useBitmapFill to open file choose dialog and using user selection for fill style (by AlphaInfiniteForm).

I want to share this little code. But I don't know how to package this? AlphaInfiniteForm is from Polymorph-... package. But useBitmapFill is from Morphic-.. package.

Maybe AlphaInfiniteForm can be moved to Graphics-Display Objects package?

as a first step Yes! Now I'm not sure that popping up a dialog is what should be done by default.

What you think?

Thanks for sharing that and we will