+ little improvements
This commit is contained in:
parent
359f7342ad
commit
92c5bfba88
|
@ -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))))))
|
||||
|
|
Loading…
Reference in New Issue