- fix random error

1 files changed, 5 insertions, 3 deletions

diff --git a/userdrake b/userdrake
index 5a2e810..620d081 100755
--- a/userdrake
+++ b/userdrake
@@ -603,7 +603,7 @@ sub Edit {
     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);
+    my ($groupname, $username, $groupEnt, $userEnt, $members, $times, $min, $max, $warn, $inact, $primgid, $temp, $Gent);
     my @primgroup;
     my @pix = ($pixdir.'selected.png', $pixdir.'unselected.png');
     $tree->get_selection->set_mode('browse');
@@ -689,7 +689,7 @@ sub Edit {
 	my $grps = $ctx->GroupsEnumerate(); my @sgroups = sort(@$grps);
 	$members = $ctx->EnumerateGroupsByUser($username);
 	$primgid = $userEnt->Gid($GetValue);
-	my $Gent = $ctx->LookupGroupById($primgid);
+	$Gent = $ctx->LookupGroupById($primgid);
 	foreach my $group (@sgroups) {
 	    if (any { $_ eq $group } @$members) {
 		$model->append_set([ 0 => gtkcreate_pixbuf($pix[0]), 1 => $group, 2 => 1]); push(@primgroup, $group);
@@ -839,7 +839,7 @@ sub Edit {
 								 }
 							     }
 							 }
-							 !$error and Gtk2->main_quit; $error = 0; })
+							 !$error and Gtk2->main_quit; $error = 0; gtkset_mousecursor_normal();})
 			       } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])),
 		   ));
     $tree->show;
@@ -861,6 +861,7 @@ sub Edit {
 						  InArray($item, \@primgroup) and  @primgroup = RemoveFromArray($item, \@primgroup)
 					      }
 					      $us->{o}->{primgroup}->set_popdown_strings(@primgroup);
+					      $Gent and $us->{o}->{primgroup}->entry->set_text($Gent->GroupName($GetValue));
 					  }
 				      }
 				  } 
@@ -882,6 +883,7 @@ sub Edit {
 					   InArray($item, \@primgroup) and  @primgroup = RemoveFromArray($item, \@primgroup)
 				       }
 				       $us->{o}->{primgroup}->set_popdown_strings(@primgroup);
+				       $Gent and $us->{o}->{primgroup}->entry->set_text($Gent->GroupName($GetValue));
 				   }
 			       }
 			       0;