common-lisp - ltk ウィジェット オプションの値へのアクセス

Question

と共通の Lisp で GUI アプリケーションを作成しようとしていますが、ltk理解できないことが 1 つあります。ltkでウィジェットのオプションを設定できることは知っていますがconfigure、値を読み取る方法がわかりません。

たとえば、キャンバスのインスタンスを作成します

(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]