summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-24 19:02:16 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-24 19:02:16 +0000
commit10b649b6503f47388f1548c8ba9391dd6ce0284e (patch)
tree6bc1fe238a7a28721cfd15b52946e67d236c8277 /perl-install/Xconfigurator.pm
parented18d4ad1743445dc1c49d65b5a64a0c73510edd (diff)
downloaddrakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar
drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.gz
drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.bz2
drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.xz
drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.zip
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm17
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 16ecde778..7ff4566b7 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -604,6 +604,22 @@ sub XF86check_link {
}
}
+sub show_info {
+ my ($o) = @_;
+ my $info;
+
+ $info .= _("Keyboard language: %s\n", $o->{keyboard}{xkb_keymap});
+ $info .= _("Mouse type: %s\n", $o->{mouse}{xtype});
+ $info .= _("Mouse device: %s\n", $o->{mouse}{device}) if $::expert;
+ $info .= _("Monitor: %s\n", $o->{monitor}{type});
+ $info .= _("Monitor HorizSync: %s\n", $o->{monitor}{hsyncrange}) if $::expert;
+ $info .= _("Monitor VertRefresh: %s\n", $o->{monitor}{vsyncrange}) if $::expert;
+ $info .= _("Graphic card: %s\n", $o->{card}{type});
+ $info .= _("Graphic memory: %s KB\n", $o->{card}{memory}) if $o->{card}{memory};
+ $info .= _("XFree86 server: %s\n", $o->{card}{server});
+
+ $in->ask_warn('', $info);
+}
# * Program entry point.
sub main {
@@ -632,6 +648,7 @@ sub main {
delete $o->{card}{depth};
resolutionsConfiguration($o, 'nowarning');
},
+ __("Show information") => sub { show_info($o) },
__("Test again") => sub { $ok = testFinalConfig($o, 1) },
__("Quit") => sub { $quit = 1 },
);