Commits

Herbert Breunung committed fff609f

put name in title of singel edit

Comments (0)

Files changed (1)

 
 sub OnInit {
 	my $app   = shift;
-	my $frame = Kephra::App::Window->new();
-	$frame->Center();
-	$frame->Show(1);
+	my $frame = Kephra::App::Window->new();
+	$frame->Center();
+	$frame->Show(1);
 	$app->SetTopWindow($frame);
 	1;
 }
 package Kephra::App::Window;
 use base qw(Wx::Frame);
 use Kephra::API qw(warning);
-use Kephra::App::Dialog;
-use Kephra::App::Editor;
+use Kephra::App::Dialog;
+use Kephra::App::Editor;
 use Kephra::IO::LocalFile;
 
 our ($file, $encoding, $content, $ed);
 
 sub set_title {
 	my ($self, $status) = @_;
-	my $title = 'Kephra xp testbed step 2 - ' . $file;
+	my $title = 'Single Edit - Kephra xp testbed step 2 - ' . $file;
 	$title .= ' *' if $status;
 	$self->SetTitle($title);
 }
 # autosave
 # status line
 # how insert edit functions
-# use keymap
+# use keymap