summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-08 20:15:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-08 20:15:10 +0000
commit50ba5cb41fe11a195f66011d11da21089be9cba9 (patch)
tree4e0573779f064c4a4dc1d3cc9e93be57077efa59 /perl-install/standalone
parent7393135d912181601c0aa6f1050664f5866180bf (diff)
downloaddrakx-backup-do-not-use-50ba5cb41fe11a195f66011d11da21089be9cba9.tar
drakx-backup-do-not-use-50ba5cb41fe11a195f66011d11da21089be9cba9.tar.gz
drakx-backup-do-not-use-50ba5cb41fe11a195f66011d11da21089be9cba9.tar.bz2
drakx-backup-do-not-use-50ba5cb41fe11a195f66011d11da21089be9cba9.tar.xz
drakx-backup-do-not-use-50ba5cb41fe11a195f66011d11da21089be9cba9.zip
add help buttons
Diffstat (limited to 'perl-install/standalone')
-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,
),