https://github.com/dotcl/dotcl を試してみた。

my-first-dotcl.lisp

;;;; dotcl https://github.com/dotcl/dotcl で単純なGUIプログラミングを試した。
;;;; ボタンが配置されたウィンドウを表示する。
;;;; ボタンをクリックするとメッセージボックスが表示される。

;;
(let ((form (dotnet:new "System.Windows.Forms.Form"))
      (btn (dotnet:new "System.Windows.Forms.Button")))
  ;; プロパティの設定 (タイトル・幅・高さ)
  (setf (dotnet:invoke form "Text") "こんにちは dotcl")
  (setf (dotnet:invoke form "Width") 480)
  (setf (dotnet:invoke form "Height") 270)
  ;; ボタンの設定
  (setf (dotnet:invoke btn "Text") "クリックしてね")
  ;; ボタンの大きさを変える
  (setf (dotnet:invoke btn "Width") 100)
  (setf (dotnet:invoke btn "Height") 50)
  ;; 画面上の配置位置を指定
  (setf (dotnet:invoke btn "Left") 190)
  (setf (dotnet:invoke btn "Top") 85)
  ;; イベントハンドラの追加 `btn.Click += (object sender, EventArgs e) => { /* ... */ };`
  (dotnet:add-event btn "Click"
    (lambda (sender e)
      (dotnet:static "System.Windows.Forms.MessageBox" "Show" "ボタンがクリックされました！")))
  ;; ウィンドウにボタンを追加して表示
  (let ((controls (dotnet:invoke form "Controls")))
    (dotnet:invoke controls "Add" btn))
  ;; アプリケーションを実行してウィンドウを表示
  (dotnet:static "System.Windows.Forms.Application" "Run" form))