From 6ed6b5341362f87e3c70420f206a33f71c72a3de Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 23 Jul 2002 10:35:55 +0000
Subject: - Big Move 1: interactive::* hierarchy

---
 perl-install/Xconfigurator.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index df67350e9..22864b6f5 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -638,7 +638,7 @@ sub testFinalConfig {
     print F "use lib qw(", join(' ', @INC), ");\n";
     print F q{
         require lang;
-	use interactive_gtk;
+	use interactive::gtk;
         use my_gtk qw(:wrappers);
 
         $::isStandalone = 1;
@@ -664,7 +664,7 @@ sub testFinalConfig {
         -r "} . $::prefix . q{/$background" && -x "} . $::prefix . q{/$qiv" and
             system(($::testing ? "} . $::prefix . q{" : "chroot } . $::prefix . q{/ ") . "$qiv -y $background");
 
-        my $in = interactive_gtk->new;
+        my $in = interactive::gtk->new;
 	$in->exit($in->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222);
     };
     my $rc = close F;
@@ -858,7 +858,7 @@ sub chooseResolutionsGtk {
 sub chooseResolutions {
     my ($in, $card, $chosen_depth, $chosen_w) = @_;
 
-    return chooseResolutionsGtk($card, $chosen_depth, $chosen_w) if $in->isa('interactive_gtk');
+    return chooseResolutionsGtk($card, $chosen_depth, $chosen_w) if $in->isa('interactive::gtk');
 
     my $best_w;
     my $allowed_depth = allowedDepth($card);
@@ -1379,7 +1379,7 @@ _("I can setup your computer to automatically start the graphical interface (XFr
 Would you like XFree to start when you reboot?"), 1);
 	    any::runlevel($::prefix, $run ? 5 : 3) if !$::testing;
 	}
-	if ($::isStandalone && $in->isa('interactive_gtk')) {
+	if ($::isStandalone && $in->isa('interactive::gtk')) {
 	    if (my $wm = any::running_window_manager()) {
 		if ($in->ask_okcancel('', _("Please relog into %s to activate the changes", ucfirst (lc $wm)), 1)) {
 		    fork and $in->exit;
-- 
cgit v1.2.1