tclでgettext

Tkのテキストを日英両方の対応にしたかったので、gettextを使ってみました。

まず、ここからWindows用のバイナリをダウンロードします。

ダウンロードが終わったら、ダウンロードした.exeを実行してインストールします。
インストール後、C:\Program Files (x86)\GnuWin32\binにパスを通しておきます。

下記がサンプルコードです。
ボタンが2つだけです。

toplevel .top
package require msgcat
namespace import msgcat::*
proc _ {s} {return [::msgcat::mc $s]}
msgcat::mcload [file join [file dirname [info script]] msg]

package require msgcat
namespace import msgcat::*
msgcat::mcload [file join [file dirname [info script]] msg]
set hoge "close"
pack [button .top.b -text [_ "Push Me"]]
pack [button .top.b2 -text [format [_ "Close %s"] $hoge]]

tkwait window .top

上記サンプルコードをsample.tclとして保存し、xgettext -k_ sample.tclと実行します。
messages.poというファイルが生成されますので、これを編集します。
CHARSET=UTF-8に設定し、UTF-8で保存しておきます。

message.poを編集して"Push Me"と"Close %s"に対応する日本語を追加後、msgfmt --tcl -l ja_jp -d msg messages.poと実行します。
msg/ja_jp.msgが作成されます。
localeがjp_JPになっている状態でsample.tclを実行するとボタンは日本語で表示され、それ以外のlocaleの場合には英語で表示されるようになります。