From 959943551599fc1fe7e1bba59b508d8d441b448e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Dec 2002 21:37:32 +0000
Subject: remove dynamic theme choosing, and next/previous (F11/F12) handling

---
 perl-install/my_gtk.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 079f5d5f9..9f14368c5 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -224,18 +224,13 @@ sub _create_window($$) {
     }
     $w->signal_connect(key_press_event => sub {
 	my $d = ${{ 0xffbe => 'help',
-		    0xffbf => 'screenshot',
-		    0xffc2 => 'set_theme',
-	            0xffc9 => 'next',
-		    0xffc8 => 'previous' }}{$_[1]{keyval}};
+		    0xffbf => 'screenshot' }}{$_[1]{keyval}};
 
 	if ($d eq "help") {
 	    require install_gtk;
 	    install_gtk::create_big_help($::o);
 	} elsif ($::isInstall && $d eq 'screenshot') {
 	    common::take_screenshot($o);
-	} elsif ($::isInstall && $d eq 'set_theme') {
-	    $::setstep and die "set_theme\n"; #- set_theme is similar to setstep, don't raise one when not allowed to
 	} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
 	    log::l("Switching to " . ($::expert ? "beginner" : "expert"));
 	    $::expert = !$::expert;
-- 
cgit v1.2.1