請教一個POE+ Gtk2的例子

perlw01f

POE: Cookbook - Gtk2 Counter Glade
源程序鏈接 http://poe.perl.org/?POE_Cookbook/Gtk2_Counter_glade
glade文件 http://tipi.sf.net/cookbook.glade

1. #!/usr/bin/perl
   
2. # http://poe.perl.org/?POE_Cookbook/Gtk_Interfaces
   
3. #
   
4. # This sample program creates a very simple Gtk counter.  Its
   
5. # interface consists of three widgets: A label, a rapidly increasing
   
6. # counter, and a button to reset that counter.
   
7. # the 1 - 4 here corresponds to the points in the cookbook entry without
   
8. # glade
   
9. # 4. Because with POE::Session::GladeXML2, you create the gui through glade
   
10. # instead of code, and because it expects all the gtk signal handlers to
    
11. # be in a seperate package, it becomes even easier to seperate the GUI
    
12. # specific code from the non-gui-dependant code.
    
13. package Foo;
    
14. use warnings;
    
15. use strict;
    
16. 
    
17. # POE::Loop::Glib doesn't initialize Gtk2 (for obvious reasons), so we
    
18. # do it here
    
19. use Gtk2-init;
    
20. use POE;
    
21. use POE::Session::GladeXML2;
    
22. 
    
23. sub new {
    
24.   my ($class) = @_;
    
25.   my $self = bless {}, $class;
    
26.   my $session = POE::Session::GladeXML2->create(
    
27.     glade_object => $self,
    
28.     glade_file   => 'cookbook.glade',
    
29. 
    
30. # 1. You can use the glade_mainwin parameter to create() to tell which
    
31. # widget should be considered the main window.
    
32.     glade_mainwin => 'window1',
    
33.     inline_states => {
    
34.       _start   => \&ui_start,
    
35.       ev_count => \&ui_count,
    
36.     }
    
37.   );
    
38.   return $self;
    
39. }
    
40. 
    
41. sub ui_start {
    
42.   my ($kernel, $heap) = @_[KERNEL, HEAP];
    
43.   $heap->{counter} = 0;
    
44.   $kernel->yield("ev_count");
    
45. }
    
46. 
    
47. # Handle the "ev_count" event by increasing a counter and displaying
    
48. # its new value.
    
49. sub ui_count {
    
50.   my ($session, $kernel, $heap) = @_[SESSION, KERNEL, HEAP];
    
51. 
    
52. # 2. When using Gtk2::GladeXML, you can get any widget by name. Thus
    
53. # there is no more need to store them yourself.
    
54.   my $label = $session->gladexml->get_widget('counter_label');
    
55.   $label->set_text(++$heap->{counter});
    
56.   $kernel->yield("ev_count");
    
57. }
    
58. 
    
59. # 3. Instead of having to manually connect gtk signals with poe event
    
60. # handlers, POE::Session::GladeXML2 automatically connects the handler
    
61. # name you set in glade with the corresponding method in the object you
    
62. # pass as glade_object.
    
63. sub ui_clear {
    
64.   $_[HEAP]->{counter} = 0;
    
65. }
    
66. 
    
67. package main;
    
68. use POE;
    
69. 
    
70. # Run the program until it is exited.
    
71. my $foo = Foo->new;
    
72. $poe_kernel->run();
    
73. exit 0;

復制代碼

運行之后 沒報錯 界面上只有一個白塊

拉伸后

時間稍長一點 終止時 會顯示 "Out of memory!"
不知道原因
麻煩 幫我看看 謝謝
Win 7 32 bit, Active Perl 5.10