linuxaudio.org

On Wednesday 18 September 2002 2:28 pm, Bill Schottstaedt wrote:

quoted text
> I can't resist posting this hack, though I doubt it's actually useful.

> In

> response to the Snd font problem mentioned earlier, I wrote some

> xm-module-based code to show what fonts a given widget is trying

> to use:

Hi Bill, thank you for being so helpful, I really appreciate this a lot.
I tried this just now, and the font problem seems to have magically fixed

itself.  The only thing I can think of that could have caused this was that

earlier today I changed my login manager from gdm to kdm, which seemed to

mess up my fonts in kde by making them too big, so I played around with them

for a bit before changing back to gdm so I could have them how I wanted.

Something in this process must have sorted the snd fonts problem out.
In case it helps, if I type "(show-minibuffer-font)" in the listener, I get
bold_button_font: Times Bold

#f
Incidentally, now that it's working, is there a way to make the fonts bigger?

(I run a really high-res display)
Anyway, time to get back to learning how to use snd :)
> (define (show-font-name font)

quoted text
>   "(show-font-name font) shows the Snd-related name and the X-related

> name of each font \

> in a widget's font list"

>   (define (show-next-font context)

>     (let ((next-font (XmFontListGetNextFont context)))

>       (if (car next-font)

>    (begin

>      (if (XFontStruct? (caddr next-font))

>   (snd-print

>    (format #f "~A: ~A~%"

>     (cadr next-font)

>     (XGetAtomName

>      (XtDisplay (cadr (main-widgets)))

>      (list 'Atom

>     (cadr (XGetFontProperty (caddr next-font)

>        XA_FULL_NAME))))))

>   (snd-print (format #f "no font found!~%")))

>      (show-next-font context)))))

>   (let ((context (XmFontListInitFontContext font)))

>     (show-next-font context)

>     (XmFontListFreeFontContext context)))

>

> So, if it's the minibuffer that's giving trouble:

>

> (define (show-minibuffer-font)

>   "(show-minibuffer-font) shows what fonts are associated with the

> minibuffer"

>   (show-font-name

>     (cadr (XtVaGetValues

>             (list-ref (sound-widgets) 3)

>      (list XmNfontList 0)))))

>

>

> If the font name looks ok, try C-z (in the new version), and send me a

> description

> of what you see.

>

>

> _______________________________________________

> linux-audio-user mailing list

> linux-audio-user@music.columbia.edu

> http://music.columbia.edu/mailman/listinfo/linux-audio-user