[xyzzy:06707] ダイアログボックスにて

[Yasukazu Majima <howa@xxxxxxxxxxxxxxx>]

こんばんは、まじまです。

その昔亀井さんにいただいた、ネットワークコンピュータにかっとぶかも
を適当にいじくって、以下のようにしたのですが

(defun filer-chdir-netcom (str)
  (multiple-value-bind (r d)
    (dialog-box '(dialog 00 187 157
                  (:caption "かっとぶ")
                  (:font 9 "ＭＳ ゴシック")
                  (:control
                    (:listbox list nil #x50a10103 7 7 119 143)
                    (:button IDOK "OK" #x50010001 130 7 50 14)
                    (:button IDCANCEL "CANCEL" #x50010000 130 24 50 14)))
                  (list (cons 'list
                     (long-operation
                         (list-server-resources str))))
                  nil)
  (and r (filer-chdir (concat "//" str "/" (string (cdr (assoc 'list
d)))))))

(defun filer-chdir-netcom-list ()
  (multiple-value-bind (r d)
    (dialog-box '(dialog 00 187 157
                  (:caption "ネットワークコンピ")
                  (:font 9 "ＭＳ ゴシック")
                  (:control
                    (:listbox list nil #x50a10103 7 7 119 143)
                    (:button IDOK "OK" #x50010001 130 7 50 14)
                    (:button IDCANCEL "CANCEL" #x50010000 130 24 50 14)))
                  (list (cons 'list
                     (long-operation
                         (list-servers))))
                  nil)
  (and r (filer-chdir-netcom (string (cdr (assoc 'list d))))))

こいつの上の関数で、
    (:caption str)
としたいのですが、上手く行きません。これは、無理難題？

あと、下の関数で、エクスプローラの方でnetwork computer を開いた時の
ように、右っかわにコメントを表示したいのですが、こちらも無理難題？

--
ま