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

[YAMAMOTO Taizo <ymtz@xxxxxxxxxxxxxxx>]

やまもとです。

抜粋ですみません。

>(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))))
（略）
>      (dialog-box
>       *application-launcher-dialog-template*
>      (list *launch-application-list*)
>       nil)

      (dialog-box
       *application-launcher-dialog-template*
       (list (cons 'list *launch-application-list*))
       nil)

で動きます。多分、:listbox の二番目の要素 'list の名前が
紛らわしいのですよね。一応、拙作では以下のようなダイアログを
使ってます。ご参考までに。

(dialog-box `(dialog 0 0 245 166
		     (:caption ,(concat (buffer-name (selected-buffer)) " のリンク"))
		     (:font 9 "ＭＳ Ｐゴシック")
		     (:control
		      (:listbox list1 nil #x50b10111 1 1 242 145)
		      (:button open "開く(&O)" #x50010003 2 150 32 14)
		      (:button all "次から全部(&A)" #x50010003 36 150 56 14)
		      (:button browser "Browser(&B)" ,(if *html+-kick-browser* #x50010003 #x58010003) 92 150 56 14)
		      (:button IDOK "OK" #x50010001 141 150 50 14)
		      (:button IDCANCEL "キャンセル" #x50010000 193 150 50 14)))
	    (list (cons 'list1 lst)
		  (cons 'open *html+-select-link-open*)
		  (cons 'all *html+-select-link-all*)
		  (cons 'browser *html+-select-link-browser*))
	    `((list1 :must-match t :enable (open all ,(if *html+-kick-browser* 'browser nil)  IDOK))))

----
    YAMAMOTO Taizo / 山本 泰三
        mailto:ymtz@xxxxxxxxxxxxxxx
        mailto:yamamoto@xxxxxxxxx
        http://www1.odn.ne.jp/ymtz/