如何使用 ltk 从函数等到事件结束到 return？

Question

我正在使用 ltk 为 Common-Lisp 中的 Dijkstra 算法开发一个 GUI 应用程序。但是，要在 canvas 上放置一个节点，我需要它的标签，为此，执行必须等到用户输入字符串（并按 Return）以启动一个实例一个节点，使用这个值。如果没有侦听过程，returning 会在创建第二个顶层屏幕后立即发生。

下面是当用户选择菜单上的 "Add Node" 选项时执行的代码：

(defun node-add-mode (canvas)
  (configure canvas :cursor "cross")
  (bind canvas "<ButtonPress-1>"
    (lambda (evt)
      (let* ((pos-x (event-x evt))
         (pos-y (event-y evt))
         (data (read-node-data))
         (node (make-instance 'node :pos (list pos-x pos-y) :data data)))
        (populate-graph :node node)
        (create-graph canvas *graph*)))))

populate-graph函数只是将创建的节点添加到实际图形中，create-graph函数将其绘制在canvas上。这是我目前实现的 read-node-data 函数：

(defun read-node-data ()
  (let* ((m (make-instance 'toplevel))
     (f (make-instance 'frame :master m))
     (l (make-instance 'label
               :master f
               :text "Insert The Object Value"))
     (v (make-instance 'entry
               :master f
               :width *entry-width*)))
    (wm-title m "Entry")
    (pack f)
    (pack l)
    (pack v)
    (bind v "<Return>"
      (lambda (evt)
        (let ((text (text v)))
          (destroy m)
          text)))))

我想 return 仅在 "<Return>" 事件发生后才从该代码块输入文本，以便能够将其传递给节点实例化。

Answer 1

Tcl 有一个 vwait 机制来处理代码需要阻塞某些变量值的情况。据我所知，这在 LTK 中是不可用的。您可以使用另一个系统，例如 cl-async，但也许最简单的选择是将您的代码 inside-out 变为 event-based：仅在名称已知时构建节点。

(defun read-node-data (continuation)
  ...
  (bind v 
    "<Return>" 
    (lambda (evt &aux (text (text evt)))
      (destroy m)
      (funcall continuation text))))

然后：

(defun node-add-mode (canvas)
  (configure canvas :cursor "cross")
  (bind canvas "<ButtonPress-1>"
        (lambda (evt)
          (let ((pos-x (event-x evt))
                (pos-y (event-y evt)))
            (read-node-data
             (lambda (data)
               (let ((node (make-instance 'node
                                          :pos (list pos-x pos-y)
                                          :data data)))
                 (populate-graph :node node)
                 (create-graph canvas *graph*))))))))

如何使用 ltk 从函数等到事件结束到 return？

How to wait until event conclusion to return from function using ltk?

ltk

common-lisp