Re: [linux-audio-user] strange problems with snd

Previous message: [thread] [date] [author]
Next message: [thread] [date] [author]
To: <linux-audio-user@...>
Date: Wednesday, September 18, 2002 - 1:29 pm

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:

(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.

Previous message: [thread] [date] [author]
Next message: [thread] [date] [author]

Messages in current thread:
Re: [linux-audio-user] strange problems with snd, Bill Schottstaedt, (Wed Sep 18, 1:29 pm)
Re: [linux-audio-user] strange problems with snd, Nathaniel Virgo, (Thu Sep 19, 2:32 pm)