From ef2dc68c255ee6abe1d4aea71a137f2676072cbb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 16 Feb 2009 15:25:26 +0000
Subject: (_gtk__Entry) make 'text_ref' somewhat usefull (pixel sucks) (bug
 "introduced" in r215411: "re-sync after the big svn loss")

---
 perl-install/mygtk2.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 5a9e863a3..3ff3f0f72 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -520,6 +520,9 @@ sub _gtk__Entry {
 	my $set = sub { $w->set_text($$text_ref) };
 	gtkval_register($w, $text_ref, $set);
 	$set->();
+	$w->signal_connect(changed => sub {
+		gtkval_modify($text_ref, $w->get_text, $set);
+	});
     }
 
     $w;
-- 
cgit v1.2.1