问个奇怪的GTK2的问题

chenzq1604

perl GTK2 是运行在一个gtk的环境下，app打包的时候会自动去找目录下的gtk环境之库文件，这样说，你写的gtk ...
hu145165 发表于 2010-04-15 09:57

    在其它机器上安装gtk环境比较麻烦，所以我直接把GTK/bin下面的所有dll 拷贝到跟编译好的文件一个目录 ,运行是成功的，但连英文都出现乱码了,这个是什么问题？

chenzq1604

再顶起

hu145165

注意你脚本文件本身的编码。和你使用的在界面上显示的编码一致。
建议脚本开头加上use utf8; 显示则用utf8编码一下
或者你文本编码是gb2312 显示则用gbk

hu145165

mark 一下

1. 
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Gtk2;
   
6. use Glib qw(TRUE FALSE);
   
7. use Tk qw(:eventtypes);
   
8. use utf8;
   
9. 
   
10. our $MAIN_QUIT = FALSE;
    
11. 
    
12. Gtk2->init();
    
13. my $window = Gtk2::Window->new("toplevel");
    
14. $window->set_resizable(FALSE);
    
15. my $entry = Gtk2::Entry->new();
    
16. $window->add($entry);
    
17. $window->show_all();
    
18. 
    
19. my $tk_window = new MainWindow();
    
20. my $btn = $tk_window->Button(-text => "Click me", -command => \&func);
    
21. $btn->pack();
    
22. 
    
23. $window->signal_connect("destroy" => sub { $MAIN_QUIT = TRUE; });
    
24. $entry->signal_connect("changed" => sub { $btn->configure(-text => $_[0]->get_text()); });
    
25. 
    
26. while (not $MAIN_QUIT)
    
27. {
    
28.         while (Gtk2->events_pending() > 0)
    
29.         {
    
30.                 Gtk2->main_iteration_do(FALSE);
    
31.         }
    
32. 
    
33.         if (Tk::MainWindow->Count() > 0)
    
34.         {
    
35.                 while (Tk::DoOneEvent(DONT_WAIT | ALL_EVENTS)) { ; }
    
36.         }
    
37. 
    
38.         select(undef, undef, undef, 0.01);
    
39. }
    
40. 
    
41. sub func
    
42. {
    
43.         $entry->set_text(time());
    
44. }
    

复制代码

pcbfans

嗯嗯，确实如此！