;;; -*-Scheme-*-

(require 'xlib)

(define (pic)
  (let*
    ( (display (open-display))
      (black   (black-pixel display))
      (white   (white-pixel display))
      (window  (create-window 'parent (display-root-window display)
                              'width 400 'height 400
                              'background-pixel white
                              'event-mask '(exposure enter-window)))
      (g-con   (create-gcontext 'window window
                                'background white
                                'foreground black))
      (draw    (lambda ()  (clear-window window)
                           (draw-line window g-con  10 10 100 20)))
      (butt    (lambda ()  (fill-rectangle window g-con 100 100 20 20)))
    )
                           
    (map-window window)
    (handle-events display #t #f
      (expose       (lambda args (draw) #f))
      (enter-notify (lambda args (butt) #f))
    )
    (close-display display)
  )
)
(pic)
