;; Controllers -- accept input events and affect models

(define-class <zw.controller.base> () (model))

(define-method (initialize (contro <zw.controller.base>) args)
  (initialize-slots contro (list
                            'model #f))
  (call-next-method))

(define (controller-model contro)
  (slot-ref contro 'model))

(define (controller-model-set! contro model)
  (slot-set! contro 'model model))

(define-method (handle-input-event (controller <zw.controller.base>) event)
  'do-nothing)