wx for perl

shijiang1130

http://ppm.wxperl.it/  

shijiang1130

IRC: #wxperl on irc.perl.org

shijiang1130

1. #!/usr/bin/perl
   
2. 
   
3. use Wx;
   
4. package MyApp;
   
5. use strict;
   
6. use vars qw(@ISA);
   
7. @ISA=qw(Wx::App);
   
8. sub OnInit {
   
9.   my($this) = @_;
   
10.    my($frame) = MyFrame->new("Progress bar demo", Wx::Point->new(50, 50), Wx::Size->new(450, 350));
    
11.    $this->SetTopWindow($frame);
    
12.    $frame->Show(1);
    
13.    1;
    
14. }
    
15. 
    
16. package MyFrame;
    
17. 
    
18. use strict;
    
19. use vars qw(@ISA);
    
20. 
    
21. @ISA=qw(Wx::Frame);
    
22. 
    
23. use Wx::Event qw(EVT_MENU);
    
24. use Wx qw(wxBITMAP_TYPE_ICO wxMENU_TEAROFF);
    
25. 
    
26. sub new {
    
27.    my($class) = shift;
    
28.    my($this) = $class->SUPER::new(undef, -1, $_[0], $_[1], $_[2]);
    
29.    my($mfile) = Wx::Menu->new(undef, wxMENU_TEAROFF);
    
30. 
    
31.    my($ID_TEST, $ID_EXIT) = (1, 2);
    
32.    $mfile->Append($ID_TEST, "&Test Progress Dialog\tCtrl-T", "Display a test dialog");
    
33.    $mfile->Append($ID_EXIT, "E&xit\tAlt-X", "Quit this program");
    
34. 
    
35.    my($mbar) = Wx::MenuBar->new();
    
36.    $mbar->Append($mfile, "&Test");
    
37.    $this->SetMenuBar($mbar);
    
38.    EVT_MENU($this, $ID_TEST, \&OnTest);
    
39.    EVT_MENU($this, $ID_EXIT, \&OnQuit);
    
40.    $this;
    
41. }
    
42. 
    
43. sub OnQuit {
    
44.    my($this, $event) = @_;
    
45.    $this->Close(1);
    
46. }
    
47. 
    
48. use Wx qw(wxOK wxICON_INFORMATION wxVERSION_STRING);
    
49. use Wx qw(:progressdialog);
    
50. 
    
51. sub OnTest {
    
52.    my($this, $event) = @_;
    
53.    my($max) = 10;
    
54.    my $dialog = Wx::ProgressDialog->new('Progress dialog example',
    
55.                                          'An example',
    
56.                                          $max, $this,
    
57.                                          wxPD_CAN_ABORT|
    
58.                                          wxPD_APP_MODAL|wxPD_ELAPSED_TIME|
    
59.                                          wxPD_ESTIMATED_TIME|
    
60.                                          wxPD_REMAINING_TIME);
    
61. 
    
62.    my($usercontinue) = 1;
    
63.    foreach (1 .. $max) {
    
64.        $usercontinue = $dialog->Update($_,"Processing item $_");
    
65.        #check for user interruption, then move on to data processing
    
66.        last if $usercontinue==0;
    
67.        sleep (1); #your code here!
    
68.    }
    
69.    $dialog->Destroy;
    
70. }
    
71. 
    
72. package main;
    
73. 
    
74. my($app) = MyApp->new();
    
75. $app->MainLoop();

复制代码