[Date Prev] [Date Index] [Date Next]
[Thread Prev] [Thread Index] [Thread Next]

[xyzzy:03643] Re: List x 2



Toy <s5087@xxxxxxxxxxxxxxxxxxxxx> さん、こんにちは。masahito です。

|すばやいレス,ありがとうございました。

Toyさんの実行の方が早いような気もしますが^^;

(multiple-value-list
(dialog-box '(dialog 0 0 186 162
 	      (:caption "フォルダの選択")
 	      (:font 9 "MS Pゴシック")
 	      (:control
               (:listbox list nil #x50b10111 7 7 116 74)
	       (:listbox list2 nil #x50b10111 7 82 116 74)
 	       (:button IDOK "OK" #x50010001 129 7 50 14)
 	       (:button IDCANCEL "キャンセル" #x50010000 129 24 50 14)))
	     (list
	      (cons 'list '(("aaa". "bbb") ("ccc" . "ddd")))
	      (cons 'list2 '(("あああ". "bbb") ("いいい" . "ddd")))
 	     )
	    nil))
最後の引数は、よくわかんないんですが、nilでいいみたいです。
------------------------------------------------------------
逸見雅人    Masahito Henmi  henmi@xxxxxxxxxxxxx
♪あなたの願いも仕事もうまくいきますように・・・

Index Home