diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 67d8ddd68..643cee9c3 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -424,7 +424,12 @@ sub ask_from_entries_refW { $w->disable_activate; ($real_w, $w) = ($w, $w->entry); } else { - $w = new Gtk::Entry(${$e->{val}}); + # ${...} removed here, it causes a number given as default + # value in addition being interpreted as the maximum length + # of the field, so a field with '1' or '1.0' as default + # allows only 1 character to be entered. + # $w = new Gtk::Entry(${$e->{val}}); + $w = new Gtk::Entry($e->{val}); } $w->signal_connect(key_press_event => $may_go_to_next); $w->signal_connect(changed => $changed); |