;;; -*-Scheme-*-
;;;
;;; Drawing area demo

(require 'motif)
(load-widgets shell drawing-area)

(define con (create-context))
(define dpy (initialize-display con #f 'draw 'demo))
(define top (create-shell 'draw 'demo (find-class 'application-shell) dpy))
(set-values! top 'width 300 'height 100)

(define dr (create-managed-widget (find-class 'drawing-area) top
  'expose-callback (list (lambda r (format #t "expose: ~s~%" r)))))

(set-values! dr 'resize-callback
  (list (lambda r (format #t "resize: ~s~%" r))))

(add-callback dr 'input-callback
  (lambda r (format #t "input:  ~s~%" r)))

(realize-widget top)
(context-main-loop con)
