+ 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

View File

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