- use entry to perform a search

1 files changed, 2 insertions, 0 deletions

diff --git a/userdrake b/userdrake
index ac18dfc..a65b224 100755
--- a/userdrake
+++ b/userdrake
@@ -150,6 +150,8 @@ my ($tbuser, $tbgroup, $tbedit, $tbdel, $tbref, $tbhelp) = @toolbwg;
 foreach (($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete})) { $_->set_sensitive(0) }; 
 my $ctx = USER::ADMIN->new; 
 $fbut->signal_connect('clicked', sub { $stringsearch = $filter->get_text() ; Refresh($sysfilter, $stringsearch) });
+$filter->signal_connect('key_press_event' => sub { $_[1]->keyval == Gtk2::Gdk::Event::Key->Sym_Return
+						      and Refresh($sysfilter, $filter->get_text()) });
 Refresh($sysfilter, $stringsearch);
 my $tmm = ConvTime(19, 06, 2003);
 $nb->signal_connect('switch-page' => sub { NotebookSwitch() });