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