summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare9
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);