Commits

Herbert Breunung committed bb64148

little movements

  • Participants
  • Parent commits 861e35f
  • Branches sp2

Comments (0)

Files changed (4)

File lib/Kephra/.DS_Store

Binary file removed.

File lib/inlinexpm.pl

Empty file added.

File lib/keylog.pl

-#!usr/bin/perl
-use v5.12;
-use warnings;
-
-package KeyLog;
-use Wx qw/ :everything /;
-use base qw(Wx::App);
-
-sub OnInit {
-	my $app   = shift;
-	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__);
-	my $ed = Wx::TextCtrl->new($frame, -1, "chr\tutf\tord\traw\tflags\n");
-	Wx::Window::SetFocus( $ed );
-
-	Wx::Event::EVT_KEY_DOWN($ed , sub {
-		my ($ed, $event) = @_;
-		my $code = $event->GetUnicodeKey;
-		$ed->AppendText( 
-			chr($code). "\t$code\t" . 
-			$event->GetKeyCode . "\t" . 
-			$event->GetRawKeyCode . "\t" . 
-			#$event->GetRawKeyFlags . 
-			" \n"
-		);		
-	});
-
-	$frame->Show(1);
-	$app->SetTopWindow($frame);
-	1;
-}
-
-
-package main;
-KeyLog->new->MainLoop;

File tool/keylog.pl

+#!usr/bin/perl
+use v5.12;
+use warnings;
+
+package KeyLog;
+use Wx qw/ :everything /;
+use base qw(Wx::App);
+
+sub OnInit {
+	my $app   = shift;
+	my $frame = Wx::Frame->new( undef, -1, __PACKAGE__);
+	my $ed = Wx::TextCtrl->new($frame, -1, "chr\tutf\tord\traw\tflags\n");
+	Wx::Window::SetFocus( $ed );
+
+	Wx::Event::EVT_KEY_DOWN($ed , sub {
+		my ($ed, $event) = @_;
+		my $code = $event->GetUnicodeKey;
+		$ed->AppendText( 
+			chr($code). "\t$code\t" . 
+			$event->GetKeyCode . "\t" . 
+			$event->GetRawKeyCode . "\t" . 
+			#$event->GetRawKeyFlags . 
+			" \n"
+		);		
+	});
+
+	$frame->Show(1);
+	$app->SetTopWindow($frame);
+	1;
+}
+
+
+package main;
+KeyLog->new->MainLoop;