[xyzzy:01466] Re: ダイアログの使い道とファイラー

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

        Fri, 30 Oct 1998 21:49:18 +0900 の
        [xyzzy:00751] Re: ダイアログの使い道とファイラー
        に関するメールにお答えします。

えーと、だいぶ前に作っていただいたものですが、ダイアログ
が全選択状態になって出て来ます。これはしかたないのでしょ
うか？

> (defun foo (file)
>   (interactive "Ffoo: ")
>   (dialog-box '(dialog 0 0 249 181
> 		(:caption "ダイアログ")
> 		(:font 9 "ＭＳ Ｐゴシック")
> 		(:control
> 		 (:button IDOK "OK" #x50010001 192 7 50 14)
> 		 (:edit edit nil #x50b110c4 7 7 181 167)))
> 	      (list (cons 'edit (let (buffer)
> 				  (unwind-protect
> 				      (progn
> 					(setq buffer (create-new-buffer "*foo*"))
> 					(set-buffer buffer)
> 					(insert-file-contents file)
> 					(goto-char (point-min))
> 					(replace-buffer "\n" "\r\n")
> 					(buffer-substring (point-min) (point-max)))
> 				    (delete-buffer buffer)))))
> 	      nil))

-------
須田誠也
EZU11330@xxxxxxxxxxx