From bbbd8d1b5130e6cebf3e3635faf2dd7c274f5f7d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 20:06:45 +0000 Subject: (info): fix displaying depth --- perl-install/Xconfig/various.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/Xconfig') diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm index 1c2d1ae73..dea93439b 100644 --- a/perl-install/Xconfig/various.pm +++ b/perl-install/Xconfig/various.pm @@ -4,6 +4,7 @@ use diagnostics; use strict; use Xconfig::card; +use Xconfig::resolution_and_depth; use common; use any; @@ -33,7 +34,7 @@ sub info { $info .= _("Graphics card: %s\n", $device->{VendorName} . ' '. $device->{BoardName}); $info .= _("Graphics memory: %s kB\n", $device->{VideoRam}) if $device->{VideoRam}; if (my $resolution = eval { $raw_X->get_resolution }) { - $info .= _("Color depth: %s\n", translate($Xconfig::xfreeX::depths{$resolution->{Depth}})); + $info .= _("Color depth: %s\n", translate($Xconfig::resolution_and_depth::depth2text{$resolution->{Depth}})); $info .= _("Resolution: %s\n", join('x', @$resolution{'X', 'Y'})); } $info .= _("XFree86 server: %s\n", $card->{server}) if $card->{server}; -- cgit v1.2.1