Unicorns.pl

#!/usr/bin/perl -w -- 
# generated by wxGlade 0.6.3 on Sun Apr 24 21:53:14 2011
# To get wxPerl visit http://wxPerl.sourceforge.net/

use Wx 0.15 qw[:allclasses];
use strict;
package MyUnicorns;

use base qw(Wx::App);
use strict;

use MyDialog;

sub OnInit {
	my( $self ) = shift;

	Wx::InitAllImageHandlers();

	my $dialog_1 = MyDialog->new();

	$self->SetTopWindow($dialog_1);
	$dialog_1->Show(1);

	return 1;
}
# end of class MyUnicorns

package main;

unless(caller){
	my $Unicorns = MyUnicorns->new();
	$Unicorns->MainLoop();
}