summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-08 11:28:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-08 11:28:21 +0000
commit009023a74562757d59bf7eb2d6f6ab9048b44239 (patch)
tree565fdc954c3bf6f1d3621f6e7b8fe15d51157753 /perl-install/install_gtk.pm
parentb80a27d639f0d1159f89d063144bb30696dd575a (diff)
downloaddrakx-backup-do-not-use-009023a74562757d59bf7eb2d6f6ab9048b44239.tar
drakx-backup-do-not-use-009023a74562757d59bf7eb2d6f6ab9048b44239.tar.gz
drakx-backup-do-not-use-009023a74562757d59bf7eb2d6f6ab9048b44239.tar.bz2
drakx-backup-do-not-use-009023a74562757d59bf7eb2d6f6ab9048b44239.tar.xz
drakx-backup-do-not-use-009023a74562757d59bf7eb2d6f6ab9048b44239.zip
- remove buttons to change theme
- add F5 to change the theme to the 'white' theme - cleanup the theme code
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm23
1 files changed, 4 insertions, 19 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index f33495571..0b0804a0c 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -11,10 +11,6 @@ use devices;
#-#####################################################################################
#-INTERN CONSTANT
#-#####################################################################################
-my @themes_vga16 = qw(blue blackwhite savane);
-my @themes_desktop = qw(mdk-Desktop marble3d);
-my @themes_firewall = qw(mdk-Firewall);
-my @themes = qw(mdk marble3d);
my (@background1, @background2);
@@ -36,10 +32,9 @@ sub load_rc {
sub default_theme {
my ($o) = @_;
- @themes = @themes_desktop if $o->{meta_class} eq 'desktop';
- @themes = @themes_firewall if $o->{meta_class} eq 'firewall';
- @themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16};
- install_theme($o, $o->{theme} || $themes[0]);
+ $o->{meta_class} eq 'desktop' ? 'blue' :
+ $o->{meta_class} eq 'firewall' ? 'mdk-Firewall' :
+ $o->{simple_themes} || $o->{vga16} ? 'blue' : 'mdk';
}
#------------------------------------------------------------------------------
@@ -156,17 +151,7 @@ sub create_steps_window {
gtkpack_(new Gtk::HBox(0,5), 0, $darea, 0, new Gtk::Label(translate($step->{text})));
} grep {
!eval $o->{steps}{$_}{hidden};
- } @{$o->{orderedSteps}}),
- 0, gtkpack(new Gtk::HBox(0,0), map {
- my $t = $_;
- my $w = new Gtk::Button('');
- $w->set_name($t);
- $w->set_usize(0, 7);
- gtksignal_connect($w, clicked => sub {
- $::setstep or return; #- just as setstep s
- install_theme($o, $t); die "theme_changed\n"
- });
- } @themes)));
+ } @{$o->{orderedSteps}})));
$w->show;
$o->{steps_window} = $w;
}