사용자가 작성한 내용과 기능이 무엇을 표시하는지 Ltk에 알리는 방법은 무엇입니까?

Question

함수 종류는 다음과 같습니다.

(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 문서를 읽었지만 텍스트 위젯 사용법에 대한 예제가없는 것 같습니다.

Answer 1

다른 위젯과 마찬가지로 텍스트 위젯을 만듭니다. Lisp 측 객체는 Tk 측에 텍스트를 설정하는 라이터 메소드가있는 text 접근 자 함수를가집니다. 최소 예 :

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