访问ltk小部件选项的值

Question

我正在尝试用ltk做一个通用的lisp图形用户界面应用程序，但有一件事我就是搞不懂。我知道我可以用configure设置ltk小部件的选项，但我想不出读取这些值的方法。

例如，我用以下命令创建了一个画布实例

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

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

Answer 1

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

简而言之，cget函数相当于configure

因此，要设置画布宽度(配置canvas :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]