From ac9c4c62395a54786e30859ce7bf6f845415167c Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 29 Mar 2001 11:34:18 +0000
Subject: changed wizard pixmap policy

---
 perl-install/my_gtk.pm | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 9de8d0bb5..a33cc4f06 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -53,16 +53,16 @@ sub new {
 	if (!defined($::WizardWindow)) {
 	    $::WizardWindow = new Gtk::Window;
 	    $::WizardWindow->set_position('center_always');
-	    $::WizardTable = new Gtk::Table(2, 2, 0);
+	    $::WizardTable = new Gtk::Table(1, 2, 0);
 	    $::WizardWindow->add($::WizardTable);
 	    my $draw1 = new Gtk::DrawingArea;
 	    $draw1->set_usize(540,100);
-	    my $draw2 = new Gtk::DrawingArea;
-	    $draw2->set_usize(100,300);
+#	    my $draw2 = new Gtk::DrawingArea;
+#	    $draw2->set_usize(100,300);
 	    my ($im_up, $mask_up) = gtkcreate_png($::Wizard_pix_up || "wiz_default_up.png");
 	    my ($y1, $x1) = $im_up->get_size;
-	    my ($im_left, $mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
-	    my ($y2, $x2) = $im_left->get_size;
+#	    my ($im_left, $mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
+#	    my ($y2, $x2) = $im_left->get_size;
 	    $draw1->signal_connect(expose_event => sub {
 				       my $i;
 				       for ($i=0;$i<(540/$y2);$i++) {
@@ -71,20 +71,21 @@ sub new {
 									$x1 , $y1 );
 				       }
 				   });
-	    $draw2->signal_connect(expose_event => sub {
-				       my $i;
-				       for ($i=0;$i<(300/$y2);$i++) {
-					   $draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
-									$im_left, 0, 0, 0, $y2*$i,
-									$x2 , $y2 );
-				       }
-				   });
-	    $::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
-	    $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0);
+#	    $draw2->signal_connect(expose_event => sub {
+#				       my $i;
+#				       for ($i=0;$i<(300/$y2);$i++) {
+#					   $draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
+#									$im_left, 0, 0, 0, $y2*$i,
+#									$x2 , $y2 );
+#				       }
+#				   });
+	    $::WizardTable->attach($draw1, 0, 1, 0, 1, 'fill', 'fill', 0, 0);
+#	    $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0);
+	    $::WizardTable->set_usize(540,400);
 	    $::WizardWindow->show_all;
 	    flush();
 	}
-	$::WizardTable->attach($o->{window}, 1, 2, 1, 2, {'fill', 'expand'}, {'fill', 'expand'}, 0, 0);
+	$::WizardTable->attach($o->{window}, 0, 1, 1, 2, {'fill', 'expand'}, {'fill', 'expand'}, 0, 0);
     }
 
     $::isEmbedded or return $o;
-- 
cgit v1.2.1