aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xuserdrake20
1 files 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")),