fix button layout in dialogs

1 files changed, 6 insertions, 6 deletions

diff --git a/userdrake b/userdrake
index 6175a36..76eaa37 100755
--- a/userdrake
+++ b/userdrake
@@ -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 {