[Scsh-checkins] CVS: scx/c/xlib font.c,1.5,1.6

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

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

Modified Files:
        font.c 
Log Message:
- make-font can now create a font from a font-id (Xfont)
- added %font->fontstruct, resp. scx_Font_ID_To_Font_Struct for that.
- removed gcontext-font (see gcontext.scm)
- added comments.





Index: font.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/font.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** font.c      2001/08/21 08:11:26     1.5
--- font.c      2001/10/09 15:42:26     1.6
***************
*** 24,27 ****
--- 24,32 ----
  }
  
+ s48_value scx_Font_ID_To_Font(s48_value Xdisplay, s48_value Xfont) {
+   return SCX_ENTER_FONTSTRUCT(XQueryFont(SCX_EXTRACT_DISPLAY(Xdisplay), 
+                                        SCX_EXTRACT_FONT(Xfont)));
+ }
+ 
  s48_value scx_Font_Path(s48_value Xdisplay) {
    int n, i;
***************
*** 192,194 ****
--- 197,200 ----
    S48_EXPORT_FUNCTION(scx_Font_Info);
    S48_EXPORT_FUNCTION(scx_Char_Info);
+   S48_EXPORT_FUNCTION(scx_Font_ID_To_Font);
  }