proc addition {} {
    # 日本語版について
    global argv
    set fd [open [lindex $argv 1]/CAUTION.for.japanese r]

    set id 0
    while { [gets $fd line] >= 0 } {
	Label caution$id -text $line
	incr id
    }
    close $fd
}
