From 328ce33d9b48588abd507591d403ffcdf9612a93 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 24 Aug 2000 15:57:23 +0000
Subject: *** empty log message ***

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

(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 20d69018b..aa30394b3 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -539,6 +539,7 @@ sub load_rc($) {
 }
 
 sub install_theme {
+    $::live and return;
     my ($o, $theme) = @_;    
     $o->{theme} = $theme || $o->{theme} || $themes[0];
 
@@ -581,6 +582,7 @@ sub create_big_help {
 
 #------------------------------------------------------------------------------
 sub create_help_window {
+    $::live and return;
     my ($o) = @_;
 
 #    $o->{help_window}->destroy if $o->{help_window};
@@ -632,7 +634,8 @@ sub create_help_window {
     $o->{help_window} = $w;
 }
 
-sub set_help { 
+sub set_help {
+    $::live and return 1;
     shift;
     gtktext_insert($w_help, 
 		   formatAlaTeX(join "\n", 
@@ -642,6 +645,7 @@ sub set_help {
 
 #------------------------------------------------------------------------------
 sub create_steps_window {
+    $::live and return;
     my ($o) = @_;
 
     my $PIX_H = my $PIX_W = 21;
@@ -708,6 +712,7 @@ sub create_steps_window {
 
 #------------------------------------------------------------------------------
 sub create_logo_window() {
+    $::live and return;
     my ($o) = @_;
     gtkdestroy($o->{logo_window});
     my $w = bless {}, 'my_gtk';
-- 
cgit v1.2.1