- keyval feature added

1 files changed, 22 insertions, 1 deletions

diff --git a/userdrake b/userdrake
index 935ebe2..1e72e00 100755
--- a/userdrake
+++ b/userdrake
@@ -776,10 +776,31 @@ sub Edit {
 					  }
 					  $iter->free;
 				      }
-				  }
+				  } 
 				  $path->free;
 			      }
 			  });
+    $tree->signal_connect( key_press_event => sub {
+			       my $c = chr($_[1]->keyval & 0xff);
+			       if ($_[1]->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ') {
+				   my (undef, $iter) = $tree->get_selection->get_selected;
+				   return unless $iter;
+				   my $cp = $model->get($iter, 2);
+				   my $item = $model->get($iter, 1);
+				   $model->set($iter, [0 => gtkcreate_pixbuf($pix[$cp])]);
+				   $model->set($iter, [2 => !$cp]);
+				   if ($p <= 0) { 
+				       if (!$cp) { 
+					   !InArray($item, \@primgroup) and push(@primgroup, $item)
+				       } else {
+					   InArray($item, \@primgroup) and  @primgroup = RemoveFromArray($item, \@primgroup)
+				       }
+				       $us->{o}->{primgroup}->set_popdown_strings(@primgroup);
+				   }
+				   $iter->free;
+			       }
+			       0;
+			   });
     $w->main
 }
 sub ValidInt {