[xyzzy:06134] Re: バージョンナップのお知らせ

[Nakanishi Takahiro <naka@xxxxxxxxxxxxx>]

亀井さん、こんにちは。中西です。

・印刷にプロポーショナルフォントを選べるようにしてみた。

どうもありがとうございます。首を長ーくして待ってました。

さて、

> | で、ついでといってはなんですが、メニューの端っことかに
> | ×（閉じる）ボタンはつけられませんか？
> 
> できんことはないでしょうが、インターフェース的に変なよ
> うな気が。

ですが、私も切望していたりします。
実際、今私の siteinit.l には、

(defun kill-selected-buffer ()
  (interactive)
  (kill-buffer (selected-buffer)))

(define-command-bar 'my-tool-bar "my(&M)")

(defun my-tool-bar ()
  (create-tool-bar
   'my-tool-bar
   (merge-pathnames "toolbar.bmp" (etc-path))
   '(("新規作成" 24 new-file)
	 ("開く" 22 open-file-dialog)
	 ("閉じる" 6 kill-selected-buffer)
	 ("上書き保存" 20 save-buffer-dialog :modified)
	 ("全て保存" 75 save-all-buffers)
	 :sep
	 ("印刷" 29 print-selected-buffer-dialog)
	 :sep
	 ("切り取り" 7 kill-selection-to-clipboard :modify-selection)
	 ("コピー" 9 copy-selection-to-clipboard :selection)
	 ("貼り付け" 2 paste-from-clipboard :clipboard)
	 :sep
	 ("元に戻す" 0 undo :undo)
	 ("やっぱり元に戻さない" 1 redo :redo)
     ("検索" 5 search-dialog)
     ("前を検索" 3 search-backward-again tool-bar-update-search)
     ("次を検索" 4 search-forward-again tool-bar-update-search)
     :sep
     ("grep" 74 grep-dialog)
	 ("filer" 28 open-filer)
	 ("他のバッファを隠す" 40 delete-other-windows)
	)))

てな感じで、ペケボタンをツールバーにつけてつかってます。
右上の方にもあると、マウスが一瞬迷わなくて済むのですが。
---
naka@xxxxxxxxxxxxx