From 92c5bfba88a463c63ed03537b03b9a6b2083b08d Mon Sep 17 00:00:00 2001 From: eknauel Date: Sun, 26 Oct 2003 16:43:21 +0000 Subject: [PATCH] + little improvements --- scheme/examples/hello-xft.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scheme/examples/hello-xft.scm b/scheme/examples/hello-xft.scm index 83d5f14..8fb6001 100755 --- a/scheme/examples/hello-xft.scm +++ b/scheme/examples/hello-xft.scm @@ -30,6 +30,9 @@ (xft-black (scx-xft-color-alloc-name dpy visual cm "black")) (xft-blue (scx-xft-color-alloc-name dpy visual cm "blue"))) + (scx-xft-pattern-print (xft-font-pattern font)) + (scx-xft-pattern-print (xft-font-pattern font2)) + (set-window-colormap! dpy win cm) (set-wm-name! dpy win (string-list->property '("scx Hello World Program"))) @@ -52,7 +55,7 @@ (scx-xft-draw-string-8bit xft-draw xft-black font 10 65 text) (scx-xft-draw-string-8bit - xft-draw xft-blue font 10 140 text)) + xft-draw xft-blue font2 10 140 text)) ((motion-event? e) #t) (else #f))) (loop))))))