scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ little improvements

This commit is contained in:
eknauel 2003-10-26 16:43:21 +00:00
parent 359f7342ad
commit 92c5bfba88
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/examples/hello-xft.scm
View File

@ -30,6 +30,9 @@
(xft-black (scx-xft-color-alloc-name dpy visual cm "black")) (xft-black (scx-xft-color-alloc-name dpy visual cm "black"))
(xft-blue (scx-xft-color-alloc-name dpy visual cm "blue"))) (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-window-colormap! dpy win cm)
(set-wm-name! dpy win (string-list->property '("scx Hello World Program"))) (set-wm-name! dpy win (string-list->property '("scx Hello World Program")))
@ -52,7 +55,7 @@
(scx-xft-draw-string-8bit (scx-xft-draw-string-8bit
xft-draw xft-black font 10 65 text) xft-draw xft-black font 10 65 text)
(scx-xft-draw-string-8bit (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) ((motion-event? e) #t)
(else #f))) (else #f)))
(loop)))))) (loop))))))