From dc6e391811265ea57d68a06745c8377418e5499b Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 3 Sep 2002 14:51:44 +0000
Subject: have the possibility in gtktext_insert to provide font/color
 information as well

---
 perl-install/ugtk.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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);
-- 
cgit v1.2.1