diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 03:44:51 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 03:44:51 +0000 |
| commit | 6382e09cba003ab52ea61a93a9f3ceab2b316cc2 (patch) | |
| tree | e0d0185543a8a0d0842ad55f8cccb4b5852ca66f /perl-install | |
| parent | dd50e29361abcc64127f47cb25ee957e0d25b364 (diff) | |
| download | drakx-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.pm | 3 |
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; |