Commits

Herbert Breunung  committed 945bc73

switched back to wx::scintilla

  • Participants
  • Parent commits 90c5464

Comments (0)

Files changed (2)

File lib/Kephra.pm

 	qw/Benchmark Encode Encode::Guess Cwd/,
 	qw/File::Find File::Spec File::UserConfig Config::General YAML/,
 	qw/PPI Moo/,
-	qw/Wx Wx::STC Wx::Perl::ProcessStream/, # Wx::Scintilla Wx::STC
+	qw/Wx Wx::Scintilla Wx::Perl::ProcessStream/, # Wx::Scintilla Wx::STC
 );
-our @used_wx_modules = qw/Wx::AUI Wx::DND Wx::RichText Wx::STC/; # Wx::STC
+our @used_wx_modules = qw/Wx::AUI Wx::DND Wx::RichText/; # Wx::STC
 
 our @needed_at_first = qw/App API/;
 our @starttime_modules = qw/App App::Util API Config Config::Default Config::File Document DocumentStash CommandList Edit EventTable File PluginRegistrar SandrumInterpreter Works/;

File lib/Kephra/App/Editor.pm

 use warnings;
 use Wx;
 #use Wx::DND;
-use Wx::STC;
-#use Wx::Scintilla;
+#use Wx::STC;
+use Wx::Scintilla;
 use Kephra::App::Util;
 
 package Kephra::App::Editor;
-our @ISA = 'Wx::StyledTextCtrl';
-#our @ISA = 'Wx::ScintillaTextCtrl';
+#our @ISA = 'Wx::StyledTextCtrl';
+our @ISA = 'Wx::ScintillaTextCtrl';
 
 my $mk_color = Kephra::App::Util::get('make_color');
 
 			( $event->ShiftDown
 			+ $event->ControlDown * 2 
 			+ $event->AltDown     * 4);
-		if    ($key ==  &Wx::WXK_UP + 2000)  {$self->CmdKeyExecute(&Wx::wxSTC_CMD_PARAUP)}
-		elsif ($key ==  &Wx::WXK_UP + 3000)  {$self->CmdKeyExecute(&Wx::wxSTC_CMD_PARAUPEXTEND)}
-		elsif ($key ==  &Wx::WXK_DOWN + 2000){$self->CmdKeyExecute(&Wx::wxSTC_CMD_PARADOWN)}
-		elsif ($key ==  &Wx::WXK_DOWN + 3000){$self->CmdKeyExecute(&Wx::wxSTC_CMD_PARADOWNEXTEND)}
+		if    ($key ==  &Wx::WXK_UP + 2000)  {$self->ParaUp() }
+		elsif ($key ==  &Wx::WXK_UP + 3000)  {$self->ParaUpExtend() }
+		elsif ($key ==  &Wx::WXK_DOWN + 2000){$self->ParaDown() }
+		elsif ($key ==  &Wx::WXK_DOWN + 3000){$self->ParaDownExtend() }
 		elsif ($key ==  &Wx::WXK_PAGEUP + 2000){Kephra::App::Panel::Editor::select_tab_left()}
 		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()  }