Source

Kephra / lib / Kephra / App.pm

Full commit
use strict;
use warnings;
require Wx;

package Kephra::App;
our @ISA = 'Wx::App';

sub OnInit {
    my $app = shift;
    require Kephra::App::Window;
    my $frame = Kephra::App::Window->new(__PACKAGE__);

    $frame->Center();
    $frame->Show();
    1;
}

sub OnExit {
    1;
}

# $app->ExitMainLoop(1);
1;