廣島です.
Perl/Tk では 2 つの MainWindow が生成できます.
=======================
use Tk;
$mw1 = MainWindow->new;
$mw2 = MainWindow->new;
# etc, etc
MainLoop;
=======================
$mw2 は $top = $mw1->Toplevel で生成した Toplevel に比べて,
リソースの独立性が増しています.
これまでの Perl/Tk 日本語化パッチでは,
最初の MainWindow にだけ日本語表示に必要なリソースを設定していたので,
$mw2 では日本語が通りません.
また,闇雲に length を klength (Perl/Tk 日本語化での独自拡張メソッド)
置き換えたので,Optionmenu と BrowseEntry で
ウィジェット幅を文字数を元に計算するようになっていました.
この場合 Optionmenu で日本語を使用するとウィジェット幅が小さすぎて,
文字列が入りきらなくなくなります.
これらの問題を解決しましたが(後者はオリジナルの状態に戻しただけ),
公開用のサーバに接続を拒否されています.
そんなわけで,近日公開予定です.
-----------------------------
廣島 勉
(tsutomu@...)
# rawhide の perl-5.8.0-51.src.rpm の
# rpm --rebuild 失敗!!!