tSet cursor to replaced word in context text boxes - transliterate - Transliteration engine
  HTML git clone git://lumidify.org/transliterate.git (fast, but not encrypted)
  HTML git clone https://lumidify.org/git/transliterate.git (encrypted, but very slow)
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
   DIR commit 45604d64dfd6d28c9ca279f194836e556ff28995
   DIR parent 7d64b33bfe7f2e7c3aaecbea93677c97d482e30f
  HTML Author: lumidify <nobody@lumidify.org>
       Date:   Wed, 10 Mar 2021 08:38:03 +0100
       
       Set cursor to replaced word in context text boxes
       
       Diffstat:
         M transliterate.pl                    |      15 +++++++++++++--
       
       1 file changed, 13 insertions(+), 2 deletions(-)
       ---
   DIR diff --git a/transliterate.pl b/transliterate.pl
       t@@ -132,6 +132,9 @@ sub prompt_unknown_word {
                        $buffer->insert_with_tags($start_iter, $wrd, $highlight);
                        $start_iter = $buffer->get_start_iter();
                        $buffer->insert($start_iter, $ctxtl);
       +                # set cursor position to beginning of word
       +                my $cur_iter = $buffer->get_iter_at_offset(length($ctxtl));
       +                $buffer->place_cursor($cur_iter);
                        my $button = Gtk3::Button->new($btn_lbl);
                        $button->signal_connect(
                                clicked => sub {
       t@@ -154,8 +157,16 @@ sub prompt_unknown_word {
                        $hbox->pack_start($button, FALSE, FALSE, 0);
                        $vbox->pack_start($hbox, FALSE, FALSE, 0);
                };
       -        $make_context_box->($contextl, $word_repl, $contextr, "Transliterated _context: ", "Use _transliterated selection as word");
       -        $make_context_box->($contextl_orig, $word, $contextr_orig, "Ori_ginal context: ", "Use _original selection as word");
       +        $make_context_box->(
       +            $contextl_orig, $word, $contextr_orig,
       +            "Ori_ginal context: ",
       +            "Use _original selection as word"
       +        );
       +        $make_context_box->(
       +            $contextl, $word_repl, $contextr,
       +            "Transliterated _context: ",
       +            "Use _transliterated selection as word"
       +        );
        
                my $hbox = Gtk3::HBox->new(FALSE, 5);
                my $label = Gtk3::Label->new("Ignore: ");