diff options
| -rw-r--r-- | perl-install/mygtk2.pm | 6 |
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) |