From 5216873eb7879dcccb088424070412cfe8c7ad95 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 9 Oct 2006 12:21:22 +0000
Subject: (BuildUui) accept to pack an extra widget

---
 userdrake | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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});
-- 
cgit v1.2.1