common lisp で ｌｔｋ

 

= lisp ltk インストール

quicklisp をインストール、以下の手順により

Quicklisp beta

https://www.quicklisp.org/beta/

あと以下のようにしたのか？

http://dev.ariel-networks.com/wp/archives/365

(load "quicklisp.lisp")

(ltk:ltktest)として以下の画面が出ればｏｋ

https://masatoi.hateblo.jp/entry/20110818/1313737503

Ltk:新規にウィンドウを表示する

https://lisphub.jp/common-lisp/cookbook/index.cgi?Ltk%3A%E6%96%B0%E8%A6%8F%E3%81

[2021-05-18 12:57]

ltk_window.lisp

;簡単なウィンドウ

;http://www.peter-herth.de/ltk/ltkdoc/node5.html

(in-package :ltk)

;Tkでは、すべてのGUI要素がツリーに配置されます。したがって、すべてのGUI

;要素には、ツリー構造内での位置を指定する親ノードまたは「マスター」

;があります。したがって、ボタンの親となるオブジェクトをそこに配置します。

;nilオブジェクトの代わりに、トップレベルのコンポーネントのみを指;定できます。

;わかったような、わからないような？？？

(defun hello-1 ()

  ;GUIライブラリが適切にセットアップされ、Tkツールキットとの通信が確立?

  (with-ltk ()

    ;クラスボタンのインスタンスを作成する?    

    (let ((b (make-instance 'button 

                           :master nil 

                           ;ボタンに表示するテキスト

                           :text "Press Me"

                           ;ボタンが押されるたびに、呼び出す関数

                           :command (lambda () (format t "Hello World!~%")))))

     (pack b)))

  )

(hello-1)

~