From a4299593feb14ed8317da49980b8c06e59688aa2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Apr 2000 23:59:01 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 1e6af32e0..772e5dbbe 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -48,7 +48,7 @@ sub new($$) {
     my $old = $SIG{__DIE__};
     $SIG{__DIE__} = sub { $_[0] !~ /my_gtk\.pm/ and goto $old };
 
-    $ENV{DISPLAY} = $o->{display} || ":0";
+    $ENV{DISPLAY} ||= $o->{display} || ":0";
     unless ($::testing) {
 	$my_gtk::force_focus = $ENV{DISPLAY} eq ":0";
 
@@ -599,12 +599,12 @@ style "default-font"
 {
    fontset = "$font"
 }
-style "steps"
+style "small-font"
 {
    fontset = "$font2"
 }
 widget "*" style "default-font"
-widget "*Steps*" style "steps"
+widget "*Steps*" style "small-font"
 
 ));
    }
-- 
cgit v1.2.1