1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 38c16ac5e..4b3f9602e 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -28,6 +28,7 @@ use interactive;
 use ugtk2 qw(:ask :wrappers :create :dialogs);
 use mygtk2 qw(gtknew);
 use Gtk2::SimpleList;
+use Gtk2::Gdk::Keysyms;
 
 # use libconf
 use Libconf::Templates;
@@ -1096,6 +1097,14 @@ $share_list->signal_connect('button-press-event' => sub {
 			    }
 			   );
 
+$share_list->signal_connect(key_press_event => sub {
+    my ($widget, $event) = @_;
+    return unless $event->keyval == $Gtk2::Gdk::Keysyms{Return};
+    my ($selected) = $share_list->get_selected_indices;
+    modify_entry($selected, $share_list);
+    return 1;
+});
+
 # create menu
 my @items = get_items();
 my $factory = Gtk2::ItemFactory->new('Gtk2::MenuBar', '<main>', undef);