Обработка пользовательского ввода

Аргумент :input-model задаёт обработчики событий ввода. Когда происходит событие, в обработчик получает аргументы:

• порт,
• декартовы координаты указателя мыши,
• нажатую клавишу.

Простейшая рисовалка:

(capi:contain 
  (make-instance 'capi:output-pane
   :input-model '(((:motion :button-1)
                   gp:draw-point))))