plt-схема: перехват события нажатия кнопки мыши на холсте

Question

Я пишу игру в крестики-нолики в виде plt-схемы как мой проект курса ИИ. Идея для графического интерфейса - сетка с 9 полями, каждая с холстом, с использованием панелей ... Когда пользователь нажимает на холст, «X» или «O» будут нарисованы соответственно ...

Вопрос в том, как отловить событие щелчка мыши на холсте? Я узнал, что мне нужно использовать on-event, но все еще не знаю как? Любые подсказки?

Answer 1

Хорошо, я понял ...

(define canvas-box%
  (class canvas%
    (define/override (on-event e)
           (when (equal? (send e get-event-type) 'left-down) (foobar-callback)))
    (super-new)))

Answer 2

Я получил все команды мыши и клавиатуры для использования в любом месте здесь.

(define my-canvas%

(class canvas%
  (define/override (on-event event)
    (and 
        (send test reader (list (number->string (send event get-x))
                     (number->string (send event get-y)) ))
        (send test reader (list (send event get-event-type)))))
(define/override (on-char event)
  (define pressed (send event get-key-code))
   (if (char? pressed) (send test reader (list (make-string 1 pressed))) '()))  
  (super-new)))

(define tester%
 (class object%
  (super-new)
  (define command '())

  (define/public (reader x)
    (and (set! command x)
         (display x))
   )
  (define/public (outer)
    command)
  ))