summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksambashare
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-27 13:51:32 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-27 13:51:32 +0000
commit1c12af54cf9ce25f2607995c5d141524f75052ef (patch)
tree6c6ecb3e0fd43f354080d43456f4ab448268faaf /perl-install/standalone/draksambashare
parentcf0b3b919bbf4a40cc0e4dc2ae81b95ea705b0c2 (diff)
downloaddrakx-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/standalone/draksambashare')
-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);