From f8fc4183b538d0843bf2c544ef47ff5130dfa45f Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sun, 12 Aug 2001 00:37:56 +0000 Subject: Fixed bug of input fields with a number as default input not allowing to enter more characters than the value of the number. --- perl-install/interactive_gtk.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install') 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); -- cgit v1.2.1