Robert,

That is extremely cool.

Thanks,

Rich

On Wednesday, January 29, 2003, at 12:18  AM, Robert Purves wrote:

>
>> Actually my question is about transparent windows.
>> Is that something we can do with carbon or is that only a function of 
>> a
>> cocoa app?
>> Rich Love - Carnation Software
>
>
> '-------------------
> '~'A
> '                       Runtime : Rntm Appearance.Incl
> '                           CPU : Carbon
> '                    CALL Req'd : Off
> '~'B
>
> // metal window transparency in OS X
>
> toolbox SetWindowAlpha( WindowRef inWindow, double inAlpha )
>
> dim as WindowRef  w
> dim as long       j
>
> _kWindowMetalAttribute = 1 << 8
> long if ( system( _sysVers ) < 1020 )
> stop "Requires OS X 10.2 or higher" : end
> end if
> appearance window -1, "Metal", (0, 0)-(600, 400), ¬
>   _kDocumentWindowClass, _kWindowMetalAttribute
>
> w = window( _wndRef )
> SetWindowAlpha( w, 0.0 )
> window 1
> text , 72
> print: print "Fading"
> FlushWindowBuffer
>
> for j = 0 to 100
> SetWindowAlpha( w, j*0.01 )
> delay 60
> next
>
> for j = 100 to 0 step -1
> SetWindowAlpha( w, j*0.01 )
> delay 60
> next
> '-------------------
>
>
> Robert P.
>
>
> --
> To unsubscribe, send ANY message to 
> <futurebasic-unsubscribe@...>
>
>
>
Rich Love - Carnation Software
Terminal emulations for Macintosh - MacWise, MacToPic + and SBMac.
richlove@...
http://www.carnation-software.com
512 858-9234