diff options
| -rwxr-xr-x | userdrake | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -307,7 +307,7 @@ sub AddUser { 0, Gtk2::HSeparator->new, 0, GetFaceIcon(), 0, Gtk2::HSeparator->new, - 0, gtkpack(Gtk2::HBox->new(1, 20), + 0, gtkpack(create_hbox('edge'), map { my $r = $_->[1]; gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { @@ -405,7 +405,7 @@ sub ChooseGroup() { Gtk2::Label->new(N("A group with this name already exists. What would you like to do?")), gtkpack(Gtk2::VBox->new(0,0), @radio), Gtk2::HSeparator->new, - gtkpack(create_hbox(), + gtkpack(create_hbox('edge'), gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { each_index { $_->get_active and $choice = $::i } @radio; $w->destroy; @@ -432,7 +432,7 @@ sub AddGroup { 0, $us->{o}{groupid} = Gtk2::CheckButton->new(N("Specify group ID manually")), 0, gtkset_sensitive(my $h = Gtk2::HBox->new(0, 4), 0), 0, Gtk2::HSeparator->new, - 0, gtkpack(Gtk2::HBox->new(1, 20), + 0, gtkpack(create_hbox('edge'), map { my $r = $_->[1]; gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { @@ -512,7 +512,7 @@ sub Delete { 0, $checkhome = Gtk2::CheckButton->new(N("Delete Home Directory :%s", $userEnt->HomeDir($GetValue))), 0, $checkspool = Gtk2::CheckButton->new(N("Delete Mailbox :/var/spool/mail/%s", $username)), 0, Gtk2::HSeparator->new, - 0, gtkpack(Gtk2::HBox->new(1, 20), + 0, gtkpack(create_hbox('edge'), map { my $r = $_->[1]; gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { @@ -546,7 +546,7 @@ sub Delete { gtkpack_(Gtk2::VBox->new(0, 2), 0, Gtk2::Label->new(N("Do you really want to delete the group %s\n", $groupname)), 0, Gtk2::HSeparator->new, - 0, gtkpack(Gtk2::HBox->new(1, 20), + 0, gtkpack(create_hbox('edge'), map { my $r = $_->[1]; gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { @@ -784,7 +784,7 @@ sub Edit { gtkpack_(Gtk2::VBox->new(0,5), 1, !$p ? $nbU : $nbG, 0, Gtk2::HSeparator->new, - 0, gtkpack(Gtk2::HBox->new(1, 20), + 0, gtkpack(create_hbox('edge'), map { my $retv = $_->[1]; gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { |