sub output { my $panel = _ref(); $panel->AppendText( @_ ); } sub clear_output { my $panel = _ref(); $panel->Clear; } sub run { my $win = Kephra::App::Window::_ref(); my $doc = Kephra::Document::_get_current_file_path(); Kephra::File::save_current(); if ($doc) { clear_output(); my $proc = Wx::Perl::ProcessStream->OpenProcess(qq~perl "$doc"~ , 'Output-Extention', $win); } else { Kephra::App::StatusBar::info_msg( $Kephra::localisation{app}{menu}{document} . ' ' . $Kephra::localisation{app}{general}{untitled} . "\n" ); } }