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" );
	}
}