(require 'gtk)

(let*
    ((window (gtk-window-new 'toplevel))
     drawingarea gc)
  (gtk-signal-connect
   window "delete_event"
   #'(lambda (w) (if (gtk-standalone-p)
                     (gtk-exit)
                   (gtk-widget-destroy w))))
  (gtk-signal-connect
   window "expose_event"
   #'(lambda (w)
       (gdk-draw-line window gc 0 100 100))) ; FIXME

  (setq drawingarea (gtk-drawing-area-new))
  (gtk-container-add window drawingarea)
  (gtk-window-set-title window "gtk-test")
  (gtk-widget-show-all window)
  (when (gtk-standalone-p)
    (gtk-main)))