Commits

Herbert Breunung committed fd4bcb4

setting order of demos right

Comments (0)

Files changed (3)

 
 sub OnInit {
 	my $app   = shift;
-   	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__ . 'Kephra xp testbed step 2', [-1,-1], [1000,800]);
+   	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__ . 'Kephra xp testbed step 3', [-1,-1], [1000,800]);
   	my $ed = Kephra::App::Editor->new($frame, -1);
   	Wx::Window::SetFocus( $ed );
 
 
 sub OnInit {
 	my $app   = shift;
-	my $frame = Wx::Frame->new( undef, wxDEFAULT, __PACKAGE__, [-1,-1], [1000,800]);
+	my $frame = Wx::Frame->new( undef, wxDEFAULT, __PACKAGE__. 'Kephra xp testbed step 1, [-1,-1], [1000,800]);
 	my $ed = Wx::StyledTextCtrl->new($frame, -1);
 	my ($file, $encoding);
 	
 
 sub OnInit {
 	my $app   = shift;
-   	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__ . 'Kephra xp testbed step 2', [-1,-1], [1000,800]);
-  	my $ed = Kephra::App::Editor->new($frame, -1);
-  	Wx::Window::SetFocus( $ed );
+	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__ . 'Kephra xp testbed step 2', [-1,-1], [1000,800]);
+	my $ed = Kephra::App::Editor->new($frame, -1);
+	Wx::Window::SetFocus( $ed );
 
 	Wx::Event::EVT_KEY_DOWN($ed , sub {
 		my ($ed, $event) = @_;
 			Kephra::IO::LocalFile::write( $file, $encoding, $ed->GetText() );
 		} 
 		else { $event->Skip }
-        });
-    ($content, $encoding) = Kephra::IO::LocalFile::read( $file );
+	});
+	($content, $encoding) = Kephra::IO::LocalFile::read( $file );
 	$ed->SetText( $content );
 
 	$frame->Center();