diff options
| author | damien <damien@mandriva.com> | 2002-01-11 12:54:33 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-01-11 12:54:33 +0000 |
| commit | f5b7bbbae268f86a6b8276464f99fe07fcbd7700 (patch) | |
| tree | 542e1f3e4efb1d6d0e5ccf1e6ce194239a3ef9cb /perl-install/install_steps_gtk.pm | |
| parent | 4a2897b142dbac5ed9686c45779523233ffd186d (diff) | |
| download | drakx-backup-do-not-use-f5b7bbbae268f86a6b8276464f99fe07fcbd7700.tar drakx-backup-do-not-use-f5b7bbbae268f86a6b8276464f99fe07fcbd7700.tar.gz drakx-backup-do-not-use-f5b7bbbae268f86a6b8276464f99fe07fcbd7700.tar.bz2 drakx-backup-do-not-use-f5b7bbbae268f86a6b8276464f99fe07fcbd7700.tar.xz drakx-backup-do-not-use-f5b7bbbae268f86a6b8276464f99fe07fcbd7700.zip | |
new advertising engine
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 41 |
1 files changed, 17 insertions, 24 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 4939a539a..4221e15e1 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -535,42 +535,35 @@ sub installPackages { $change_time = time(); my $f = $install_any::advertising_images[$i++ % @install_any::advertising_images]; log::l("advertising $f"); - eval { my $pl = $f; $pl =~ s/\.png$/\.pl/; - my ($width, $height, @data); - $in->ask_warn('', "avant evalcat"); - eval(cat_($pl)); - $in->ask_warn('', "wi : $width | he : $height \ndata :\n @data"); - my ($pix, undef) = gtkcreate_png($f); - my $dbl_area; - my $darea = new Gtk::DrawingArea; - gtkpack($box, $advertising = gtksignal_connect(gtkset_usize($darea, $width, $height), expose_event => sub { - eval { + my $pl = $f; $pl =~ s/\.png$/\.pl/; + my ($width, $height, @data); + eval(cat_($pl)); + my ($pix, undef) = gtkcreate_png($f); + my $dbl_area; + my $darea = new Gtk::DrawingArea; + gtkpack($box, $advertising = gtksignal_connect(gtkset_usize($darea, $width, $height), expose_event => sub { if (!defined($dbl_area)) { - $in->ask_warn('', "pix $pix | darea $darea \n "); $dbl_area = new Gtk::Gdk::Pixmap($darea->window, $width, $height); $dbl_area->draw_pixmap($darea->style->bg_gc('normal'), - $pix, 0, 0, $width, $height); - my $font = $darea->style->font; - my $style= new Gtk::Style; - $style->font(Gtk::Gdk::Font->fontset_load($font)); + $pix, 0, 0, 0, 0, $width, $height); my $gc_text = new Gtk::Gdk::GC($darea->window); - $gc_text->set_foreground(gtkcolor(255, 255, 255)); + $gc_text->set_foreground(gtkcolor(65535, 65535, 65535)); foreach (@data) { my ($width, $height, $lines, $widths, $heights, $ascents, $descents) = - get_text_coord ($_->[0], $style, $_->[3], $_->[4], 1, 0, 1, 1); + get_text_coord ($_->[0], $darea->style, $_->[3], $_->[4], 1, 0, 1, 1); my $i = 0; foreach (@{$lines}) { - $dbl_area->draw_string($style->font, $gc_text, - ${$widths}[$i], ${$ascents}[$i] + ${$heights}[$i], $_); + $dbl_area->draw_string($darea->style->font, $gc_text, + ${$widths}[$i], ${$heights}[$i], $_); + $dbl_area->draw_string($darea->style->font, $gc_text, + ${$widths}[$i] + 1, ${$heights}[$i], $_); $i++; } } - } else { - $darea->window->draw_pixmap($darea->style->bg_gc('normal'), - $dbl_area, 0, 0, 0, 0, $width, $height); } - }})); - } + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), + $dbl_area, 0, 0, 0, 0, $width, $height); + })); } else { $advertising = undef; } |