diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-08-24 15:57:23 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-08-24 15:57:23 +0000 |
| commit | 328ce33d9b48588abd507591d403ffcdf9612a93 (patch) | |
| tree | 376572183d1ad3ac56718f5a21b08d721c7486f4 /perl-install/install_steps_gtk.pm | |
| parent | ae6724e80a75c2e253daa9ded045c756f399e860 (diff) | |
| download | drakx-backup-do-not-use-328ce33d9b48588abd507591d403ffcdf9612a93.tar drakx-backup-do-not-use-328ce33d9b48588abd507591d403ffcdf9612a93.tar.gz drakx-backup-do-not-use-328ce33d9b48588abd507591d403ffcdf9612a93.tar.bz2 drakx-backup-do-not-use-328ce33d9b48588abd507591d403ffcdf9612a93.tar.xz drakx-backup-do-not-use-328ce33d9b48588abd507591d403ffcdf9612a93.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 7 |
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'; |