summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-23 10:35:55 +0000
commit6ed6b5341362f87e3c70420f206a33f71c72a3de (patch)
treeff028b5845f88d0a485f8c20ae726e462627aa59 /perl-install/Xconfigurator.pm
parente2889facfca0f6c6f64e2194f913a6b525f255e0 (diff)
downloaddrakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.gz
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.bz2
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.tar.xz
drakx-6ed6b5341362f87e3c70420f206a33f71c72a3de.zip
- Big Move 1: interactive::* hierarchy
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm8
1 files changed, 4 insertions, 4 deletions
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;