diff options
author | Antoine Ginies <aginies@mandriva.com> | 2005-08-27 13:51:32 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-27 13:51:32 +0000 |
commit | 1c12af54cf9ce25f2607995c5d141524f75052ef (patch) | |
tree | 6c6ecb3e0fd43f354080d43456f4ab448268faaf /perl-install | |
parent | cf0b3b919bbf4a40cc0e4dc2ae81b95ea705b0c2 (diff) | |
download | drakx-1c12af54cf9ce25f2607995c5d141524f75052ef.tar drakx-1c12af54cf9ce25f2607995c5d141524f75052ef.tar.gz drakx-1c12af54cf9ce25f2607995c5d141524f75052ef.tar.bz2 drakx-1c12af54cf9ce25f2607995c5d141524f75052ef.tar.xz drakx-1c12af54cf9ce25f2607995c5d141524f75052ef.zip |
now just we just need to press enter to modify a file share
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); |