#!/usr/local/bin/jperl

# 
# ja2tk.pl: 
# 
#     [1998/11/07] OSHIRO Naoki.
# 
#     $Log:$
#

$_=<>;
s/#！ウィーッス/#!wish/;
while (<>) {
    s/^キャンバス/canvas/;
    s/^スケール/scale/;
    s/^パック/pack/;
    s/^バインド/bind/;
    s/(\s-)幅/\1width/;
    s/(\s-)高さ/\1height/;
    s/(\s-)最大/\1max/;
    s/(\s-)最小/\1min/;
    s/(\s-)から/\1from/;
    s/(\s-)まで/\1to/;
    s/(\s-)変数/\1variable/;
    if (/(\s-)(アンカー|碇)\s+(.+)/) {
	$d=$2;
	$d=~tr/東西南北/ewsn/;
	s/(\s-)(アンカー|碇)\s+(.+)/\1anchor $d/;
    }
    if (/(\s-)埋め\s+(.+)/) {
	$d=$2;
	$d=~tr/縦横/yx/;
	s/(\s-)埋め\s+(.+)/\1fill $d/;
    }
    if (/(\s-)向き\s+(.+)/) {
	$d=$2;
	$d=~s/上/top/;
	$d=~s/下/bottom/;
	$d=~s/右/right/;
	$d=~s/左/left/;
	s/(\s-)向き\s+(.+)/\1side $d/;
    }
    if (/(\s-)展開\s+(.+)/) {
	$d=$2;
	$d=~s/する/yes/;
	$d=~s/しない/no/;
	s/(\s-)展開\s+(.+)/\1expand $d/;
    }
    if (/^(\.[^\s]+)\s+(.+)$/) {
	$p=$1;
	$o=$2;
	$o=~s/^作成/create/;
	$o=~s/^要素変更/itemconfigure/;
	$o=~s/^移動/move/;
	$o=~s/^(.+) 線/\1 line/;
	$o=~s/^(.+) 角/\1 rectangle/;
	$o=~s/^(.+) (丸|楕?円)/\1 oval/;
	$_="$p $o";
    }
    s/(^|[{;\s\b])終了/\1exit/;
    s/(^|[{;\s\b])設定|代?入(れる)?/\1set/;
    s/(^|[{;\s\b])々/\1for/;
    s/(^|[{;\s\b])更新/\1update/;
       
    print;
}
