Доступ к значениям параметров виджета ltk

Question

Я пытаюсь сделать приложение с графическим интерфейсом в общих чертах с ltkи есть одна вещь, которую я просто не могу понять. Я знаю, что могу установить параметры ltk виджеты с configure, но я не могу найти способ прочитать значения.

Например, я создаю экземпляр холста с

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

Затем я хочу написать метод, который будет использовать ширину и высоту в некоторых вычислениях. Как мне получить к ним доступ?

Answer 1

Я задал этот же вопрос в списке пользователей ltk и получил ответ.

Короче говоря, функция cget является аналогом configure

Итак, чтобы установить ширину холста, которую вы делаете (настраиваете canvas:witdh value), и получить ее вы делаете (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]