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

New Message Reply About this list Date view Thread view Subject view Author view Other groups

Subject: Re: [linux-audio-user] strange problems with snd
From: Bill Schottstaedt (bil_AT_ccrma.Stanford.EDU)
Date: Wed Sep 18 2002 - 16:28:10 EEST

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.

_______________________________________________
linux-audio-user mailing list
linux-audio-user_AT_music.columbia.edu
http://music.columbia.edu/mailman/listinfo/linux-audio-user

New Message Reply About this list Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b28 : Wed Sep 18 2002 - 16:32:01 EEST