summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-19 15:31:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-19 15:31:19 +0000
commit5adb1d65482baea9ee996ad41cbc4d3223b37ff6 (patch)
treec2b7ab5a9bed476f9095ab3c2f9fdb9b9ee73bd5 /perl-install/standalone/drakperm
parentd55263461af02a2d126ba9bf33a370a1936af707 (diff)
downloaddrakx-5adb1d65482baea9ee996ad41cbc4d3223b37ff6.tar
drakx-5adb1d65482baea9ee996ad41cbc4d3223b37ff6.tar.gz
drakx-5adb1d65482baea9ee996ad41cbc4d3223b37ff6.tar.bz2
drakx-5adb1d65482baea9ee996ad41cbc4d3223b37ff6.tar.xz
drakx-5adb1d65482baea9ee996ad41cbc4d3223b37ff6.zip
fix layout:
- let it fit when embedded - move ok/cancel buttons out of the frame (thus nicely separate them)
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm31
1 files changed, 16 insertions, 15 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 60204651e..9abba28b6 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -106,12 +106,12 @@ my $tips = new Gtk2::Tooltips;
$W->add(gtkpack_(Gtk2::VBox->new(0,5),
0, Gtk2::WrappedLabel->new(N("Drakperm is used to see files to use in order to fix permissions, owners, and groups via msec.\nYou can also edit your own rules which will owerwrite the default rules.")),
1, gtkadd(Gtk2::Frame->new,
- gtkpack_(Gtk2::VBox->new(0,5),
- 0, gtkadd(Gtk2::HBox->new(0,5),
- Gtk2::Label->new(N("The current security level is %s
+ gtkpack_(Gtk2::VBox->new,
+ 0, Gtk2::WrappedLabel->new(N("The current security level is %s.
Select permissions to see/edit", $level)),
- $combo_perm
- ),
+ 0, gtkpack_(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
+ 0, $combo_perm,
+ ),
1, create_scrolled_window($permList),
0, my $up_down_box = gtkadd(Gtk2::HBox->new(0, 5), @buttons =
map {
@@ -123,16 +123,17 @@ Select permissions to see/edit", $level)),
[ N("Add a rule"), N("Add a new rule at the end"), \&add_callback ],
[ 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),
- )
- )
- )
- )
+ 0, Gtk2::VBox->new,
+ ),
+ ),
+ 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),
+ )
+ )
);
$W->show_all;
$w->{rwindow}->set_position('center') unless $::isEmbedded;