访问 ltk 小部件选项的值答案

【问题标题】：Acessing values of ltk widget options访问 ltk 小部件选项的值
【发布时间】：2011-08-03 13:21:39
【问题描述】：

我正在尝试使用ltk 用通用 lisp 制作一个 GUI 应用程序，但有一件事我无法弄清楚。我知道我可以使用configure 设置ltk 小部件的选项，但我无法找到读取这些值的方法。

例如，我用

创建了一个画布实例

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

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

【问题讨论】：

标签： common-lisp ltk

【解决方案1】：

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

简而言之，cget函数是configure的对应函数

所以，要设置画布宽度（配置画布：witdh 值）并检索它（cget 画布：宽度）。

问候，

安德烈

【讨论】：

谢谢！它似乎工作。它似乎将值作为字符串返回。据我所知，ltk 文档中没有提到这一点。

【解决方案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]

【讨论】：