package
FBP::Demo;
## no critic
use
5.008005;
use
utf8;
use
strict;
use
warnings;
our
$VERSION
=
'0.01'
;
our
@ISA
=
'Wx::App'
;
sub
run {
my
$class
=
shift
;
my
$self
=
$class
->new(
@_
);
return
$self
->MainLoop;
}
sub
OnInit {
my
$self
=
shift
;
# Create the primary frame
$self
->SetTopWindow( FBP::Demo::Main->new );
# Don't flash frames on the screen in tests
unless
(
$ENV
{HARNESS_ACTIVE} ) {
$self
->GetTopWindow->Show(1);
}
return
1;
}
1;