[linux-audio-user] strange problems with snd

[Nathaniel Virgo]

On Wednesday 18 September 2002 2:28 pm, Bill Schottstaedt wrote:
> 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)
>   "(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 at music.columbia.edu
> http://music.columbia.edu/mailman/listinfo/linux-audio-user