(in-package :clim-user)

(define-application-frame simple-demo () ()
  (:panes
   (pane (make-pane 'simple-pane :width 600 :height 400)))
  (:layouts
   (default pane)))

(defclass simple-pane (basic-pane immediate-sheet-input-mixin)
  ())

(defmethod handle-repaint ((pane simple-pane) region)
  (declare (ignore region))
  (draw-line* pane 100 100 200 200 :ink +red+))

(defmethod handle-event ((pane simple-pane) (event pointer-button-press-event))
  (format t "Ouch at ~D, ~D.~%" (pointer-event-y event) (pointer-event-y event))
  (force-output))

(defun run ()
  (run-frame-top-level
   (make-application-frame 'simple-demo)))