From 50ba5cb41fe11a195f66011d11da21089be9cba9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 8 Sep 2003 20:15:10 +0000 Subject: add help buttons --- perl-install/standalone/drakperm | 3 +++ perl-install/standalone/draksec | 2 ++ 2 files changed, 5 insertions(+) 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, ), -- cgit v1.2.1