Source

Kephra / lib / Kephra / App.pm

Full commit
use v5.12;
use warnings;
use Wx;

package Kephra::App;
use base qw(Wx::App);
use Kephra::API;
use Kephra::App::Window;

our $_ref;

sub OnInit {
	my $app   = $_ref = shift;
	my $frame = Kephra::App::Window->new($Kephra::NAME.' SP3 '.$Kephra::VERSION);

	$frame->Show(1);
	$app->SetTopWindow($frame);
	1;
}

sub close_save {
	#Kephra::File::close_all();
	close_raw();
}

sub close_raw  {
	#my $win = Kephra::API::main_window()->destroy();
}

sub OnExit {
	my $app = shift;
	Wx::wxTheClipboard->Flush;
	1;
}

1;