aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xuserdrake4
1 files changed, 3 insertions, 1 deletions
diff --git a/userdrake b/userdrake
index 07d829d..dbc0b24 100755
--- a/userdrake
+++ b/userdrake
@@ -644,7 +644,8 @@ sub GtkEntrySized {
$e;
}
-sub BuildUui() {
+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 ],
@@ -652,6 +653,7 @@ sub BuildUui() {
[ N("Password:"), $us->{o}{passwd} = GtkEntryHidePass() ],
[ N("Confirm Password:"), $us->{o}{confpasswd} = GtkEntryHidePass() ],
[ N("Login Shell:"), $us->{o}{shells} = Gtk2::Combo->new ]
+ $extra_widget,
)
);
$us->{o}{shells}->set_popdown_strings(@{$ctx->GetUserShells});