Question

我正在Common Lisp中制作一个简单的applet，我想通过鼠标移动来控制它。我对窗口使用LTK。我找不到任何可检索鼠标位置的函数。例如，Emacs Lisp具有（鼠标像素位置）。我找到了this on rosetta code，但是没有Common Lisp条目。我该怎么办？

Answer 1

此提示的提示：Mouse Position Python Tkinter

并查看ltk的文档：http://www.peter-herth.de/ltk/ltkdoc/node16.html

我得到以下示例来检索由鼠标移动触发的任何事件：

(ql:quickload "ltk")
(in-package :ltk-user)

(defun motion (event)
    (format t "~a~&" event))

(with-ltk ()
    (bind *tk* "<Motion>" #'motion))

这会打开一个小窗口，里面没有任何东西。一旦将鼠标放在其中，就会发生很多事件：

#S(EVENT
   :X 0
   :Y 85
   :KEYCODE ??
   :CHAR ??
   :WIDTH ??
   :HEIGHT ??
   :ROOT-X 700
   :ROOT-Y 433
   :MOUSE-BUTTON ??)
…

#S表示我们处理了一个名为EVENT的结构，因此我们可以使用(event-x event)，event-mouse-button等访问其插槽。请参见https://lispcookbook.github.io/cl-cookbook/data-structures.html#slot-access

另外，您可能想在freenode上加入CL社区，那里有一些游戏开发人员。

Answer 2

在大多数情况下，基于事件的方法可能更合适，但是您也可以直接查询当前位置：

(defpackage :so (:use :cl :ltk))
(in-package :so)

(with-ltk ()
  (loop
    (print 
      (multiple-value-list
        (screen-mouse)))
    (sleep 0.5)))

这将启动一个图形顶层，并每500毫秒打印一次当前屏幕坐标，直到退出顶层窗口。 screen-mouse函数接受可选的w参数（一个窗口）。

ltk常见的Lisp鼠标位置

2 个答案: