35 lines
560 B
Scheme
35 lines
560 B
Scheme
;;; -*-Scheme-*-
|
|
|
|
(require 'xlib)
|
|
|
|
(define dpy
|
|
(open-display))
|
|
|
|
(define (f)
|
|
(display-wait-output dpy #t))
|
|
|
|
(define root
|
|
(display-root-window dpy))
|
|
|
|
(define cmap
|
|
(display-colormap dpy))
|
|
|
|
(define white (white-pixel dpy))
|
|
(define black (black-pixel dpy))
|
|
|
|
(define rgb-white (query-color cmap white))
|
|
(define rgb-black (query-color cmap black))
|
|
|
|
(define win
|
|
(create-window
|
|
'parent root
|
|
'width 300 'height 300
|
|
'background-pixel white))
|
|
|
|
(define gc
|
|
(create-gcontext
|
|
'window win
|
|
'background white 'foreground black))
|
|
|
|
(map-window win)
|