Commits

Herbert Breunung committed b1fcc25

switch textctrl in iounit, now its right

  • Participants
  • Parent commits 922a97c

Comments (0)

Files changed (1)

File lib/Kephra/App/Panel/IOUnit.pm

 		my $key = Kephra::App::Util::keycode_from_event($event);
 
 		if    ($key ==  0)  { }
-		#elsif ($key ==  &Wx::WXK_PAGEUP + 2000){Kephra::App::Panel::Editor::select_tab_left()}
+		elsif ($key ==  &Wx::WXK_PAGEUP + 2000){$output->AdvanceSelection(0)}
 		#elsif ($key ==  &Wx::WXK_PAGEUP + 3000){Kephra::App::Panel::Editor::select_tab_leftmost()  }
 		#elsif ($key ==  &Wx::WXK_PAGEUP + 4000){Kephra::App::Panel::Editor::move_tab_left()  }
 		#elsif ($key ==  &Wx::WXK_PAGEUP + 5000){Kephra::App::Panel::Editor::move_tab_leftmost()  }
-		#elsif ($key ==  &Wx::WXK_PAGEDOWN+2000){Kephra::App::Panel::Editor::select_tab_right()}
+		elsif ($key ==  &Wx::WXK_PAGEDOWN+2000){$output->AdvanceSelection(1)}
 		#elsif ($key ==  &Wx::WXK_PAGEDOWN+3000){Kephra::App::Panel::Editor::select_tab_rightmost()}
 		#elsif ($key ==  &Wx::WXK_PAGEDOWN+4000){Kephra::App::Panel::Editor::move_tab_right()}
 		#elsif ($key ==  &Wx::WXK_PAGEDOWN+5000){Kephra::App::Panel::Editor::move_tab_rightmost()}