From cddab5d126d4e6fa609db0a69a98d05545f0df15 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 19 Jul 2004 12:20:46 +0000 Subject: fix button layout in dialogs --- userdrake | 12 ++++++------ 1 file 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 { -- cgit v1.2.1