From e7e66b406e613a296417a0e18b280579527f6607 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 3 Apr 2008 08:21:45 +0000 Subject: use more generic function names --- bin/drakguard | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'bin') diff --git a/bin/drakguard b/bin/drakguard index e5758b2..6717012 100755 --- a/bin/drakguard +++ b/bin/drakguard @@ -166,7 +166,7 @@ gtkadd($w->{window}, gtknew('Button', text => N("Add"), clicked => sub { my $text = $entry->get_text; $text =~ s,^[^:]+://,,g; #- strip protocol - list_add_addr($url_list->{list}, $text); + list_add_entry($url_list->{list}, $text); $entry->set_text(""); }), ]), @@ -191,7 +191,7 @@ Gtk2->main; $w->exit(0); -sub list_add_addr { +sub list_add_entry { my ($list, @addr) = @_; foreach my $a (@addr) { push @{$list->{data}}, $a @@ -199,7 +199,7 @@ sub list_add_addr { } } -sub list_remove_addr { +sub list_remove_entry { my ($list, @addr) = @_; #- workaround buggy Gtk2::SimpleList array abstraction, it destroys references @{$list->{data}} = map { member($_->[0], @addr) ? () : [ @$_ ] } @{$list->{data}}; @@ -212,11 +212,11 @@ sub list_get_selected { sub list_remove_selected { my ($list) = @_; - list_remove_addr($list, list_get_selected($list)); + list_remove_entry($list, list_get_selected($list)); } sub add_user { - list_add_addr($users_list, list_get_selected($allusers_list)); + list_add_entry($users_list, list_get_selected($allusers_list)); } sub remove_user { -- cgit v1.2.1