summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm3
-rwxr-xr-xperl-install/standalone/draksec2
2 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index b5d25b0fb..9627bbf0b 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -120,6 +120,9 @@ Select permissions to see/edit", $default_perm_level)),
[ N("Delete"), N("Delete selected rule"), \&del_callback ],
[ N("Edit"), N("Edit current rule"), \&edit_callback ])),
0, gtkpack(Gtk2::HButtonBox->new,
+ gtksignal_connect(Gtk2::Button->new(N("Help")), clicked =>
+ sub { unless (fork()) { exec("drakhelp --id drakperm") } }),
+ Gtk2::Label->new(""),
gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { ugtk2->exit }),
gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => \&save_perm),
)
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index ebbed15c2..150f70272 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -279,6 +279,8 @@ my $bcancel = gtksignal_connect(Gtk2::Button->new(N("Cancel")),
gtkpack_($vbox,
1, gtkshow($notebook),
0, gtkpack(Gtk2::HButtonBox->new,
+ gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { unless (fork()) { exec("drakhelp --id draksec") } }),
+ Gtk2::Label->new(""),
$bcancel,
$bok,
),