InstallClipRegion() (layers.library)

[Gilloo]

Hi people, here some stange code to clip an area in v33 and higher (kick 1.2)

w is a window (struct Window *)

struct Region *region = NULL ;
struct Region *oldregion = NULL ;

region = NewRegion() ;
if (region != NULL)
{
struct Rectangle rect ;

rect.MinX = 10 ;
rect.MinY = 10 ;
rect.MaxX = 110 ;
rect.MaxY = 110 ;
if (!OrRectRegion(region, &rect))
{
DisposeRegion(region) ;
region = NULL ;
}
}

if (region != NULL)
{
oldregion = InstallClipRegion(w->RPort->Layer, region) ;
}
SetRast(w->RPort, 0) ; /* clear */
SetAPen(w->RPort, 3) ;
Move(w->RPort, 0, 0) ; /* cross */
Draw(w->RPort, 200, 200) ;
Move(w->RPort, 200, 0) ;
Draw(w->RPort, 0, 200) ;

if (region != NULL)
{
InstallClipRegion(w->RPort->Layer, oldregion) ;
DisposeRegion(region) ;
region = NULL ;
}

This code draws a cross in a rectangle (10, 10)-(110, 110)

How to do the same in version 31 (Kick1.1) where InstallClipRegion() doesn't exists and OrRegionRect() seems to be bugged

Many Thanks.