From b9cfdbea18a512e40ebf5d09f4c98e5f5071671a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Oct 2006 12:22:18 +0000 Subject: (BuildUui, Edit) HIG somewhat first tab of add & edit dialogs --- userdrake | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/userdrake b/userdrake index dbc0b24..c6f0f7a 100755 --- a/userdrake +++ b/userdrake @@ -648,12 +648,12 @@ sub BuildUui { my ($extra_widget) = @_; gtkpack_(my $vbox = Gtk2::VBox->new(0, 2), 1, create_packtable({ homogeneous => 1, col_spacings => 5, row_spacings => 5 }, - [ N("Full Name:"), $us->{o}{fullname} = Gtk2::Entry->new ], - [ N("Login:"), $us->{o}{login} = Gtk2::Entry->new ], - [ N("Password:"), $us->{o}{passwd} = GtkEntryHidePass() ], - [ N("Confirm Password:"), $us->{o}{confpasswd} = GtkEntryHidePass() ], - [ N("Login Shell:"), $us->{o}{shells} = Gtk2::Combo->new ] - $extra_widget, + [ gtknew('Label_Left', text => N("Full Name:")), $us->{o}{fullname} = Gtk2::Entry->new ], + [ gtknew('Label_Left', text => N("Login:")), $us->{o}{login} = Gtk2::Entry->new ], + [ gtknew('Label_Left', text => N("Password:")), $us->{o}{passwd} = GtkEntryHidePass() ], + [ gtknew('Label_Left', text => N("Confirm Password:")), $us->{o}{confpasswd} = GtkEntryHidePass() ], + [ gtknew('Label_Left', text => N("Login Shell:")), $us->{o}{shells} = Gtk2::Combo->new ], + $extra_widget, ) ); $us->{o}{shells}->set_popdown_strings(@{$ctx->GetUserShells}); @@ -696,12 +696,8 @@ sub Edit() { if ($p <= 0) { my ($vald, $mo, $ye) = (localtime())[3, 4, 5]; my $valy = $ye+1900; my $valm = $mo+1; gtkappend_page($nbU, - gtkpack_(Gtk2::VBox->new(0, 2), - 1, BuildUui(), - 1, create_packtable({ homogeneous => 1, col_spacings => 5, row_spacings => 5 }, - [ N("Home:"), $us->{o}{homedir} = Gtk2::Entry->new ] - ) - ), gtkshow(Gtk2::Label->new(N("User Data")))); + BuildUui([ gtknew('Label_Left', text => N("Home:")), $us->{o}{homedir} = Gtk2::Entry->new ]), + gtkshow(Gtk2::Label->new(N("User Data")))); gtkappend_page($nbU, gtkpack_(Gtk2::VBox->new(0, 2), 0, $us->{o}{acheckexpire} = Gtk2::CheckButton->new(N("Enable account expiration")), -- cgit v1.2.1