summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 00:37:56 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2001-08-12 00:37:56 +0000
commitf8fc4183b538d0843bf2c544ef47ff5130dfa45f (patch)
tree1067978aa79d8fb3758afe18adbe6d14a1882988 /perl-install
parent9c9f0c07a2c376f812473400b7d7520cc711e545 (diff)
downloaddrakx-backup-do-not-use-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar
drakx-backup-do-not-use-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.gz
drakx-backup-do-not-use-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.bz2
drakx-backup-do-not-use-f8fc4183b538d0843bf2c544ef47ff5130dfa45f.tar.xz
drakx-backup-do-not-use-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')
-rw-r--r--perl-install/interactive_gtk.pm7
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);