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))))))