suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

windows get-face-list

Browse Source 
svn: r41
This commit is contained in:
Matthew Flatt 2005-06-01 15:08:42 +00:00
parent 0f835f2003
commit d878d6d8de
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/mred/wxs/wxscheme.cxx
View File

@ -1016,17 +1016,17 @@ static int indirect_strcmp(const void *a, const void *b)
typedef struct {
int mono_only;
int count, size;
char **names;
mzchar **names;
} gfData;
static int CALLBACK get_font(ENUMLOGFONT FAR* lpelf,
NEWTEXTMETRIC FAR* lpntm,
static int CALLBACK get_font(ENUMLOGFONTW FAR* lpelf,
NEWTEXTMETRICW FAR* lpntm,
DWORD type,
LPARAM _data)
{
gfData *data = (gfData *)_data;
int l;
char *s;
long ulen;
mzchar *s;
if (data->mono_only) {
/* TMPF_FIXED_PITCH flag means not monospace */
@ -1036,17 +1036,18 @@ static int CALLBACK get_font(ENUMLOGFONT FAR* lpelf,
}
if (data->count == data->size) {
char **naya;
mzchar **naya;
data->size += (2 * data->size) + 10;
naya = new char*[data->size];
memcpy(naya, data->names, data->count * sizeof(char *));
naya = new mzchar*[data->size];
memcpy(naya, data->names, data->count * sizeof(mzchar *));
data->names = naya;
}
l = strlen(lpelf->elfLogFont.lfFaceName);
s = new char[l + 1];
memcpy(s, lpelf->elfLogFont.lfFaceName, l);
s = scheme_utf16_to_ucs4(lpelf->elfLogFont.lfFaceName, 0,
wx_wstrlen(lpelf->elfLogFont.lfFaceName),
0, 0, &ulen, 1);
s[ulen] = 0;
data->names[data->count++] = s;
@ -1189,7 +1190,7 @@ static Scheme_Object *wxSchemeGetFontList(int argc, Scheme_Object **argv)
dc = GetDC(NULL);
EnumFontFamilies(dc, NULL, (FONTENUMPROC)get_font, (LPARAM)&data);
EnumFontFamiliesW(dc, NULL, (FONTENUMPROCW)get_font, (LPARAM)&data);
#endif
while (1) {
@ -1241,7 +1242,11 @@ static Scheme_Object *wxSchemeGetFontList(int argc, Scheme_Object **argv)
#ifdef wx_msw
if (i >= data.count)
break;
s = data.names[i++];
{
mzchar *ws;
ws = data.names[i++];
s = scheme_utf8_encode_to_buffer(ws, scheme_char_strlen(ws), NULL, 0);
}
l = strlen(s);
#endif