summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-15 03:44:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-15 03:44:51 +0000
commit6382e09cba003ab52ea61a93a9f3ceab2b316cc2 (patch)
treee0d0185543a8a0d0842ad55f8cccb4b5852ca66f /perl-install
parentdd50e29361abcc64127f47cb25ee957e0d25b364 (diff)
downloaddrakx-6382e09cba003ab52ea61a93a9f3ceab2b316cc2.tar
drakx-6382e09cba003ab52ea61a93a9f3ceab2b316cc2.tar.gz
drakx-6382e09cba003ab52ea61a93a9f3ceab2b316cc2.tar.bz2
drakx-6382e09cba003ab52ea61a93a9f3ceab2b316cc2.tar.xz
drakx-6382e09cba003ab52ea61a93a9f3ceab2b316cc2.zip
(installPackages) kill unused variable
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 0 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 276c93a76..4cbe537f9 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -475,13 +475,11 @@ sub installPackages {
-e $pl and $draw_text = 1;
eval(cat_($pl)) if $draw_text;
my $pix = gtkcreate_pixbuf($f);
- my $dbl_area;
my $darea = Gtk2::DrawingArea->new;
gtkpack($box, $advertising = !$draw_text ?
gtkcreate_img($f) :
gtksignal_connect(gtkset_size_request($darea, $width, $height), expose_event => sub {
my (undef, undef, $dx, $dy) = $darea->allocation->values;
- if (!defined($dbl_area)) {
$darea->window->draw_rectangle($darea->style->bg_gc('active'), 1, 0, 0, $dx, $dy);
$pix->render_to_drawable($darea->window, $darea->style->bg_gc('normal'), 0, 0,
($dx-$width)/2, 0, $width, $height, 'none', 0, 0);
@@ -496,7 +494,6 @@ sub installPackages {
$draw_lay->($darea->style->black_gc, 0);
$line->{options}{bold} and $draw_lay->($darea->style->black_gc, 1);
}
- }
}));
} else {
$advertising = undef;