summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-20 14:53:09 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-20 14:53:09 +0000
commitc5159a7ccd7fdec39654fb574652dc27fd950c76 (patch)
treef077353d8e358a8c71bbfda3fb3ceaadb6baca8c /perl-install/install_steps_gtk.pm
parent120e94af912fc1666b7afbfda7ee055bb3e7f0fa (diff)
downloaddrakx-c5159a7ccd7fdec39654fb574652dc27fd950c76.tar
drakx-c5159a7ccd7fdec39654fb574652dc27fd950c76.tar.gz
drakx-c5159a7ccd7fdec39654fb574652dc27fd950c76.tar.bz2
drakx-c5159a7ccd7fdec39654fb574652dc27fd950c76.tar.xz
drakx-c5159a7ccd7fdec39654fb574652dc27fd950c76.zip
Gtk2::Label::set is deprecated
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 28fba7aa6..cdf4cd940 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -218,7 +218,7 @@ sub reallyChooseGroups {
$check->set_active($val->{$e});
$check->signal_connect(clicked => sub {
$val->{$e} = $check->get_active;
- $w_size->set(&$size_to_display);
+ $w_size->set_label(&$size_to_display);
});
gtkset_tip($tips, $check, $help);
#gtkpack_(Gtk2::HBox->new(0, 0), 0, gtkpng($file), 1, $check);
@@ -460,7 +460,7 @@ sub installPackages {
)), 0, 1, 0);
$details->hide if !@install_any::advertising_images;
$w->sync;
- $msg->set(N("Please wait, preparing installation..."));
+ $msg->set_label(N("Please wait, preparing installation..."));
gtkset_mousecursor_normal($cancel->window);
gtkset_mousecursor_normal($details->window);
my $advertize = sub {
@@ -546,15 +546,15 @@ sub installPackages {
$nb = $amount;
$total_size = $total; $current_total_size = 0;
$start_time = time();
- $msg->set(N("%d packages", $nb));
+ $msg->set_label(N("%d packages", $nb));
$w->flush;
} elsif ($type eq 'inst' && $subtype eq 'start') {
$progress->set_fraction(0);
my $p = $data->{depslist}[$id];
- $msg->set(N("Installing package %s", $p->name));
+ $msg->set_label(N("Installing package %s", $p->name));
$current_total_size += $last_size;
$last_size = $p->size;
- $text->set((split /\n/, c::from_utf8($p->summary))[0] || '');
+ $text->set_label((split /\n/, c::from_utf8($p->summary))[0] || '');
$advertize->(1) if $show_advertising && $total_size > 20_000_000 && time() - $change_time > 20;
$w->flush;
} elsif ($type eq 'inst' && $subtype eq 'progress') {
@@ -569,9 +569,9 @@ sub installPackages {
$progress_total->set_fraction($ratio);
if ($dtime != $last_dtime && $current_total_size > 80_000_000) {
- $msg_time_total->set(formatTime(10 * round($total_time / 10) + 10));
-#- $msg_time_total->set(formatTimeRaw($total_time) . " " . formatTimeRaw($dtime / $ratio2));
- $msg_time_remaining->set(formatTime(10 * round(max($total_time - $dtime, 0) / 10) + 10));
+ $msg_time_total->set_label(formatTime(10 * round($total_time / 10) + 10));
+#- $msg_time_total->set_label(formatTimeRaw($total_time) . " " . formatTimeRaw($dtime / $ratio2));
+ $msg_time_remaining->set_label(formatTime(10 * round(max($total_time - $dtime, 0) / 10) + 10));
$last_dtime = $dtime;
}
$w->flush;