summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm7
1 files changed, 6 insertions, 1 deletions
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';