diff options
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 3 |
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; |