From 1c12af54cf9ce25f2607995c5d141524f75052ef Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Sat, 27 Aug 2005 13:51:32 +0000 Subject: now just we just need to press enter to modify a file share --- perl-install/standalone/draksambashare | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl-install/standalone/draksambashare') 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', '
', undef); -- cgit v1.2.1