diff options
-rwxr-xr-x | userdrake | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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}); |