From 33e516ff5e432a1f76e2d965709c43f3c48fb33d Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 1 Mar 2002 17:16:16 +0000
Subject: style & font correction

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

(limited to 'perl-install')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 048ce9923..94c42f56e 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -62,9 +62,8 @@ sub new {
 	    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 $style= new Gtk::Style;
-	    $style->font(Gtk::Gdk::Font->fontset_load("-adobe-times-bold-r-normal-*-25-*-100-100-p-*-iso8859-*"));
-	    my $w = $style->font->string_width($::Wizard_title);
+	    $draw1->style->font(Gtk::Gdk::Font->fontset_load("-adobe-utopia-bold-r-normal-*-25-*-100-100-p-*-iso8859-*,*-r-*"));
+	    my $w = $draw1->style->font->string_width($::Wizard_title);
 	    $draw1->signal_connect(expose_event => sub {
 				       my $i;
 				       for ($i=0;$i<(540/$y1);$i++) {
@@ -72,7 +71,7 @@ sub new {
 									$im_up, 0, 0, 0, $y1*$i,
 									$x1 , $y1 );
 					   $draw1->window->draw_string(
-								       $style->font,
+								       $draw1->style->font,
 								       $draw1->style->white_gc,
 								       140+(380-$w)/2, 62,
 								       ($::Wizard_title) );
@@ -405,18 +404,19 @@ sub create_pix_text {
     if (ref($background) eq 'Gtk::Gdk::Color') { $color_background = $background }
     elsif ($background =~ /#(\d+)#(\d+)#(\d+)/) { $color_background = gtkcolor(map{$_*65535/255}($1, $2, $3)) }
     elsif (ref($background) eq 'Gtk::Gdk::Pixmap' && $x_back && $y_back) { $backpix = 1 }
-    my $style= new Gtk::Style;
+    my $fake_darea = new Gtk::DrawingArea;
+    my $style= $fake_darea->style->copy();
     if (ref($font) eq 'Gtk::Gdk::Font') {
 	$style->font($font);
     } else {
-	$font ||= _("-adobe-utopia-medium-r-normal-*-12-*-*-*-p-*-iso8859-*,*-r-*");
-#-	$style->font(Gtk::Gdk::Font->fontset_load($font));
+#-	$font ||= _("-adobe-utopia-medium-r-normal-*-12-*-*-*-p-*-iso8859-*,*-r-*");
+	$font and $style->font(Gtk::Gdk::Font->fontset_load($font));
     }
 
     my ($width, $height, $lines, $widths, $heights) = get_text_coord (
         $text, $style, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy);
-
     my $pix = new Gtk::Gdk::Pixmap($w->window, $width, $height);
+
     if ($backpix) {
 	fill_tiled($w, $pix, $background, $x_back, $y_back, $width, $height);
     } else {
-- 
cgit v1.2.1