From 3edbeac41e23ee13ff3e0c9c815c4ab93b279fd2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Oct 1999 11:41:53 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 2f8eb812e..02812483f 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -130,6 +130,7 @@ sub gtkadd($@) {
 
 sub gtktext_insert($$) {
     my ($w, $t) = @_;
+    $w->backward_delete($w->get_length);
     $w->insert(undef, undef, undef, "$t\n"); #- 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