Wx Button atction

1610阅读　0评论2013-03-08　zhengsenlin888
分类：PERL


  1. #!/usr/bin/perl

  3. #author: zhengsenlin
  4. #date: 2013-03-06
  5. #desc: Wx ok

  7. use 5.016;
  8. use strict;
  9. use warnings;
  10. use autodie;
  11. use Wx;

  13. package MyFrame;
  14. use base 'Wx::Frame';
  15. use Wx::Event qw(EVT_BUTTON);
  16. sub new {
  17.     my $ref = shift;
  18.     my $self = $ref->SUPER::new(
  19.         undef,
  20.         -1,
  21.         'wxperl rules',
  22.         [-1, -1],
  23.         [500, 300],
  24.     );

  26.     my $panel = Wx::Panel->new($self);

  28.     my $text = Wx::StaticText->new(
  29.         $panel,
  30.         -1,
  31.         "This is the text",
  32.         [200,200],
  33.     );

  35.     my $button = Wx::Button->new(
  36.         $panel,
  37.         -1,
  38.         'click me',
  39.         [-1, -1],
  40.         [100, 50],
  41.     );

  43.     EVT_BUTTON($self, $button, &OnClick);

  45.     return $self;
  46. }

  48. sub OnClick {
  49.     say "hello";
  50. }

  52. package MyApp;
  53. use base 'Wx::App';
  54. sub OnInit {
  55.     my $frame = MyFrame->new;
  56.     $frame->Show;
  57. }

  59. package main;
  60. my $app = MyApp->new;
  61. $app->MainLoop;


上一篇：PerlMonks_tutorial_2
下一篇：生成ssh登录密钥