summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-22 13:10:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-22 13:10:53 +0000
commit6b2827f02d330e487d083d1d7be2081dc292e7fd (patch)
tree3f637fd706f2cf49e883c3f462b0fe1fd219b97c /perl-install
parent0fc2b4a15ce0e39e8cadfbb65dbd490b89fd58d0 (diff)
downloaddrakx-backup-do-not-use-6b2827f02d330e487d083d1d7be2081dc292e7fd.tar
drakx-backup-do-not-use-6b2827f02d330e487d083d1d7be2081dc292e7fd.tar.gz
drakx-backup-do-not-use-6b2827f02d330e487d083d1d7be2081dc292e7fd.tar.bz2
drakx-backup-do-not-use-6b2827f02d330e487d083d1d7be2081dc292e7fd.tar.xz
drakx-backup-do-not-use-6b2827f02d330e487d083d1d7be2081dc292e7fd.zip
array costs less than a hash
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake261
1 files changed, 29 insertions, 32 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 98b12e17b..429df9e7c 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -93,39 +93,36 @@ my %menu_options = (
my @menu_items =
(
- { path => N("/_File"), type => '<Branch>' },
- { path => N("/_File").N("/_Quit"), accelerator => N("<control>Q"), callback => \&quit_global },
- { path => join('', @{$menu_options{PRINTERS_DETECTION}}), type => '<CheckItem>',
- callback => sub { $options{PRINTERS_DETECTION} = $check_boxes{PRINTERS_DETECTION}->active } },
- { path => join('', @{$menu_options{MODEMS_DETECTION}}), type => '<CheckItem>',
- callback => sub { $options{MODEMS_DETECTION} = $check_boxes{MODEMS_DETECTION}->active } },
- { path => join('', @{$menu_options{JAZZ_DETECTION}}), type => '<CheckItem>',
- callback => sub { $options{JAZZ_DETECTION} = $check_boxes{JAZZ_DETECTION}->active } },
- { path => $menus{help}, type => '<Branch>' },
- { path => $menus{help}.N("/_Help"), callback => sub { unless (fork()) { exec("drakhelp Drakxtools-Guide.html/harddrake.html") } } },
- {
- path => $menus{help}.N("/_Fields description"),
- callback => sub {
- 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 the device information in fields displayed on the right frame (\"Information\")"))
- }
- }
- },
- { path => $menus{help}.N("/_Report Bug"),
- callback => sub { unless (fork()) { exec("drakbug --report harddrake2 &") } } },
- { path => $menus{help}.N("/_About..."),
- callback => sub {
- $in->ask_warn(N("About Harddrake"),
- N("This is HardDrake, a Mandrake hardware configuration tool.\nVersion: %s
+ [ N("/_File"), undef, undef, undef, '<Branch>' ],
+ [ N("/_File").N("/_Quit"), N("<control>Q"), \&quit_global, undef, '<CheckItem>' ],
+ [ join('', @{$menu_options{PRINTERS_DETECTION}}), undef,
+ sub { $options{PRINTERS_DETECTION} = $check_boxes{PRINTERS_DETECTION}->active }, undef, '<CheckItem>' ],
+ [ join('', @{$menu_options{MODEMS_DETECTION}}), undef,
+ sub { $options{MODEMS_DETECTION} = $check_boxes{MODEMS_DETECTION}->active }, undef, '<CheckItem>' ],
+ [ join('', @{$menu_options{JAZZ_DETECTION}}), undef,
+ sub { $options{JAZZ_DETECTION} = $check_boxes{JAZZ_DETECTION}->active }, undef, '<CheckItem>' ],
+ [ $menus{help}, undef, undef, undef, '<Branch>' ],
+ [ $menus{help}.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp Drakxtools-Guide.html/harddrake.html") } }, undef, '<CheckItem>' ],
+ [ $menus{help}.N("/_Fields description"), undef, sub {
+ 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 the device information in fields displayed on the right frame (\"Information\")"))
+ }
+ },
+ undef, '<CheckItem>'
+ ],
+ [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<CheckItem>' ],
+ [ $menus{help}.N("/_About..."), undef, sub {
+ $in->ask_warn(N("About Harddrake"),
+ N("This is HardDrake, a Mandrake hardware configuration tool.\nVersion: %s
Author: Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $harddrake::data::version) .
- formatAlaTeX($::license));
- }
- }
- );
+ formatAlaTeX($::license));
+ }, undef, '<CheckItem>'
+ ]
+ );
$in = 'interactive'->vnew('su');