From 33b633e9b1412e3d53ba2fb755fb3a68ee5b501c Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Thu, 5 Jun 2003 10:57:54 +0000 Subject: - cosmetic fixes --- userdrake2 | 40 +++++++++++++++++++--------------------- 1 file changed, 19 insertions(+), 21 deletions(-) (limited to 'userdrake2') diff --git a/userdrake2 b/userdrake2 index 8fc3c30..8c092f7 100755 --- a/userdrake2 +++ b/userdrake2 @@ -118,7 +118,7 @@ foreach (($tbedit, $tbdel, $checkedit, $checkdel)) { $_->set_sensitive(0) }; my $ctx = USER::ADMIN->new; Refresh($sysfilter); $nb->signal_connect('switch-page' => sub { NotebookSwitch() }); -GetEvent($usertree); GetEvent($grouptree); +#GetEvent($usertree); GetEvent($grouptree); $us->{wnd}{rwindow}->show_all; Gtk2->main; ugtk2->exit; @@ -132,24 +132,6 @@ sub NotebookSwitch { my $page = $nb->get_current_page(); $page and TreeUnselect($usertree) or TreeUnselect($grouptree); } -sub GetEvent { - my $treev = shift; - $treev->signal_connect(button_press_event => sub { - my (undef, $event) = @_; - my (undef, $iter) = $treev->get_selection->get_selected; - return unless $iter; - foreach (($tbedit, $tbdel, $checkedit, $checkdel)) { $_->set_sensitive(1) }; - Edit($iter) if $event->type eq '2button-press'; - $iter->free; - }); - $treev->signal_connect(key_press_event => sub { - my (undef, $event) = @_; - my (undef, $iter) = $treev->get_selection->get_selected; - return unless $iter; - Edit($iter) if ($event->keyval == Gtk2::Gdk::Event::Key->Sym_Return); - $iter->free; - }); -} sub Refresh_Users_Full { my $filterusers = shift; my $users = $ctx->UsersEnumerateFull(); @@ -366,7 +348,7 @@ sub AddGroup { sub Delete { my $page = $nb->get_current_page(); if ($page == 0) { - print "page 0\n"; + print "page 0"; } elsif ($page == 1) { print "page 1\n"; } @@ -376,9 +358,25 @@ sub Delete { sub CreateTree { my ($tree_model) = @_; my $tree = Gtk2::TreeView->new_with_model($tree_model); - $tree->get_selection->set_mode('browse'); + $tree->get_selection->set_mode('single'); $tree->set_headers_visible(1); $tree->set_rules_hint(1); + $tree->get_selection->signal_connect('changed' => sub { foreach (($tbedit, $tbdel, $checkedit, $checkdel)) { $_->set_sensitive(1);} }); + $tree->signal_connect(button_press_event => sub { + my (undef, $event) = @_; + my (undef, $iter) = $tree->get_selection->get_selected; + return unless $iter; + foreach (($tbedit, $tbdel, $checkedit, $checkdel)) { $_->set_sensitive(1) }; + Edit($iter) if $event->type eq '2button-press'; + $iter->free; + }); + $tree->signal_connect(key_press_event => sub { + my (undef, $event) = @_; + my (undef, $iter) = $tree->get_selection->get_selected; + return unless $iter; + Edit($iter) if ($event->keyval == Gtk2::Gdk::Event::Key->Sym_Return); + $iter->free; + }); $tree } sub gtkentry_hidepass { -- cgit v1.2.1