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
