diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/draksec | 2 |
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, ), |