(BuildUui) accept to pack an extra widget

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});