diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
| commit | 3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch) | |
| tree | 8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/install_steps_gtk.pm | |
| parent | c942786c119d41faaa03357ddeb5bea338867727 (diff) | |
| download | drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.gz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.bz2 drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.xz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index fda1686cb..79d2b1743 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -278,7 +278,7 @@ sub chooseSizeToInstall { my $availableSpace = int(install_any::getAvailableSpace($o) / sqr(1024)); my $default = pkgs::correctSize((sum map { $_->{size} } grep { $_->{selected} } values %$packages) / sqr(1024) || $availableSpace * 0.7); my $w = my_gtk->new(''); - my $adj = create_adjustment($default, 100, $availableSpace); + my $adj = create_adjustment($default, 75, $availableSpace); my $spin = gtkset_usize(new Gtk::SpinButton($adj, 0, 0), 100, 0); gtkadd($w->{window}, @@ -337,7 +337,7 @@ sub choosePackagesTree { my ($p, $name, $parent) = @_; my $w = create_treeitem($name); $items{++$itemsNB} = [ $w, $p ]; - $parent->{packages_item}{$itemsNB} = undef if $parent; + undef $parent->{packages_item}{$itemsNB} if $parent; $w->show; $w->set_sensitive(!$p->{base} && !$p->{installed}); $w->signal_connect(focus_in_event => sub { @@ -552,9 +552,6 @@ _("There was an error ordering packages:"), $1, _("Go on anyway?") ], 1) and ret $w->destroy; } - - - #------------------------------------------------------------------------------ sub load_rc($) { if (my ($f) = grep { -r $_ } map { "$_/$_[0].rc" } (".", "/usr/share", dirname(__FILE__))) { |