summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-09-03 14:51:44 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-09-03 14:51:44 +0000
commitdc6e391811265ea57d68a06745c8377418e5499b (patch)
tree1448d8f1cb5942cb311fc53d2ee84f9726380362 /perl-install
parent8b422089a02e0f1b003d4252ac936744a45770e4 (diff)
downloaddrakx-dc6e391811265ea57d68a06745c8377418e5499b.tar
drakx-dc6e391811265ea57d68a06745c8377418e5499b.tar.gz
drakx-dc6e391811265ea57d68a06745c8377418e5499b.tar.bz2
drakx-dc6e391811265ea57d68a06745c8377418e5499b.tar.xz
drakx-dc6e391811265ea57d68a06745c8377418e5499b.zip
have the possibility in gtktext_insert to provide font/color
information as well
Diffstat (limited to 'perl-install')
-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);