Source

Kephra / lib / med.pl

#!usr/bin/perl
use v5.12;
use warnings;

package MediumEdit;
use Wx qw/ :everything /;
use base qw(Wx::App);
use Kephra::App::Editor;

sub OnInit {
	my $app   = shift;
	my $frame = Wx::Frame->new( undef, wxDEFAULT, 'Servus Welt');
	my $ed = Kephra::App::Editor->new($frame, -1);
	Wx::Window::SetFocus( $ed );

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


package main;
MediumEdit->new->MainLoop;