### 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
## input method for japanese

## configuration for Japanese alphabet to kanji translation dictionary
proc dictionary {} {
    # 変換辞書
    Desc "変換辞書の設定"
    ShortDesc "変換辞書の設定"
    Radio whichDic\
	    -text "辞書の指定方法"\
	    -entryhelp {\
	    "Canna 附属の辞書から選択する"\
	    "Canna 附属のシステム辞書のみを利用する場合に選択します"\
	    "全ての辞書を指定する"\
	    "附属の辞書以外や文法情報辞書などを使う場合に選択します"}\
	    -help "辞書の指定方法を選択します。"

    Header defaultDic\
	    -text "附属辞書の選択"\
	    -help "ここでの選択内容は、\"Canna の附属辞書から選択する\"\
	    をチェックしている場合にだけ有効です"
    CheckBox irohaDic\
	    -text "いろは辞書を使う"\
	    -help "基幹辞書、部首辞書、郵便番号辞書からなります"\
	    -default 1
    CheckBox fuzokuDic\
	    -text "付属語辞書を使う"\
	    -help "そのなのとおり付属語の辞書です"\
	    -default 1
    CheckBox hojomwDic\
	    -text "補助自立語辞書を使う"\
	    -help "口語表現などの補助的な自立語辞書です"\
	    -default 1
    CheckBox hojoswDic\
	    -text "補助付属語辞書を使う"\
	    -help "口語表現などの補助的な付属語辞書です"\
	    -default 1

    Header userCustomDic\
	    -text "使用辞書の指定"\
	    -help "ここでの設定内容は、\"全ての辞書を指定する\"\
	    をチェックしている場合にだけ有効です"
    File-Dir-Browser dicPlace
    Menu dicKind\
	    -text "この辞書を"\
	    -entryhelp {\
	    "システム辞書" "システム辞書として用います"\
	    "部首変換辞書" "部首変換用辞書として用います"\
	    "文法情報辞書" "文法情報用辞書として用います"\
	    "単語登録辞書" "単語登録用辞書として用います"}\
	    -textafter "として用いる"
    ExtEntry customDic\
	    -entries {frame_dicPlace dicKind}\
	    -count 4\
	    -help "辞書ファイルを指定し、辞書の種類を選択します"
    Save {
	if {$whichDic(index) == 0} {
	    print "(use-dictionary"
	    if {$irohaDic} {
		print "    \"iroha\""
	    }
	    if {$fuzokuDic} {
		print "    \"fuzokugo\""
	    }
	    if {$hojomwDic} {
		print "    \"hojomwd\""
	    }
	    if {$hojoswDic} {
		print "    \"hojoswd\""
	    }
	    print ")"
	} else {
	    print "(use-dictionary"
	    forevery customDic {
		if {$dicPlace !=""} {
		    switch -- $dicKind(index) {
			0 {set kind ""}
			1 {set kind ":bushu"}
			2 {set kind ":grammar"}
			3 {set kind ":user"}
			default {set kind ""}
		    }
		    print "    $kind  \"$dicPlace\""
		}
	    }
	    print ")"
	}
    }
}