[xyzzy:06445] Re: システムメニューのキー設定は？

[HITAKA roa <hitaka_r@xxxxxxxxxxx>]

ひたか です。

さわださん、こんにちは

On Fri, 16 Mar 2001 21:21:52 +0900
k-sawada <s1070113@xxxxxxxxxxxx> wrote:

>みなさん、はじめまして。
>さわだ といいます。
>
>もう解決してらっしゃるようで、無駄かもしれませんが、
>xyzzyにメッセージを送る方向でLisp書いてみました。
>
>xyyzy referenceのその他->C-zでアイコン化させるには？を
>参考にしました。（参考というか少し変えただけですが・・）
>
>;;ここから　show-xyzzy.l
>(provide "show-xyzzy")
>(export '(maximize-xyzzy minimize-xyzzy restore-xyzzy))
>
>(require "wip/winapi")
>(c:define-dll-entry winapi:BOOL ShowWindow (winapi:HWND c:int) "user32")
>
>(defun maximize-xyzzy () ;;SW_MAXIMIZE
>  (interactive)
>  (show-xyzzy 3))
>(defun minimize-xyzzy () ;;SW_MINIMIZE
>  (interactive)
>  (show-xyzzy 6))
>(defun restore-xyzzy () ;;SW_RESTORE
>  (interactive)
>  (show-xyzzy 9))
>(defun show-xyzzy (style)
>  (ShowWindow (get-window-handle) style))
>
>;;ここまで
>
>上のをsite-lispディレクトリにほうりこんで、.xyzzyに
>下のように書いておけば、ALT+SPACEを使わずに最大化、最小化、復元できます。
>（もちろん、キーはお好みで）
>
>(require "show-xyzzy")
>(define-key ctl-x-map #\C-x
>	    'maximize-xyzzy)
>(define-key ctl-x-map #\C-r
>	    'restore-xyzzy)
>(global-set-key #\C-z
>		'minimize-xyzzy)
>
>
>--------------------------------
>沢田清高　　会津大学
>s1070113@xxxxxxxxxxxx
>--------------------------------
なるほど、こういったメッセージを送る方法もありましたね。キーバインドが思
いつかないので、とりあえず、保留ですがありがとうございました。

// -------------------------------------------------------------
    緋鷹ろあ ( Hitaka Roa )
           <mailto:hitaka_r@xxxxxxxxxxx >
----------------------------------------------------------------//