git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/debian/libwx-perl/usr/share/doc/libwx-perl/examples/trivial/trivial.pl

   1 #!/usr/bin/perl -w
   2 #############################################################################
   3 ## Name:        samples/trivial/trivial.pl
   4 ## Purpose:     Trivial wxPerl sample
   5 ## Author:      Mattia Barbon
   6 ## Modified by:
   7 ## Created:     24/09/2006
   8 ## RCS-ID:      $Id: trivial.pl 2057 2007-06-18 23:03:00Z mbarbon $
   9 ## Copyright:   (c) 2006 Mattia Barbon
  10 ## Licence:     This program is free software; you can redistribute it and/or
  11 ##              modify it under the same terms as Perl itself
  12 #############################################################################
  13
  14 use strict;
  15
  16 use Wx;
  17
  18 my $app = Wx::SimpleApp->new;
  19 my $frame = Wx::Frame->new( undef, -1, "Trivial Sample" );
  20 $frame->Show;
  21 $app->MainLoop;