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