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/NEWS      | 2 ++
 perl-install/mygtk2.pm | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 285107d4f..de87d597e 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- mygtk2 layer:
+  o make references usable for entries
 - reorganized modules in fs section of list_modules and added reiser4
 - diskdrake:
   o limit partition type list to 2 colmuns instead of 4
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