make dialogs be transcient to main window (they should really be

Gtk2::Dialog)

1 files changed, 7 insertions, 7 deletions

diff --git a/userdrake b/userdrake
index 14a1824..d4df9d0 100755
--- a/userdrake
+++ b/userdrake
@@ -194,7 +194,7 @@ sub Refresh {
     RefreshGroupsFull($filt, $strfilt);
 }
 sub AddUser {
-    my $w = ugtk2->new(N("Create New User"), grab => 1);
+    my $w = ugtk2->new(N("Create New User"), grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}), if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     my $dontcreatehomedir = 0; my $is_system = 0;
     my %u; 
     gtkadd($w->{window},
@@ -273,11 +273,11 @@ sub AddUser {
 			       } ([ N("Cancel"), 1 ], [ N("Ok"), 0 ])), 
 		   )
 	  );
-    map { $us->{o}->{$_}->set_active } (qw(privategroup createhomedir));
+    map { $us->{o}->{$_}->set_active(1) } (qw(privategroup createhomedir));
     $us->{o}->{login}->signal_connect('focus_out_event' => sub { 
 					  my $fullname = $us->{o}->{fullname}->get_text();
 					  $us->{o}->{homedir}->set_text("/home/".$us->{o}->{login}->get_text()); 
-					  $fullname or $us->{o}->{fullname}->set_text($us->{o}->{login}->get_text()) 
+					  $fullname or $us->{o}->{fullname}->set_text($us->{o}->{login}->get_text());
 				      });
     $us->{o}->{uid} = Gtk2::SpinButton->new(Gtk2::Adjustment->new(500, 1, 65000, 1, 10, 10), 1, 0);
     $h->pack_end($us->{o}->{uid}, 0, 0, 4);
@@ -293,7 +293,7 @@ sub Add2UsersGroup {
     return $usersgroup->Gid($GetValue);
 }
 sub ChooseGroup() {
-    my $w = ugtk2->new(N("Choose Group"), grab => 1, center => 1);
+    my $w = ugtk2->new(N("Choose Group"), grab => 1, center => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     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->{window},
@@ -312,7 +312,7 @@ sub ChooseGroup() {
 }			 
 sub GimmeChoice {
     my ($title, $text) = @_;
-    my $w = ugtk2->new($title, grab => 1, center => 1);
+    my $w = ugtk2->new($title, grab => 1, center => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     my $choice;
     gtkadd($w->{window},
 	   gtkpack__(Gtk2::VBox->new(0,5),
@@ -328,7 +328,7 @@ sub GimmeChoice {
     $choice;
 }     
 sub AddGroup {
-    my $w = ugtk2->new(N("Create New User"), grab => 1);
+    my $w = ugtk2->new(N("Create New User"), grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     my $mode = 0; my %g; my $is_system = 0;
     gtkadd($w->{window},
 	   gtkpack_(Gtk2::VBox->new(0, 2),
@@ -493,7 +493,7 @@ sub BuildGui {
     $vbox
 }
 sub Edit {
-    my $w = ugtk2->new('userdrake', grab => 1);
+    my $w = ugtk2->new('userdrake', grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     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);