- fix crash happening when selection get lost (by refreshing list) and edit or

  delete button is activated (found by David Baudens)

1 files changed, 6 insertions, 2 deletions

diff --git a/userdrake b/userdrake
index 53a11d2..cfc9ff3 100755
--- a/userdrake
+++ b/userdrake
@@ -138,7 +138,7 @@ map {
     [ N("Help"), N("Generic help on userdrake"), 'help', \&HelpSystem ]
   );
 my ($tbuser, $tbgroup, $tbedit, $tbdel, $tbref, $tbhelp) = @toolbwg;
-foreach (($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete})) { $_->set_sensitive(0) }; 
+GrayDelEdit();
 my $ctx = USER::ADMIN->new; 
 $fbut->signal_connect('clicked', sub { $stringsearch = $filter->get_text() ; Refresh($sysfilter, $stringsearch) });
 Refresh($sysfilter, $stringsearch);
@@ -147,10 +147,13 @@ $us->{wnd}{rwindow}->show_all;
 Gtk2->main;
 ugtk2->exit;
 
+sub GrayDelEdit {
+    foreach (($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete})) { defined $_ and $_->set_sensitive(0) };
+}
 sub TreeUnselect {
     my $treev = shift;
     $treev->get_selection->unselect_all;
-    foreach (($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete})) { $_->set_sensitive(0) };
+    GrayDelEdit()
 }
 sub NotebookSwitch { 
     my $page = $nb->get_current_page();
@@ -194,6 +197,7 @@ sub Refresh {
     my ($filt, $strfilt) = @_;
     RefreshUsersFull($filt, $strfilt); 
     RefreshGroupsFull($filt, $strfilt);
+    GrayDelEdit()
 }
 sub AddUser {
     my $w = ugtk2->new(N("Create New User"), grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}), if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));