[xyzzy:04501] ランチャーを作りたい

[miyabin <miyabin@xxxxxxxxxxxxxxx>]

はじめまして。
川崎と申します。宜しくお願いします。

xyzzyを使い始めて約２ヶ月、環境はほぼ固まりつつありそろそろ新しい
ことを！と思って見様見真似でランチャーのような物を書くことに
しました。
が、リストボックスに表示されるはずのファイル一覧が空白のまま
ダイアログボックスが作成された動作をしています。
問題のある個所を指摘して頂きたいのですが・・・


(defvar *application-launcher-dialog-template*
  '(dialog 0 0 219 100
    (:caption "ランチャー(仮)")
    (:font 9 "ＭＳ Ｐゴシック")
    (:control
     (:listbox list nil #x50b10111 7 7 150 82)
     (:button IDOK "OK" #x50010001 162 7 50 14)
     (:button IDCANCEL "CANCEL" #x50010000 162 24 50 14))))

(defvar *launch-application-list*
       '(("autoexec.bat". "c:/autoexec.bat")
         ("適当に。". "c:/test/test.exe")
        )
)

(defun application-launcher-dialog ()
  (interactive)
  (multiple-value-bind (result data)
      (dialog-box
       *application-launcher-dialog-template*
      (list *launch-application-list*)
       nil)
    (when result
      (let ((cmd (string-trimn " " (cdr (assoc 'cmd data)))))
    (funcall fn cmd)))))



==============================
川崎 真
mailto:miyabin@xxxxxxxxxxxxxxx
==============================