diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-10 18:00:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-10 18:00:54 +0000 |
| commit | 0b06e32c49092160c3773cb402b0498ec9b32230 (patch) | |
| tree | ec485d3908b4bde424e7a8bc11724ec67ea25628 /perl-install | |
| parent | 2341086e1a95cde5968a7b72297f076f7e2954ce (diff) | |
| download | drakx-backup-do-not-use-0b06e32c49092160c3773cb402b0498ec9b32230.tar drakx-backup-do-not-use-0b06e32c49092160c3773cb402b0498ec9b32230.tar.gz drakx-backup-do-not-use-0b06e32c49092160c3773cb402b0498ec9b32230.tar.bz2 drakx-backup-do-not-use-0b06e32c49092160c3773cb402b0498ec9b32230.tar.xz drakx-backup-do-not-use-0b06e32c49092160c3773cb402b0498ec9b32230.zip | |
(row_setting_dialog) sanitize spacing in frames
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakperm | 14 |
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, ), |