fonts

[Greg Bennett]

Good morning, from Greg Bennett

Is there a way to make a list of all the (fonts or) text-styles 
potentially available in mcclim  ?

Under allegro I can do this, for example:

(defun font-names ()
      "Collects (family.face) list for (cg::screen cg::*system*)"
      (let (fonts
              (root (cg::screen cg::*system*)))
       (cg::with-device-context (hdc (cg::screen cg::*system*))
          (loop for face in (cg::font-faces root)
            do
            (loop for family in (list :modern :roman :swiss NIL)
              do
              (push (cons family face) fonts))
            ))
          fonts))

While I can see text-style-face, text-style-family to extract those 
things from text-styles,
I cannot yet see how to find something like (text-styles-of ??).

Thanks for any and all assistance

Cheers /Greg Bennett