### 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

## table configuration for Japanese input
proc kanaKan {} {
    # 日本語入力方式
    Desc "日本語入力の方法と変換テーブルの設定"
    ShortDesc "変換テーブル"
    Header jinput\
	    -text "日本語入力の方法"
    Radio inputMethod\
	    -text "変換テーブルの選択"\
	    -entryhelp {\
	    "かな入力(jis)" "一般的なかな入力です"\
	    "かな入力(newjis)" "キー配列の違うかな入力です"\
	    "ローマ字入力(default)" "デフォルトのローマ字入力です"\
	    "ローマ字入力(just)" "ジャスト似のローマ字入力です"\
	    "ローマ字入力(jdaemon)" "すこしだけ対応関係が違います"\
	    "ローマ字入力(lan5)" "SHIFT-A を押すと\"ぁ\" が入力できるテーブルです"\
	    "特殊入力(kaisoku)" "\"あいうえお\"が \"fdsag\" へ割り当てられているテーブルです(kaisoku.kpdef 参照)"\
	    "特殊入力(tut)" "母音が \"kiuhj\" で、これと組み合わせて入力するテーブルです(tut.kpdef 参照)"\
	    "ユーザ定義(user)" "この一覧に無いテーブルを利用する場合に選択します"}\
	    -help "日本語入力の方法を選択します。\
	    既存の変換テーブル以外にもユーザ自身が定義した変換テーブルを指定できます"\
	    -count 3
    File-Dir-Browser userTab\
	    -text "ユーザ定義変換テーブル"

    Header einput\
	    -text "英単語-カタカナ変換"
    CheckBox useEng\
	    -text "英単語変換を使用する"\
	    -help "英単語からカタカナへの変換を行う場合にチェックします"\
	    -default 0
    CheckBox checkEng\
	    -text "英単語変換テーブルを指定する"\
	    -help "デフォルトの english.kp\
	    ではなく、ユーザが作成したテーブルを使う場合にチェックします"\
	    -default 0
    File-Dir-Browser engTab
    Help engTab "指定しなければ Canna のライブラリ・ディレクトリの\
	    english.kp が選択されます"
    Frame engPlace\
	    -entries {checkEng frame_engTab}
    Save {
	switch -- $inputMethod(index) {
	    0 {set romanTab kana.kp}
	    1 {set romanTab newjis.kp}
	    2 {set romanTab default.kp}
	    3 {set romanTab just.kp}
	    4 {set romanTab jdaemon.kp}
	    5 {set romanTab lan5.kp}
	    6 {set romanTab kaisoku.kp}
	    7 {set romanTab tut.kp}
	    8 {set romanTab $userTab}
	    default {set romanTab default.kp}
	}
	print "(setq romkana-table \"$romanTab\")"
	if {$useEng == 1} {
	    if {$checkEng} {
		print "(setq english-table \"$engTab\")"
	    } else {
		print "(setq english-table \"english.kp\")"
	    }
	}
    }
}