1

関数の種類は次のようなものです。

(defun display-all ()
  "Display all items in the database."
  (dolist (item *database*)
    (format t "~{~a:~10t~a~%~}~%" item)))

(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))

(defun prompt-for-item ()
  (make-database
   (prompt-read "Name")
   (prompt-read "Price")))

Ltk のドキュメントを読みましたが、テキスト ウィジェットの使用例はないようです。

4

1 に答える 1

3

他のすべてのウィジェットと同様に、テキスト ウィジェットを作成します。Lisp側のオブジェクトにはtext、Tk側にテキストを設定する writer メソッドを持つアクセサ関数があります。最小限の例:

(with-ltk ()
  (let* ((text-widget (make-instance 'text :width 15 :height 2))
         (b1 (make-instance 'button
                            :text "Print"
                            :command #'(lambda () (princ (text text-widget)))))
         (b2 (make-instance 'button :text "Reset"
                            :command #'(lambda () (setf (text text-widget) "reset")))))
    (pack text-widget)
    (pack b1)
    (pack b2)))
于 2008-11-10T20:19:43.957 に答える