summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/ui.pm34
1 files changed, 20 insertions, 14 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 02109c60e..595e8dc50 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -38,6 +38,7 @@ my %fields =
"fpu_exception" => [ N("Does FPU have an irq vector"), N("yes means the arithmetic coprocessor has an exception vector attached")],
"f00f_bug" => [N("F00f bug"), N("Early pentium were buggy and freeze when decoding the F00F instruction")],
"media_type" => [ N("Media class"), N("class of hardware device")],
+ "Mhz" => [ N("Frequency (Mhz)"), N("The cpu frequency in Mhz")],
"Model" => [N("Model"), N("hard disk model")],
"nbuttons" => [ N("Number of buttons"), "the number of buttons the mouse have"],
"name" => [ N("Name"), "the name of the cpu"],
@@ -69,7 +70,7 @@ my ($in, %IDs, $pid, $w);
my %options;
my $conffile = "/etc/sysconfig/harddrake2/ui.conf";
-my ($modem_check_box, $printer_check_box);
+my ($modem_check_box, $printer_check_box, $current_device);
my @menu_items =
(
@@ -83,10 +84,14 @@ my @menu_items =
{
path => N("/_Help").N("/_Help..."),
callback => sub {
- $in->ask_warn(N("Harddrake help"),
- N("Description of the fields:\n\n")
- . join("\n\n", map { if_($fields{$_}[0], "$fields{$_}[0]: $fields{$_}[1]")} keys %fields));
- }
+ if ($current_device) {
+ $in->ask_warn(N("Harddrake help"),
+ N("Description of the fields:\n\n")
+ . join("\n\n", map { if_($fields{$_}[0], "$fields{$_}[0]: $fields{$_}[1]")} sort keys %$current_device))
+ } else {
+ $in->ask_warn(N("Select a device !"), N("Once you've selected a device, you'll be able to see explanations on fields displayed on the right frame (\"Information\")"))
+ }
+ }
},
{ path => N("/_Help").N("/_Report Bug"),
callback => sub { unless (fork) { exec("drakbug --report harddrake2 &") } } },
@@ -202,25 +207,26 @@ sub new {
my ($ctree, $row, $column, $event) = @_;
my $node = $ctree->node_nth($row);
my ($name, undef) = $tree->node_get_pixtext($node,0);
- my $data = $tree->{data}{$name};
+ $current_device = $tree->{data}{$name};
- if ($data) {
+ if ($current_device) {
$text->hide;
$text->backward_delete($text->get_point);
- foreach my $i (sort keys %$data) {
- $text->insert("", $text->style->black, "", ($fields{$i}[0] ? $fields{$i}[0] : $i) . ": ");
- if ($i eq 'driver' && $data->{$i} eq 'unknown') {
- $text->insert("", $wcolor, "", "$data->{$i}\n\n");
- } else { $text->insert("", $color, "", "$data->{$i}\n\n") }
+ foreach my $i (sort keys %$current_device) {
+ if ($fields{$i}[0]) {
+ $text->insert("", $text->style->black, "", $fields{$i}[0] . ": ");
+ $text->insert("", ($i eq 'driver' && $current_device->{$i} eq 'unknown') ? $wcolor : $color,
+ "", "$current_device->{$i}\n\n");
+ } else { print "Skip $i field\n\n" }
}
disconnect($module_cfg_button, 'module');
# we've valid driver, let's offer to configure it
- if (exists $data->{driver} && $data->{driver} !~ /(unknown|.*\|.*)/ && $data->{driver} !~ /^Card:/) {
+ if (exists $current_device->{driver} && $current_device->{driver} !~ /(unknown|.*\|.*)/ && $current_device->{driver} !~ /^Card:/) {
$module_cfg_button->show;
$IDs{module} = $module_cfg_button->signal_connect(clicked => sub {
require modules::interactive;
- modules::interactive::config_window($in, $data);
+ modules::interactive::config_window($in, $current_device);
gtkset_mousecursor_normal();
});
}