From 78566d016696ecad9c24426a439a157e34e102df Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 17 Mar 2006 14:49:53 +0000
Subject: (NewWindow) second argument ('mode') is unused and always set to 1.
 Let's drop it.

---
 userdrake | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/userdrake b/userdrake
index 1345952..20edc47 100755
--- a/userdrake
+++ b/userdrake
@@ -288,7 +288,7 @@ sub GetFaceIcon {
     $hb;
 }
 sub AddUser {
-    my $w = NewWindow(N("Create New User"), 1);
+    my $w = NewWindow(N("Create New User"));
     my $dontcreatehomedir = 0; my $is_system = 0;
     my %u; 
     gtkadd($w,
@@ -396,7 +396,7 @@ sub Add2UsersGroup {
     return $usersgroup->Gid($GetValue);
 }
 sub ChooseGroup() {
-    my $w = NewWindow(N("Choose group"), 1);
+    my $w = NewWindow(N("Choose group"));
     my $choice;
     my @radio = gtkradio(N("Add to the existing group"), (N("Add to the existing group"), N("Add to the 'users' group")));
     gtkadd($w,
@@ -422,7 +422,7 @@ sub GimmeChoice {
     $choice;
 }
 sub AddGroup {
-    my $w = NewWindow(N("Create New Group"), 1);
+    my $w = NewWindow(N("Create New Group"));
     my $mode = 0; my %g; my $is_system = 0;
     gtkadd($w,
 	   gtkpack_(Gtk2::VBox->new(0, 2),
@@ -506,7 +506,7 @@ sub Delete {
 	#my $removehome = GimmeChoice(N(" Remove Home Directory"), N("Do you want to delete the user's home directory and mail spool?"));
 	#$removehome and $ctx->Clean($userEnt);
 # New version
-	my $w = NewWindow(N("Delete files or not?"), 1);
+	my $w = NewWindow(N("Delete files or not?"));
 	my $hd = $userEnt->HomeDir($GetValue);
 	gtkadd($w,
 	       gtkpack_(Gtk2::VBox->new(0, 2),
@@ -550,7 +550,7 @@ sub Delete {
 	#$w->main;
     } elsif ($page == 1) {
 	my $groupname =  GetNameEntFromIter($grouptree, $gtree_model, 0);
-	my $wg = NewWindow(N("Delete files or not?"), 1);
+	my $wg = NewWindow(N("Delete files or not?"));
 	gtkadd($wg,
 	       gtkpack_(Gtk2::VBox->new(0, 2),
 			0, Gtk2::Label->new(N("Do you really want to delete the group %s\n", $groupname)),
@@ -660,7 +660,7 @@ sub BuildGui {
     $vbox;
 }
 sub NewWindow {
-    my ($title, $mode) = @_;
+    my ($title) = @_;
     my $w = Gtk2::Window->new('toplevel');
     $w->set_title($title);
     $w->signal_connect(delete_event => sub { $w->destroy });
@@ -669,7 +669,7 @@ sub NewWindow {
     $w;
 }
 sub Edit {
-    my $w = NewWindow(N("Edit Groups / Users"), 1);
+    my $w = NewWindow(N("Edit Groups / Users"));
     my $model = Gtk2::ListStore->new("Gtk2::Gdk::Pixbuf", "Glib::String", "Glib::Int");
     my $tree = Gtk2::TreeView->new_with_model($model); my %g; my %u; 
     my ($groupname, $username, $groupEnt, $userEnt, $members, $times, $min, $max, $warn, $inact, $primgid, $temp, $Gent);
@@ -1039,7 +1039,7 @@ sub valid_groupname {
 		return valid($_[0], 16);
 }
 sub RaiseError {
-    my $w = NewWindow(N("Error"), 1);
+    my $w = NewWindow(N("Error"));
     $error = 1;
     gtkadd($w,
 	   gtkpack_(Gtk2::VBox->new,
-- 
cgit v1.2.1