[xyzzy:05771] Re: ツールメニューにアイテムを追加するには

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

川島さん、亀井さん、こんにちは。山本です。


From: KAMEI Tetsuya <kamei@xxxxxxxxxxxx>
Subject: [xyzzy:05766] Re: ツールメニューにアイテムを追加するには
Date: Fri, 22 Dec 2000 16:56:51 +0900
Message-ID: <200012220756.QAA20306@xxxxxxxxxxxxxxxxxxxx>

> | ｘｙｚｚｙにデフォルトで備わっているメニューに
> | アイテムを追加することは可能でしょうか。
> 
> できないみたいですね。そのうち get-menu みたいなのを作
> っておきます。

一応 .xyzzy に下のようなのを書いてますけど無理矢理ですね。
私ももう少しスマートな方法が欲しいです。

(add-hook '*init-app-menus-hook*
	  #'(lambda ()
	      (let ((tools (delete-menu *app-menu* 'ed::tools)))
		(insert-menu-item tools 5 nil "Telnet (&T)" 'tterm::tterm)
		(insert-popup-menu *app-menu*
				   (1+ (get-menu-position *app-menu* 'ed::window))
				   tools "ツール(&T)"))))

-- 
山本真二
mailto:sinj@xxxxxxxxxxxx