summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk2.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 0ee3b7bc2..65221d0b2 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -825,7 +825,11 @@ sub _text_insert {
}
}
} else {
- $buffer->set_text($t);
+ if ($opts{append}) {
+ $buffer->insert($buffer->get_end_iter, $t);
+ } else {
+ $buffer->set_text($t);
+ }
}
#- the following line is needed to move the cursor to the beginning, so that if the
#- textview has a scrollbar, it will not scroll to the bottom when focusing (#3633)