perl 安装Gtk2::GladeXML后不能使用

1. #!/usr/bin/perl
   
2. use Glib qw/TRUE FALSE/; #导入 Glib 模块
   
3. use Gtk2 '-init'; #导入Gtk2模块。-init 参数相当于调用了C库中的gtk_init函数。它会作一些必须的初始化工作.
   
4. use Gtk2::GladeXML;
   
5. 
   
6. my $gladexml = Gtk2::GladeXML->new("1.glade");  #读入glade生成的xml文件
   
7. $gladexml->signal_autoconnect_from_package('main');    #导入默认包中的信号
   
8. my $window = $gladexml->get_widget('window1');    #得到window和button还有label三个组件
   
9. my $stop = $gladexml->get_widget('stop');  
   
10. my $start = $gladexml->get_widget('start');
    
11. 
    
12. #以下是对信号的处理
    
13. 
    
14. $start->signal_connect( clicked => \&button_clicked);
    
15. sub button_clicked{
    
16.   Win32::MsgBox("Hello Gtk2", 0, "Hello");
    
17. }
    
18. 
    
19. $stop-> signal_connect( clicked => sub{Gtk2->main_quit;}); #按下button时,会发出clicked的信号,现在的作用是退出.
    
20. sub gtk_main_quit { Gtk2->main_quit();} #窗口在关闭时退出Gtk2的主循环。如果不加入这个回调函数，在窗口关闭后程序不会自动退出。
    
21. 
    
22. $window->show_all(); #显示窗口
    
23. Gtk2->main();    #进入Gtk2的事件
    
24. exit 0;   

复制代码

运行后

下载 (23.01 KB)

2010-12-12 13:47

   知道的多帮忙下

作者: mitmax   发布时间: 2010-12-12

作者: 黑色阳光_cu   发布时间: 2010-12-12

作者: perlw01f   发布时间: 2010-12-12

作者: perlw01f   发布时间: 2010-12-12