rem: image = RCreateImage(colorWheelSize+4, colorWheelSize+4, False);
add: image = RCreateImage(colorWheelSize+4, colorWheelSize+4, True);
context: wheelRender(W_ColorPanel *panel){    W_Screen		*scr = WMWidgetScreen(panel->win);    int			x,y;    RImage		*image;    unsigned char	*ptr;    RColor		gray;    unsigned long	ofs = 0;    unsigned char	shift = getShift(sizeof(unsigned char));        image = RCreateImage(colorWheelSize+4, colorWheelSize+4, False);    if (!image) {	wwarning(NO_MEMORY_ERR);	return;    }       ptr = image->data;        /* TODO Make this transparent istead of gray */    gray.red = gray.blue = 0xae; gray.green = 0xaa;        for (y = 0; y < colorWheelSize+4; y++) {	for (x = 0; x < colorWheelSize+4; x++) {	    if (wheelInsideColorWheel(panel, ofs)) {		*(ptr++) = (unsigned char)(panel->wheelMtrx->values[			panel->wheelMtrx->data[0][ofs] ]);		*(ptr++) = (unsigned char)(panel->wheelMtrx->values[			panel->wheelMtrx->data[1][ofs] ]);		*(ptr++) = (unsigned char)(panel->wheelMtrx->values[			panel->wheelMtrx->data[2][ofs] ]);	    }	    else {		*(ptr++) = (unsigned char)(gray.red);		*(ptr++) = (unsigned char)(gray.green);		*(ptr++) = (unsigned char)(gray.blue);	    }	    ofs++;	}    }        if (panel->wheelImg)	XFreePixmap(scr->display, panel->wheelImg);        RConvertImage(scr->rcontext, image, &panel->wheelImg);    RDestroyImage(image);        /* Check if backimage exists. If it doesn't, allocate and fill it */    if (!panel->selectionBackImg) {	panel->selectionBackImg = XCreatePixmap(scr->display,		W_VIEW(panel->wheelFrm)->window, 4, 4, scr->depth);	XCopyArea(scr->display, panel->wheelImg, panel->selectionBackImg,		scr->copyGC, panel->colx -2, panel->coly -2, 4, 4, 0, 0); 	/* -2 is hot spot correction */    }}