How to set the font using Xlib

[Bj|rn von Sydow]

I have a question which might be related to an omission in Xlib.hs
as present in the July 19 distribution of hugs 1.4 beta.

I want to set the font in a GC using the Xlib functions provided
but I do not see how to do that. xSetFont requires a Font argument, 
but how can I get it? 
- I can load a font using xQueryLoadFont, but that gives me an XFontStruct,
  from which I cannot get the Font part (XGetFontProperty is not 
  implemented).
- XLoadFont, which returns a Font, is not implemented.

Any help is appreciated!

Björn von Sydow