summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-12 22:32:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-12 22:32:35 +0000
commit101d2635b3f2d377f0ecb70e5974418834cf4af3 (patch)
tree67848575ce5bf0e63c078ae55a443f7082f564f6 /perl-install
parente2d24a9d7339f1b4d810e4bce5551d5be7a7f9eb (diff)
downloaddrakx-backup-do-not-use-101d2635b3f2d377f0ecb70e5974418834cf4af3.tar
drakx-backup-do-not-use-101d2635b3f2d377f0ecb70e5974418834cf4af3.tar.gz
drakx-backup-do-not-use-101d2635b3f2d377f0ecb70e5974418834cf4af3.tar.bz2
drakx-backup-do-not-use-101d2635b3f2d377f0ecb70e5974418834cf4af3.tar.xz
drakx-backup-do-not-use-101d2635b3f2d377f0ecb70e5974418834cf4af3.zip
clean the nice till fix
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm13
1 files changed, 4 insertions, 9 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index c7ed48b38..c094730fd 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -424,12 +424,7 @@ sub ask_from_entries_refW {
$w->disable_activate;
($real_w, $w) = ($w, $w->entry);
} else {
- # ${...} 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 = new Gtk::Entry;
}
$w->signal_connect(key_press_event => $may_go_to_next);
$w->signal_connect(changed => $changed);
@@ -464,10 +459,10 @@ sub ask_from_entries_refW {
my $create_widgets = sub {
my $w = create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @_);
#- use a scrolled window if there is a lot of checkboxes (aka
- #- ask_many_from_list) or if there are many widgets in general (aka
+ #- ask_many_from_list) or if there are many widgets in general (eg
#- options of native PostScript printer in printerdrake)
- my $has = (((grep { $_->{e}{type} eq 'bool' } @_) > 4) ||
- ((@_) > 10));
+ my $has = ((grep { $_->{e}{type} eq 'bool' } @_) > 4) ||
+ @_ > 10;
$has_scroll ||= $has;
$has ? createScrolledWindow($w) : $w;
};