summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-01-10 15:26:26 +0000
committerdamien <damien@mandriva.com>2002-01-10 15:26:26 +0000
commit9eb1688b18e4241692b80afd363cdce2a1b1b844 (patch)
treeaa875a241294f7ba8b1697e89fb379cb3035b988 /perl-install/install_steps_gtk.pm
parent6133180ed6fbecc3a345c1721b64d38d6483ffa2 (diff)
downloaddrakx-9eb1688b18e4241692b80afd363cdce2a1b1b844.tar
drakx-9eb1688b18e4241692b80afd363cdce2a1b1b844.tar.gz
drakx-9eb1688b18e4241692b80afd363cdce2a1b1b844.tar.bz2
drakx-9eb1688b18e4241692b80afd363cdce2a1b1b844.tar.xz
drakx-9eb1688b18e4241692b80afd363cdce2a1b1b844.zip
domainname corection
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 175ece0ea..4939a539a 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -537,13 +537,16 @@ sub installPackages {
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 {
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);