default.mayu

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 窓使いの憂鬱 - default.mayu
# Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>
#

if ( !KBD109 ) and ( !KBD104 )
  include "109.mayu"
endif
if ( KBD104 )
#  def alias ↑	= Up
#  def alias ↓	= Down
#  def alias ←	= Left
#  def alias →	= Right
  def alias Yen	= BackSlash
endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# キーシーケンス
#

keyseq $WindowClose = A-F4


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Global キーマップ
#

keymap Global
 key *IC-C-Yen		= $ToggleIME		# IME ON/OFF をするキーの指定
 key C-S-M     C-A-M	= Applications		# アプリケーションキー
 key C-S-L     C-A-L	= &WindowLower		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise		# ウィンドウを一番上へ
# key C-S-R     C-A-R	= &WindowToggleTopMost &Wait(200) &WindowToggleTopMost
 key C-S-Z     C-A-Z	= &WindowMaximize	# ウィンドウの最大化 (IE全画面)
 key C-S-I     C-A-I	= &WindowMinimize	# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize	# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize	# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1)	#	〃
 key W-Left		= &MouseMove(-16, 0)	# マウスの移動
 key W-Right		= &MouseMove(16, 0)	#	〃
 key W-Up		= &MouseMove(0, -16)	#	〃
 key W-Down		= &MouseMove(0, 16)	#	〃
 key W-A-C-Left		= &MouseMove(-1, 0)	#	〃
 key W-A-C-Right	= &MouseMove(1, 0)	#	〃
 key W-A-C-Up		= &MouseMove(0, -1)	#	〃
 key W-A-C-Down		= &MouseMove(0, 1)	#	〃
 key C-A-A		= &WindowClingToLeft	# ウィンドウを左に寄せる
 key C-A-E		= &WindowClingToRight	# ウィンドウを右に寄せる
 key C-A-P		= &WindowClingToTop	# ウィンドウを上に寄せる
 key C-A-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
 key C-A-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 key C-S-K     C-A-K	= $WindowClose		# ウィンドウを閉じる
 key C-S-T		= &WindowToggleTopMost	# 最前面トグル
 key C-S-D		= &WindowIdentify &MayuDialog(Log, SHOW)
						# ウィンドウの素性を調べる
 key C-S-H		= &WindowSetAlpha(70)	# ウィンドウの半透明化
 key C-S-A-H		= &WindowSetAlpha(-1)	# 半透明化全て解除
 key C-S-U		= &WindowRedraw		# ウィンドウの再描画
 key C-S-S		= &LoadSetting &HelpMessage(Mayu, "再読込完了") # 設定ファイルの読み込み
 key C-S-F1		= &InvestigateCommand	# WM_COMMAND の調査
 if ( ! EmacsMove/ShiftSelection )
   key C-S-A   C-S-B	= &WindowClingToLeft	# ウィンドウを左に寄せる
   key C-S-F   C-S-E	= &WindowClingToRight	# ウィンドウを右に寄せる
   key C-S-P		= &WindowClingToTop	# ウィンドウを上に寄せる
   key C-S-N		= &WindowClingToBottom	# ウィンドウを下に寄せる
   key C-S-V		= &WindowMoveVisibly	# ウィンドウを見える位置へ移動
 endif

 if ( KBD109 ) and ( ! KBD104on109 )
   key *HankakuZenkaku	= *Esc			# Esc と半角/全角の入れ替え
   key *Esc		= *HankakuZenkaku		#	〃
 endif

 if ( KBD109 )
   mod control += 英数				# 英数を Control に
   key *英数		= *LControl		#	〃
 else
   mod control += CapsLock			# CapsLock を Control に
   key *CapsLock	= *LControl		#	〃
 endif

 if ( GANA )
   if ( KBD109 )
     mod alt += !!Muhenkan			# 無変換を Alt に
     key *Muhenkan	= *Muhenkan		#	〃
     key A-Muhenkan	= Muhenkan		#	〃
     key IC-A-K		= Muhenkan		# IME で変換中の A-K は無変換
     key *IC-Henkan	= $ToggleIME		# IME ON/OFF をするキーの指定
   endif
   key *ScrollLock	= $CapsLock		# ScrollLock を CapsLock に
#   key C-↑		= C-A-S-↑		# for VD
   key C-Up		= C-A-S-Up		# for VD
#   key C-↓		= C-A-S-↓		#	〃
   key C-Down		= C-A-S-Down		#	〃
#   key C-←		= C-A-S-←		#	〃
   key C-Left		= C-A-S-Left		#	〃
#   key C-→		= C-A-S-→		#	〃
   key C-Right		= C-A-S-Right		#	〃
   key C-S-Y		= &WindowResizeTo(0, -64) &WindowMoveVisibly \
			  &Wait(100) &WindowClingToBottom
 endif

keymap2 GlobalEscape : Global = &KeymapParent
 event prefixed		= &HelpMessage("Global", "ESC-")
 event before-key-down	= &HelpMessage
 key M-C-G		= &Ignore

keymap Global
 if ( MAP-ESCAPE-TO-META )
   key Escape		= &Prefix(GlobalEscape) &EditNextModifier(M-)
   if ( KBD109 ) and ( ! KBD104on109 )
     key HankakuZenkaku	= &Prefix(GlobalEscape) &EditNextModifier(M-)
   endif
 endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 全て(ではないがだいたい)デフォルトのキーマップの定義
#

keymap	KeymapDefault = &Default
 if ( KBD109 )
   mod control += 英数				# 英数を Control に
   key *英数		= *LControl		#	〃
 else
   mod control += CapsLock			# CapsLock を Control に
   key *CapsLock	= *LControl		#	〃
 endif
 if ( GANA )
   if ( KBD109 )
     mod alt += !!Muhenkan			# 無変換を Alt に
     key *Muhenkan	= *Muhenkan		#	〃
     key A-Muhenkan	= Muhenkan		#	〃
     key IC-A-K		= Muhenkan		# IME で変換中の A-K は無変換
   endif
 endif


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# コントロールの設定
#

include	"emacsedit.mayu"

window	EditControl	/:(Edit|TEdit|RichEdit(20[AW])?)$/ : EmacsEdit
window	SysListView32	/:SysListView32$/ : EmacsMove
window	SysTreeView32	/:SysTreeView32$/ : EmacsMove
window	ComboBox	/:ComboBox(:Edit)?$/ : EmacsEdit
 key M-N M-P		= A-Down		# ドロップダウンメニューを開く


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Windows の一般的設定
#

 keyseq $WM_VSCROLL/SB_PAGEUP		= &PostMessage(ToItself, 277, 2, 0)
 keyseq $WM_VSCROLL/SB_PAGEDOWN		= &PostMessage(ToItself, 277, 3, 0)

keymap2	GeneralC-X : EmacsC-X
 key C-S		= C-S			# 上書き保存(S)
 key C-W		= LAlt F A		# 名前を付けて保存(A)...
 key C-F		= C-O			# 開く(O)...
 key K			= C-N			# 新規作成(N)
 key C-C		= LAlt F X		# 終了(X)
# key C-C		= A-Q			# 終了(X)
# key C-C		= $WindowClose		# 終了(X)


## ダイアログボックス .........................................................

window	DialogBox	/:#32770:/ : Global
 key C-G		= Escape


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# MDI 上のウィンドウの設定
#

keymap2 MDI-WindowOperation : Global
 key C-S-L     C-A-L	= &WindowLower(MDI)		# ウィンドウを一番下へ
 key C-S-R     C-A-R	= &WindowRaise(MDI)		# ウィンドウを一番上へ
 key C-S-Z     C-A-Z	= &WindowMaximize(MDI)		# ウィンドウの最大化
 key C-S-I     C-A-I	= &WindowMinimize(MDI)		# ウィンドウの最小化
 key C-S-X     C-A-X	= &WindowVMaximize(MDI)		# ウィンドウの縦最大化
 key C-S-C     C-A-C	= &WindowHMaximize(MDI)		# ウィンドウの横最大化
 key C-S-Left  C-A-Left	= &WindowMove(-16, 0, MDI)	# ウィンドウの移動
 key C-S-Right C-A-Right= &WindowMove(16, 0, MDI)	#	〃
 key C-S-Up    C-A-Up	= &WindowMove(0, -16, MDI)	#	〃
 key C-S-Down  C-A-Down	= &WindowMove(0, 16, MDI)	#	〃
 key C-S-A-Left		= &WindowMove(-1, 0, MDI)	#	〃
 key C-S-A-Right	= &WindowMove(1, 0, MDI)	#	〃
 key C-S-A-Up		= &WindowMove(0, -1, MDI)	#	〃
 key C-S-A-Down		= &WindowMove(0, 1, MDI)	#	〃
 key C-S-A C-S-B C-A-A	= &WindowClingToLeft(MDI)	# ウィンドウ左に寄せる
 key C-S-E C-S-F C-A-E	= &WindowClingToRight(MDI)	# ウィンドウ右に寄せる
 key C-S-P     C-A-P	= &WindowClingToTop(MDI)	# ウィンドウ上に寄せる
 key C-S-N     C-A-N	= &WindowClingToBottom(MDI)	# ウィンドウ下に寄せる
 key C-S-V     C-A-V	= &WindowMoveVisibly(MDI)	# ウィンドウ見える位置
 key C-S-K     C-A-K	= C-F4				# ウィンドウを閉じる

window	MDI	/:MDIClient:/ : Global
 key C-S-Q	C-A-Q	= &Prefix(MDI-WindowOperation)


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 各アプリケーションの設定
#


## 窓使いの憂鬱 ...............................................................
## http://mayu.sourceforge.net

# 仮想キー調査ウィンドウでは全てデフォルト
window	MayuInvestigate /mayu\.exe:#32770:mayuFocus$/ : KeymapDefault

# ログウィンドウ Esc で閉じられるように
window	MayuLog ( /mayu\.exe:#32770:Button/ \
		&& /ログ - 窓使いの憂鬱/ ) : Global
 key C-G		= $WindowClose
 key Esc		= $WindowClose


## Console ....................................................................

 keyseq $ConsoleWindowClass/copy	= &PostMessage(ToItself, 274, 65520, 0)
 keyseq $ConsoleWindowClass/paste	= &PostMessage(ToItself, 274, 65521, 0)
 keyseq $ConsoleWindowClass/region	= &PostMessage(ToItself, 274, 65522, 0)
 keyseq $ConsoleWindowClass/scroll	= &PostMessage(ToItself, 274, 65523, 0)
 keyseq $ConsoleWindowClass/search	= &PostMessage(ToItself, 274, 65524, 0)
 keyseq $ConsoleWindowClass/select-all	= &PostMessage(ToItself, 274, 65525, 0)

window  ConsoleWindowClass /^ConsoleWindowClass$/ : Global
 key C-S-K     C-A-K	= A-Space C		# ウィンドウを閉じる
 key S-Insert		= $ConsoleWindowClass/paste
 key S-Prior		= $WM_VSCROLL/SB_PAGEUP
 key S-Next		= $WM_VSCROLL/SB_PAGEDOWN
 key S-~NL-Num9		= $WM_VSCROLL/SB_PAGEUP
 key S-~NL-Num3		= $WM_VSCROLL/SB_PAGEDOWN


## Explorer, Internet Explorer ................................................

 keyseq $Explorer/show-folder-bar = &PostMessage(ToMainWindow, 273, 41525, 0)

window	ExplorerList /EXPLORER.*:SHELLDLL_DefView:.*SysListView32$/ \
			: SysListView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	ExplorerTree /EXPLORER.*:BaseBar:.*SysTreeView32$/ : SysTreeView32
 key S-R		= F2			# 名前の変更
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化
 key M-E		= $Explorer/show-folder-bar # フォルダを表示

window	InternetExplorer /:Internet Explorer_Server$/ : EmacsEdit
 key C-S-Z		= &Sync&WindowMaximize	# ウィンドウの最大化
 key C-A-Z		= C-&WindowMaximize	# ウィンドウの全画面化

window	MicrosoftJava	/:Microsoft VM For Java\(TM\) Host Window Class:/ \
	: EmacsEdit


## Emacs ......................................................................
## http://www.gnu.org/software/emacs/windows/ntemacs.html

keymap Emacsen : Global
 key C-Yen		= &Default
 if ( MAP-ESCAPE-TO-META )			# ESC が M- になるのを阻止する
   if ( KBD109 ) and ( ! KBD104on109 )
     key *HankakuZenkaku	= *Esc
     key *Esc		= *HankakuZenkaku
   else
     key Escape		= &Default
   endif
 endif

window	Meadow	/:Meadow$/ : Emacsen
 key IC-M-X		= $ToggleIME M-X
window	MULE	/:MULE$/ : Emacsen
window	Emacs	/:Emacs$/ : Emacsen


## Notepad ....................................................................

 keyseq $Notepad/new		= &PostMessage(ToParentWindow, 273, 9, 0)
 keyseq $Notepad/open		= &PostMessage(ToParentWindow, 273, 10, 0)
 keyseq $Notepad/save-as	= &PostMessage(ToParentWindow, 273, 1, 0)

keymap2	NotepadC-X : GeneralC-X
 event prefixed		= &HelpMessage("メモ帳 C-x-", \
	"C-x C-s\t上書き保存\r\n"	\
	"C-x C-f\t開く\t\r\n"		\
	"C-x k\t\t新規作成\r\n"		\
	"C-x C-c\t終了")
 event before-key-down	= &HelpMessage
 key C-S		= $Notepad/save-as	# 上書き保存(S)
 key C-F		= $Notepad/open		# 開く(O)...
 key K			= $Notepad/new		# 新規作成(N)
 key C-C		= $WindowClose		# メモ帳の終了(X)

window	Notepad /:Notepad:Edit$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(NotepadC-X)
 key C-S		= F3			# 検索(F)...
 key M-J		= C-G			# 行へ移動


## ASTEC-X ....................................................................
## http://www.astec.co.jp/

 keyseq $ASTEC-X/copy-to-x	= &PostMessage(ToItself, 274, 16, 0)

window	ASTEC-X /:ASTEC-X$/ : Global
 key C-Yen		= &Default
 key *IC-IL-C-Yen	= $ToggleIME		# IMEがオンならばIMEをオフ


## Becky! Internet Mail .......................................................
## http://www.rimarts.co.jp/index-j.html

window BeckyInternetMail /Rebecca\.exe:BeckyComposeFrameClass:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)

window BeckyInternetMail2 /B2\.exe:Becky2ComposeFrame:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Power Point ......................................................

keymap2	PowerPointC-X : GeneralC-X
 key C-C		= $WindowClose		# 終了(X)

window	PowerPoint /POWERPNT\.EXE:.*:(paneClassDC|REComboBox20W|RichEdit20W)$/\
			: EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

window	PowerPoint2 /POWERPNT\.EXE:PP9FrameClass.*/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(PowerPointC-X)

## Microsoft Visual Basic 6.0 .................................................

window	VisualBasic /vb6\.exe:.*:VbaWindow$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Word .............................................................

window	MicrosoftWord /WINWORD\.EXE:.*:_WwG$/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Excel ............................................................

window	MicrosoftExcel /EXCEL\.EXE:XLMAIN:/ : EmacsEdit
 if ( !ZXCV ) key C-X	= &Prefix(GeneralC-X)


## Microsoft Pinball ..........................................................

window MSPinball /PINBALL\.EXE:1c7c22a0-9576-11ce-bf80-444553540000$/ : Global
 key A-Enter		= F4


## Netscape Navigator .........................................................
## http://www.netscape.com/

window	NetscapeNavigator /Netscape\.exe:/ : Global
 key C-H		= BackSpace		# BackSpace
 key C-S		= C-F			# 検索


## Mozilla ....................................................................
## http://www.mozilla.org/

window	Mozilla /:MozillaWindowClass$/ : EmacsEdit


## Personal Dictionary ........................................................
## http://member.nifty.ne.jp/TaN/

window	PersonalDictionary /PDICW32\.EXE:PDICW:ComboBox:Edit/ : EmacsEdit
 key C-K		= S-End S-Delete	# 行末まで削除
 key C-Y		= S-Insert		# PASTE


## Real Player ................................................................
## http://www.real.com/

window RealPlayer /realplay.exe:PNGUIClass/ : Global
 key A-Enter		= LAlt V Z F
 key C-R		= C-P


## TeraTerm ...................................................................
## http://hp.vector.co.jp/authors/VA002416/

window	TeraTerm /TTermPRO\.exe:VTWin32$/ : Global
 key C-Slash		= C-S-HyphenMinus	# C-_ を入力
 key S-Prior		= C-Prior		# スクロール
 key S-Next		= C-Next		# スクロール
 key IC-M-X    IL-M-X	= $ToggleIME M-X	# for emacs
 if ( KBD109 )
   key C-S-ReverseSolidus = C-S-HyphenMinus	# C-_ を入力
 endif


## Waffle .....................................................................
## http://sakura.tsg.ne.jp/~tjkawa/witalk2/
## Emacs 風キーバインディングにしておくこと

 keyseq	$WaffleMark/cancel		= Left Right

window	Waffle /WITALK2\.EXE:.*:RichEdit(20A)?$/ : Global
keymap2	WaffleMark : Waffle = $WaffleMark/cancel &KeymapParent

keymap	Waffle
 key Home		= &Default		# 文頭
 key End		= &Default		# 文末
 key C-Space		= &Prefix(WaffleMark)	# Mark
 key C-A		= &Default		# 行頭
 key C-B		= &Default		# ←
 key C-C		= &Default		# (Waffle Prefix)
 key M-B		= &Default		# ←(単語)
 key C-D		= &Default		# 削除
 key M-D		= &Default		# 削除(単語)
 key C-E		= &Default		# 行末
 key C-F		= &Default		# →
 key M-F		= &Default		# →(単語)
 key C-G		= &Default		# CANCEL
 key C-H		= &Default		# BS
 key C-J		= &Default		# RETURN
 key C-K		= &Default		# 行末まで削除
 key M-L		= &Default		# 小文字
 key C-M		= &Default		# RETURN
 key C-N		= &Default		# ↓
 key C-O		= &Default		# 一行増やす
 key C-P		= &Default		# ↑
 key C-Q		= &Prefix(KeymapDefault) # mayu に左右されないキー入力
 key C-S		= &Default		# 検索
 key C-T		= &Default		# 文字入れ替え
 key C-V		= Next			# 次頁 (Waffle のバグ?)
 key M-V		= &Default		# 前頁
 key C-W		= &Default		# CUT
 key M-W		= &Default		# COPY
 key C-Y		= &Default		# PASTE
 key M-U		= &Default		# 大文字
 key S-Home		= &Default		# 文頭(選択)
 key S-End		= &Default		# 文末(選択)
 key S-M-Comma		= &Default		# 文頭
 key S-M-Period		= &Default		# 文末
 key M-BackSpace	= &Default		# BS(単語)
 key C-Slash		= &Default		# UNDO

keymap2	WaffleMark
 key Home		= S-C-Home	&Prefix(WaffleMark)	# 文頭
 key End		= S-C-End	&Prefix(WaffleMark)	# 文末
 key C-A		= S-Home	&Prefix(WaffleMark)	# 行頭
 key C-B		= S-Left	&Prefix(WaffleMark)	# ←
 key M-B		= S-C-Left	&Prefix(WaffleMark)	# ←(単語)
 key C-E		= S-End	&Prefix(WaffleMark)		# 行末
 key C-F		= S-Right	&Prefix(WaffleMark)	# →
 key M-F		= S-C-Right	&Prefix(WaffleMark)	# →(単語)
 key C-G		= $WaffleMark/cancel &Undefined		# キャンセル
 key C-N		= S-Down	&Prefix(WaffleMark)	# ↓
 key C-P		= S-Up		&Prefix(WaffleMark)	# ↑
 key C-V		= S-Next	&Prefix(WaffleMark)	# 次頁
 key M-V		= S-Prior	&Prefix(WaffleMark)	# 前頁
 key C-W		= C-W Left Right			# CUT
 key M-W		= M-W Left Right			# COPY
 key S-M-Comma		= S-C-Home	&Prefix(WaffleMark)	# 文頭
 key S-M-Period		= S-C-End	&Prefix(WaffleMark)	# 文末
 key Left		= S-Left	&Prefix(WaffleMark)	# ←
 key Up			= S-Up		&Prefix(WaffleMark)	# ↑
 key Right		= S-Right	&Prefix(WaffleMark)	# →
 key Down		= S-Down	&Prefix(WaffleMark)	# ↓


## Xyzzy ......................................................................
## http://www.jsdlab.co.jp/~kamei/

window Xyzzy /xyzzy\.exe:/ : Global
 key C-S-K     C-A-K	= C-X C-C		# ウィンドウを閉じる


## Windows Media Player .......................................................

window WindowsMediaPlayer /mplayer2.*:(Media Player 2|VideoRenderer)/ : Global
 key C-A		= Space		# Play
 key C-R		= Space		# Play
 key C-P		= Space		# Pause
 key C-S		= Period	# Stop


## Windows Mine Sweeper .......................................................

window WindowsMineSweeper /winmine.exe:マインスイーパ$/ : Global
 key D-Z		= &VK(RButton)
 key U-Z		= &Ignore
 key D-X		= &VK(MButton)
 key U-X		= &Ignore
 key D-C		= &VK(LButton)
 key U-C		= &Ignore
 key Q			= F2
 key Num1		= &MouseMove(-16,  16)
 key Num2		= &MouseMove(  0,  16)
 key Num3		= &MouseMove( 16,  16)
 key Num4		= &MouseMove(-16,   0)
 key Num6		= &MouseMove( 16,   0)
 key Num7		= &MouseMove(-16, -16)
 key Num8		= &MouseMove(  0, -16)
 key Num9		= &MouseMove( 16, -16)


## ICQ2000 ....................................................................
## http://web.icq.com/

if ( GANA )
  window ICQMessageSession \
	( /ICQ\.exe:#32770:Edit$/ && /Message Session/ ) : EmacsEdit
   key Enter		= M-S
endif


## Acrobat Reader .............................................................
## http://www.adobe.co.jp/support/custsupport/library/acrwin.html

window AcrobatReader /AcroRd32.exe:.*:MDIClient:/ : EmacsMove
 key Space		= PageDown
 key BS			= PageUp


## Edmax ......................................................................
## http://www.bekkoame.ne.jp/~t.mzaki/

window EdMax-edit /edmax\.exe:.*Afx:400000:b:0:1900010:0$/ : EmacsEdit


## VisualBasic ................................................................

window VBTextBox /:ThunderRT6FormDC:(ThunderRT6TextBox|RichTextWndClass)$/ \
	: EmacsEdit

## StarOffice/StarSuite/OpenOffice ............................................

window StarOffice /soffice\.exe:SALFRAME$/ : EmacsEdit

## Opera ......................................................................

window	Opera /Opera\.exe:/ : EmacsEdit