[futurebasic] Re: [FB] System Color Palette

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 1999 : Group Archive : Group : All Groups

From: Charlie Dickman <charlied@...>
Date: Wed, 13 Oct 1999 20:29:38 -0400
Derek recently wrote...

>
>For FB2, this will repair the system palette..its basically a fancy call
>to RestoreDeviceClut along with a forced update of the desktop.
>
>LOCAL FN RestoreScreen
>  `     CLR.L    -(A7)
>  `     MOVEQ  #$02,D0
>  `     DC.W     $AAA2
>  `     CLR.L    -(A7)
>  `     DC.W     $2F38,$09EE
>  `     _PaintBehind
>  `     _DrawMenuBar
>END FN
>
>
>For FutureBasic^3 I use this.
>
>local fn RestoreScreen
>compile long if cpu68k
>beginassem cpu68k
>     clr.l    -(sp);result of paldispatch.
>     moveq     #02,D0;selector(RestoreDeviceClut)
>     dc.w     $AAA2;_PaletteDispatch
>     clr.l     -(sp);Ignore result, push more space
>     dc.w     $2F38,$09EE;dunno, don' care
>     _PaintBehind;what it says
>     _DrawMenuBar;what it says
>endassem
>compile xelse
>RestoreDeviceClut(FN GetMainDevice)
>PaintBehind(FN FrontWindow,0)
>DrawMenubar
>compile end if
>end fn


Is there something that will cause the background pict to be redrawn? 
After restoring the screen its colors are right but it's all mottled. 
I can force a redraw from within the Appearance Manager control panel 
but that's a nuisance. By the way, I'm using Mars' starfish program 
off of the November MacAddict CD. If you haven't tried it you should 
check it out.

Charlie Dickman
charlied@...