summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-11 20:50:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-11 20:50:06 +0000
commit04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572 (patch)
tree4b2271b88d1de6ce54877f0dea018ba296dd3bc0 /perl-install/install_steps_gtk.pm
parent8d45f4a6fc9e3abcc46f3d277ae705aeb919570c (diff)
downloaddrakx-04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572.tar
drakx-04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572.tar.gz
drakx-04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572.tar.bz2
drakx-04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572.tar.xz
drakx-04aec56a29e35fcc0a0f4dfc92ba5acdf9ea5572.zip
(installPackages): pressing "Details" gives you more detailed info
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm45
1 files changed, 26 insertions, 19 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b4c1ff9f4..ada0fde3f 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -1,4 +1,3 @@
-
package install_steps_gtk; # $Id$
use diagnostics;
@@ -546,9 +545,11 @@ sub installPackages {
my $w = my_gtk->new(_("Installing"));
$w->sync;
my $text = new Gtk::Label;
- my $advertising;
+ my ($advertising, $change_time, $i);
+ my $show_advertising = bool(@install_any::advertising_images);
my ($msg, $msg_time_remaining, $msg_time_total) = map { new Gtk::Label($_) } '', (_("Estimating")) x 2;
my ($progress, $progress_total) = map { new Gtk::ProgressBar } (1..2);
+ $w->{rwindow}->set_policy(1, 1, 1);
gtkadd($w->{window}, my $box = new Gtk::VBox(0,10));
$box->pack_end(gtkshow(gtkpack(gtkset_usize(new Gtk::VBox(0,5), $::windowwidth * 0.8, 0),
$msg, $progress,
@@ -559,20 +560,33 @@ sub installPackages {
$text,
$progress_total,
gtkadd(create_hbox(),
- my $cancel = new Gtk::Button(_("Cancel"))),
+ my $cancel = new Gtk::Button(_("Cancel")),
+ my $details = new Gtk::Button(_("Details")),
+ ),
)), 0, 1, 0);
$w->sync;
$msg->set(_("Please wait, preparing installation"));
gtkset_mousecursor_normal($cancel->window);
- $cancel->signal_connect(clicked => sub { $pkgs::cancel_install = 1 });
- my ($change_time, $i);
- if (@install_any::advertising_images) {
- log::l("hiding");
- $msg->hide;
- $progress->hide;
- $text->hide;
- }
+ my $advertize = sub {
+ $show_advertising ? $_->hide : $_->show foreach $msg, $progress, $text;
+ gtkdestroy($advertising) if $advertising;
+ if ($show_advertising) {
+ $change_time = time();
+ my $f = $install_any::advertising_images[$i++ % @install_any::advertising_images];
+ log::l("advertising $f");
+ eval { gtkpack($box, $advertising = gtkpng($f)) };
+ } else {
+ $advertising = undef;
+ }
+ };
+
+ $cancel->signal_connect(clicked => sub { $pkgs::cancel_install = 1 });
+ $details->signal_connect(clicked => sub {
+ invbool \$show_advertising;
+ $advertize->();
+ });
+ $advertize->();
my $oldInstallCallback = \&pkgs::installCallback;
local *pkgs::installCallback = sub {
@@ -591,14 +605,7 @@ sub installPackages {
my $p = pkgs::packageByName($o->{packages}, $name);
$last_size = c::headerGetEntry(pkgs::packageHeader($p), 'size');
$text->set((split /\n/, c::headerGetEntry(pkgs::packageHeader($p), 'summary'))[0] || '');
-
- if (@install_any::advertising_images && $total_size > 20 * sqr(1024) && time() - $change_time > 20) {
- $change_time = time();
- my $f = $install_any::advertising_images[$i++ % @install_any::advertising_images];
- log::l("advertising $f");
- gtkdestroy($advertising);
- eval { gtkpack($box, $advertising = gtkpng($f)) };
- }
+ $advertize->() if $show_advertising && $total_size > 20 * sqr(1024) && time() - $change_time > 20;
$w->flush;
} elsif ($m =~ /^Progressing installing package/) {
$progress->update($_[2] ? $_[1] / $_[2] : 0);