[Scsh-checkins] CVS: scx/c/xlib font.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-serv31019

Modified Files:
        font.c 
Log Message:
fixed the calls to XListFonts, XListFontsWithInfo.


Index: font.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/font.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** font.c      2001/07/31 14:51:21     1.4
--- font.c      2001/08/21 08:11:26     1.5
***************
*** 61,68 ****
    S48_DECLARE_GC_PROTECT(1);
  
!   XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay), 
!            s48_extract_string(pattern),
!            65535,
!            &n);
    
    v = s48_make_vector(n, S48_FALSE);
--- 61,68 ----
    S48_DECLARE_GC_PROTECT(1);
  
!   sa = XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay), 
!                 s48_extract_string(pattern),
!                 65535,
!                 &n);
    
    v = s48_make_vector(n, S48_FALSE);
***************
*** 84,92 ****
    S48_DECLARE_GC_PROTECT(1);
  
!   XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay), 
!                    s48_extract_string(pattern),
!                    65535,
!                    &n,
!                    &fsa);
    
    v = s48_make_vector(n, S48_FALSE);
--- 84,92 ----
    S48_DECLARE_GC_PROTECT(1);
  
!   sa = XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay), 
!                         s48_extract_string(pattern),
!                         65535,
!                         &n,
!                         &fsa);
    
    v = s48_make_vector(n, S48_FALSE);