Tk 如何显示中文？

Tk 如何显示中文？
#!d:/perl/bin/perl.exe
use Tk;
$top=MainWindow->new();
$button=$top->Button( -text =>'开始',
-command =>sub {
$button->cget('-text') eq "开始" ?
$button->configure(-text => '停止') :
$button->configure(-text => '开始')
}
);
$button->pack();
MainLoop();


我运行了一下，字体不对，请问要加入什么语句可以让Tk支持中文？ 谢谢.
win2k系统.

use encoding
#!/usr/bin/perl
use Tk;
#use utf8;
use encoding 'gb2312';
#关键就是这行
my $mw = MainWindow->new;
$mw->title("世界你好");
$mw->Button(-text => "世界你好", -command => sub { exit })->pack;
MainLoop;

3x
我去试试～！

呕耶～！成功～...
呕耶～！成功～～！！ 谢谢，非常感谢～！！

还要问一下 use encoding 'gb2312'; 在debian上，也行吗～？ 是否只是适用MS的平台。

encoding是Perl...
encoding是Perl的一个模块。应该都可以的。

只是debian里的Perl版本是否已经包含了这个encoding说不好。

这个模块好象只...
这个模块好象只是在Perl5.6以上的版本才能正常的。

yes, you are right
是的，是从perlchina老BBS里面抄过来的，发现这些GUI在支持utf8上面都有缺少文档明确描述，谁来做一个？这也可以防止大家都反复遇到同样的问题。

谢～！-- 谢～！


还是perlchina里的人最热心～！ [CCB]13[/CCB]

welcome
Tk总是比较难写代码，但是得到帮助总是比较容易的。
其他的可以考虑的代替还包括widestudio，只要不排斥日本人的东西:)
我发现他们对中文/utf8的支持都是undocumented。不像Glade什么的，本来就是XML/unicode的，这些东西都有中文和utf8的双重陷阱，最好先弄清楚再用。

恩。关于 TK / ...
恩。关于 TK / GD 等的中文支持，似乎document 少的可怜。。
希望有高手整理一点：）