summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-10 18:00:54 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-10 18:00:54 +0000
commit0b06e32c49092160c3773cb402b0498ec9b32230 (patch)
treeec485d3908b4bde424e7a8bc11724ec67ea25628 /perl-install/standalone/drakperm
parent2341086e1a95cde5968a7b72297f076f7e2954ce (diff)
downloaddrakx-0b06e32c49092160c3773cb402b0498ec9b32230.tar
drakx-0b06e32c49092160c3773cb402b0498ec9b32230.tar.gz
drakx-0b06e32c49092160c3773cb402b0498ec9b32230.tar.bz2
drakx-0b06e32c49092160c3773cb402b0498ec9b32230.tar.xz
drakx-0b06e32c49092160c3773cb402b0498ec9b32230.zip
(row_setting_dialog) sanitize spacing in frames
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-xperl-install/standalone/drakperm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index be884e4a7..e4da6f415 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -279,7 +279,7 @@ sub row_setting_dialog {
$groups->set_popdown_strings(&get_user_or_group);
$groups->entry->set_text($model->get($iter, 3)) if $iter;
- my $id_box = gtkadd(Gtk2::HBox->new(0,5),
+ my $id_box = gtkadd(Gtk2::HBox->new,
Gtk2::Label->new(N("User :")),
$users,
Gtk2::Label->new(N("Group :")),
@@ -312,27 +312,27 @@ sub row_setting_dialog {
gtkpack_($dlg->vbox,
0, gtkadd(Gtk2::Frame->new(N("Path")),
- gtkpack_(Gtk2::HBox->new(0,5),
+ gtkpack_(gtkset_border_width(Gtk2::HBox->new, 3),
1, $file,
0, $browse
)
),
0, gtkadd(Gtk2::Frame->new(N("Property")),
- gtkadd(Gtk2::VBox->new(0,5),
+ gtkadd(gtkset_border_width(Gtk2::VBox->new, 3),
$usr_check,
$id_box,
),
),
1, gtkadd(Gtk2::Frame->new(N("Permissions")),
- gtkpack(Gtk2::HBox->new(0,15),
- gtkadd(Gtk2::VBox->new(0,15),
+ gtkpack(gtkset_border_width(Gtk2::HBox->new, 3),
+ gtkadd(Gtk2::VBox->new,
Gtk2::Label->new(""),
map { gtkset_tip($tips, Gtk2::Label->new($checks{$_}{label}), $checks{$_}{tip}) } @rights,
),
(map {
my $owner = $_;
$perms{$owner} = { get_right($rights{$owner}) };
- my $vbox = gtkadd(Gtk2::VBox->new(0,5),
+ my $vbox = gtkadd(Gtk2::VBox->new,
Gtk2::Label->new($rights_labels{$owner}),
map {
my $c = $_;
@@ -347,7 +347,7 @@ sub row_setting_dialog {
$vbox;
} @owners),
- gtkpack(Gtk2::VBox->new(0,5),
+ gtkpack(Gtk2::VBox->new,
Gtk2::Label->new(' '),
map { $perms{$_} = gtkset_tip($tips, Gtk2::CheckButton->new($checks{$_}{label}), $checks{$_}{tip}) } @bits,
),