diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/draksambashare | 9 |
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); |