### Copyright (C) 1998 MOTOYAMA, Mashio<moto@ba.mbn.or.jp>
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software

proc menuDefinition {} {
    # ユーティリティ・メニュー定義
    Desc ユーティリティ・メニュー定義
    ShortDesc メニュー定義
    Line splitter
    ComboBox wMode\
	    -entryhelp {\
	    "bushu-mode" "部首入力モードへ移行します"\
	    "delete-dic-mode" "単語削除モードへ移行します"\
	    "disconnect-server" "サーバとの接続を解除"\
	    "greek-mode" "ギリシャ文字入力モードへ移行します"\
	    "hex-mode" "十六進数入力モードへ移行します"\
	    "jisho-ichiran" "辞書のマウント/アンマウント切替え"\
	    "kigo-mode" "記号入力モードへ移行します"\
	    "line-mode" "罫線入力モードへ移行します"\
    	    "renbun-mode" "連文節変換へ切替えます"\
	    "russian-mode" "ロシア文字入力モードへ移行します"\
	    "show-canna-file" "カスタマイズ・ファイルを表示します"\
	    "show-canna-version" "Canna のバージョンを表示します"\
	    "show-gakushu" "学習状態を表示します"\
	    "show-romkana-table" "ローマ字かな変換テーブルを表示します"\
	    "show-server-name" "サーバ名を表示します"\
	    "switch-server" "サーバを切替えます"\
	    "sync-dictionary" "辞書へ書き込みます"\
	    "touroku-mode" "単語登録モードへ移行します"}\
	    -width 10\
	    -textafter "を"\
	    -help "メニューに登録する機能を指定または入力します"
    Entry wName\
	    -width 10\
	    -textafter "と名前を付けて"\
	    -help "ユーティリティ・メニューへで表示される名前です"
    Entry wPlace\
	    -width 10\
	    -textafter "へ登録する"\
	    -help "モードまたはメニューを登録するメニューを入力します"
    ExtEntry subMenus\
	    -entries {wMode wName}\
	    -count 3
    ExtEntry defMenus\
	    -entries {splitter subMenus wPlace}\
	    -count 4\
	    -help "ユーティリティ・メニューの定義を行います。\
	    メニューの最後の親は必ず extend-mode\
	    になり、これをバインドしたキー(e.g. Help)から呼び出されます。"

    Save {
	forevery defMenus {
	    if {$wPlace != ""} {
		set i 0
		forevery subMenus {
		    if {$wName !="" && $wMode !=""} {
			set i [expr $i + 1]
			set addMenus($i) "        (\"$wName\" $wMode)"
		    }
		}
		if {$i != 0} {
		    print "(defmenu $wPlace"
		    foreach j [lsort [array names addMenus]] {
			if {$j != 0} {
			    print $addMenus($j)
			}
		    }
		    print ")"
		    unset addMenus
		}
	    }
	}
    }
}
