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

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田さん、こんにちは。

    Fri, 30 Oct 1998 20:16:47 +0900 の
   “[xyzzy:00744] Re: ダイアログの使い道とファイラー”
    への返事です.

| > お手軽モードなら、ダイアログに EDIT を貼ればできますが。
| 
| えー、できるんでっか？
| もうちょっと、おさまったら、ぜひ聞かせて。

お手軽モード(^^;

(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))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx