diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-07-03 13:47:52 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-07-03 13:47:52 +0000 |
| commit | 4d201ab36035d419f54dc5621d3ebd8f5867f020 (patch) | |
| tree | 4449450a53e9905e8df9e6f5d52dacc399150f7a /perl-install | |
| parent | efd1a3220085f5317b8daac3372b28b79381c5c9 (diff) | |
| download | drakx-backup-do-not-use-4d201ab36035d419f54dc5621d3ebd8f5867f020.tar drakx-backup-do-not-use-4d201ab36035d419f54dc5621d3ebd8f5867f020.tar.gz drakx-backup-do-not-use-4d201ab36035d419f54dc5621d3ebd8f5867f020.tar.bz2 drakx-backup-do-not-use-4d201ab36035d419f54dc5621d3ebd8f5867f020.tar.xz drakx-backup-do-not-use-4d201ab36035d419f54dc5621d3ebd8f5867f020.zip | |
added Load/Save on floppy.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index ff632debe..24c53f906 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -412,11 +412,22 @@ sub choosePackagesTree { }; $add_nodes->($flat); + my $update_size = sub { + my $size = pkgs::selectedSize($packages); + $w_size->set(_("Total size: %d / %d MB", + pkgs::correctSize($size / sqr(1024)), + install_any::getAvailableSpace($o) / sqr(1024))); + }; + my %toolbar = my @toolbar = ( - ftout => [ _("Expand Tree") , sub { $tree->expand_recursive(undef) } ], - ftin => [ _("Collapse Tree") , sub { $tree->collapse_recursive(undef) } ], - reload=> [ _("Toggle between flat and group sorted"), sub { $add_nodes->(!$flat) } ], + floppy => [ _("Load/Save on floppy") , sub { $o->loadSavePackagesOnFloppy($packages); + my $w = $o->wait_message(_("Package selection"), + _("Updating package selection")); + $add_nodes->($flat); &$update_size; } ], + ftout => [ _("Expand Tree") , sub { $tree->expand_recursive(undef) } ], + ftin => [ _("Collapse Tree") , sub { $tree->collapse_recursive(undef) } ], + reload => [ _("Toggle between flat and group sorted"), sub { $add_nodes->(!$flat) } ], ); $toolbar->set_button_relief("none"); foreach (grep_index { $::i % 2 == 0 } @toolbar) { @@ -444,12 +455,6 @@ sub choosePackagesTree { 0; }; - my $update_size = sub { - my $size = pkgs::selectedSize($packages); - $w_size->set(_("Total size: %d / %d MB", - pkgs::correctSize($size / sqr(1024)), - install_any::getAvailableSpace($o) / sqr(1024))); - }; my $select = sub { my %l; my $isSelection = !pkgs::packageFlagSelected($_[0]); |