Question

我正在尝试使用ltk在常见的lisp中创建一个GUI应用程序，并且有一点我无法弄清楚。我知道我可以使用ltk设置configure小部件的选项，但我无法找到读取值的方法。

例如，我使用

创建一个画布实例

(make-instance 'canvas :width 400 :height 400)

然后我想编写一个在某些计算中使用宽度和高度的方法。我如何访问这些？

Answer 1

我在ltk用户列表中问了同样的问题并得到了答案。

简而言之，cget函数是configure

的对应部分

因此，要设置画布宽度（配置画布：witdh值）并检索它（cget canvas：width）。

此致

安德烈

Answer 2

(require :ltk)
(in-package :ltk-user)
(defparameter *can*
 (make-instance 'canvas :width 400 :height 400))

实际上，宽度和高度都存储在字符串中。我不知道你以后是否可以调整它。也许在ltk邮件列表上询问。

#<CANVAS {1005A00C21}>
--------------------
Class: #<STANDARD-CLASS CANVAS>
--------------------
 Group slots by inheritance [ ]
 Sort slots alphabetically  [X]

All Slots:
[ ]  INIT-COMMAND      = "canvas ~A  -height 400 -width 400"
[ ]  MASTER            = NIL
[ ]  NAME              = "wc"
[ ]  SCROLLREGION-X0   = NIL
[ ]  SCROLLREGION-X1   = NIL
[ ]  SCROLLREGION-Y0   = NIL
[ ]  SCROLLREGION-Y1   = NIL
[ ]  WIDGET-CLASS-NAME = "canvas"
[ ]  WIDGET-PATH       = NIL
[ ]  XSCROLL           = NIL
[ ]  YSCROLL           = NIL

[set value]  [make unbound]

访问ltk小部件选项的值

2 个答案: