summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-15 15:54:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-15 15:54:01 +0000
commit436be90e08113eebbf126731496a87e9dad08304 (patch)
tree7ead38ec9f6f7325bb418c2771cf92c0128b9cd1 /perl-install/standalone
parentfc69b22b9a327eeb0f86a03580a1e1d8b8ef422f (diff)
downloaddrakx-backup-do-not-use-436be90e08113eebbf126731496a87e9dad08304.tar
drakx-backup-do-not-use-436be90e08113eebbf126731496a87e9dad08304.tar.gz
drakx-backup-do-not-use-436be90e08113eebbf126731496a87e9dad08304.tar.bz2
drakx-backup-do-not-use-436be90e08113eebbf126731496a87e9dad08304.tar.xz
drakx-backup-do-not-use-436be90e08113eebbf126731496a87e9dad08304.zip
- (create_dialog) :
o options are passed through a hash ref o wrap text o update caller list - harddrake2: convert to use create_dialog() instead of interactive->warn (fix #3487)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/harddrake28
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 02ddb5abb..855ec62bf 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -105,18 +105,18 @@ my @menu_items =
[ $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"),
+ create_dialog(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\")"))
+ create_dialog(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"),
+ create_dialog(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));
@@ -124,7 +124,7 @@ Author: Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $harddrake::data::ver
]
);
-$in = 'interactive'->vnew('su');
+$in = 'interactive'->vnew('su'); #require_root_capability();
my $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
gtkflush();