my ( $this, $event ) = @_;
  my $key   = $event->GetKeyCode();