diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 00:37:56 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-12 00:37:56 +0000 |
| commit | f8fc4183b538d0843bf2c544ef47ff5130dfa45f (patch) | |
| tree | 1067978aa79d8fb3758afe18adbe6d14a1882988 /perl-install/interactive_gtk.pm | |
| parent | 9c9f0c07a2c376f812473400b7d7520cc711e545 (diff) | |
| download | drakx-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar drakx-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.gz drakx-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.bz2 drakx-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.xz drakx-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.zip | |
Fixed bug of input fields with a number as default input not allowing to enter more characters than the value of the number.
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -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); |