[Scsh-checkins] CVS: scx/c/xlib gcontext.c,1.7,1.8

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

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

Modified Files:
        gcontext.c 
Log Message:
- completed get-gcontext-values and change/get-window-attributes to
pack/unpack all values correctly.
- added copy-gcontext! and copy-gcontext
- added comments.





Index: gcontext.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/gcontext.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** gcontext.c  2001/07/31 14:51:21     1.7
--- gcontext.c  2001/10/09 15:43:55     1.8
***************
*** 107,110 ****
--- 107,120 ----
  }
  
+ s48_value scx_Copy_Gc_To_Gc(s48_value Xdisplay, s48_value Xfrom, s48_value 
Xto, 
+                           s48_value attrs) {
+   unsigned long mask = 0;
+   mask = S48_SYMBOL_P(attrs) ? Symbol_To_Bit(attrs, Gcontext_Values_Syms) :
+     Symbols_To_Bits(attrs, Gcontext_Values_Syms);
+   XCopyGC(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_GCONTEXT(Xfrom), 
+         mask, SCX_EXTRACT_GCONTEXT(Xto));
+   return S48_UNSPECIFIC;
+ }
+ 
  s48_value scx_Free_Gc(s48_value Xgcontext, s48_value Xdisplay) {
    XFreeGC(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_GCONTEXT(Xgcontext));
***************
*** 242,245 ****
--- 252,256 ----
    S48_EXPORT_FUNCTION(scx_Free_Gc);
    S48_EXPORT_FUNCTION(scx_Copy_Gc);
+   S48_EXPORT_FUNCTION(scx_Copy_Gc_To_Gc);
    S48_EXPORT_FUNCTION(scx_Get_Gc_Values);
    S48_EXPORT_FUNCTION(scx_Change_Gc);