18 Sep
2002
18 Sep
'02
11:29 a.m.
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.
19 Sep
19 Sep
12:32 p.m.
New subject: [linux-audio-user] strange problems with snd
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(a)music.columbia.edu
http://music.columbia.edu/mailman/listinfo/linux-audio-user
8161
days inactive
8162
days old
linux-audio-user@lists.linuxaudio.org
1 comments
2 participants
participants (2)
-
Bill Schottstaedt -
Nathaniel Virgo