project - plt-scheme : キャンバス上のマウス クリック イベントをキャッチする

Question

AI コース プロジェクトとして、plt-scheme で三目並べゲームを作成しています。GUI のアイデアは、それぞれにキャンバスがあり、ペインを使用する 9 つのボックスを持つグリッドです...ユーザーがキャンバスをクリックすると、それに応じて「X」または「O」が描画されます...

問題は、キャンバスでマウスクリックイベントをキャッチするにはどうすればよいですか? イベントで使用する必要があることがわかりましたが、まだ方法がわかりません。手がかりはありますか？

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)
  ))