summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index bc8a79f9c..63c781ff2 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -168,7 +168,11 @@ sub gtktext_insert {
my ($w, $t) = @_;
$w->freeze;
$w->backward_delete($w->get_length);
- $w->insert(undef, undef, undef, $t);
+ if (ref($t) eq 'ARRAY') {
+ $w->insert($_->[0], $_->[1], $_->[2], $_->[3]) foreach @$t;
+ } else {
+ $w->insert(undef, undef, undef, $t);
+ }
#- DEPRECATED? needs \n otherwise in case of one line text the beginning is not shown (even with the vadj->set_value)
$w->set_word_wrap(1);
#- $w->vadj->set_value(0);