[linux-audio-user] strange problems with snd

[Bill Schottstaedt]

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.