From 4d201ab36035d419f54dc5621d3ebd8f5867f020 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 3 Jul 2001 13:47:52 +0000 Subject: added Load/Save on floppy. --- perl-install/install_steps_gtk.pm | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') 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]); -- cgit v1.2.1