scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed the calls to XListFonts, XListFontsWithInfo.

This commit is contained in:
frese 2001-08-21 08:11:26 +00:00
parent 024abcc745
commit 2c8bb6981f
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
c/xlib/font.c
View File

@ -60,10 +60,10 @@ s48_value scx_List_Font_Names(s48_value Xdisplay, s48_value pattern) {
s48_value v = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay),
s48_extract_string(pattern),
65535,
&n);
sa = XListFonts(SCX_EXTRACT_DISPLAY(Xdisplay),
s48_extract_string(pattern),
65535,
&n);
v = s48_make_vector(n, S48_FALSE);
S48_GC_PROTECT_1(v);
@ -83,11 +83,11 @@ s48_value scx_List_Fonts(s48_value Xdisplay, s48_value pattern) {
s48_value v = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay),
s48_extract_string(pattern),
65535,
&n,
&fsa);
sa = XListFontsWithInfo(SCX_EXTRACT_DISPLAY(Xdisplay),
s48_extract_string(pattern),
65535,
&n,
&fsa);
v = s48_make_vector(n, S48_FALSE);
S48_GC_PROTECT_1(v);