[Scsh-checkins] CVS: scx/c/xlib pixel.c,1.4,1.5

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv7951/c/xlib

Modified Files:
        pixel.c 
Log Message:
- added finalize? argument to make-pixel, so that allocated
color-cells (=pixels) are freed correctly.





Index: pixel.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/pixel.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** pixel.c     2001/07/31 14:51:21     1.4
--- pixel.c     2001/10/09 15:45:26     1.5
***************
*** 12,17 ****
--- 12,28 ----
  }
  
+ s48_value scx_Free_Pixel(s48_value Xpixel, s48_value Xdisplay, s48_value 
Xcolormap) {
+   unsigned long pixels[1];
+   pixels[0] = SCX_EXTRACT_PIXEL(Xpixel);
+   
+   XFreeColors(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_COLORMAP(Xcolormap),
+             pixels, 1, 0);
+ 
+   return S48_UNSPECIFIC;
+ }
+ 
  void scx_init_pixel(void) {
    S48_EXPORT_FUNCTION(scx_Black_Pixel);
    S48_EXPORT_FUNCTION(scx_White_Pixel);
+   S48_EXPORT_FUNCTION(scx_Free_Pixel);
  }