summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-02-16 15:25:26 +0000
committerThierry Vignaud <tv@mandriva.org>2009-02-16 15:25:26 +0000
commitef2dc68c255ee6abe1d4aea71a137f2676072cbb (patch)
treec108fa1840c27a82c41e06d78db460f1d7a6333c /perl-install/mygtk2.pm
parent446a14975d5e40a4092b406a6e3d9fa834e9a616 (diff)
downloaddrakx-ef2dc68c255ee6abe1d4aea71a137f2676072cbb.tar
drakx-ef2dc68c255ee6abe1d4aea71a137f2676072cbb.tar.gz
drakx-ef2dc68c255ee6abe1d4aea71a137f2676072cbb.tar.bz2
drakx-ef2dc68c255ee6abe1d4aea71a137f2676072cbb.tar.xz
drakx-ef2dc68c255ee6abe1d4aea71a137f2676072cbb.zip
(_gtk__Entry) make 'text_ref' somewhat usefull (pixel sucks)
(bug "introduced" in r215411: "re-sync after the big svn loss")
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm3
1 files changed, 3 insertions, 0 deletions
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;