;;; -*-Scheme-*-

(load "xlib")
(load "make-window")

(make-window (expose       (draw-rectangle window g-con 10 10 280 280))
             (leave-notify (unmap-window window)(destroy-window window))
             (enter-notify (draw-line window g-con 10 10 200 200))
             (button-press (write (list-properties window)))
)
      
