diff options
author | Olivier Blin <oblin@mandriva.com> | 2008-04-03 08:21:45 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2008-04-03 08:21:45 +0000 |
commit | e7e66b406e613a296417a0e18b280579527f6607 (patch) | |
tree | 2a8537ff136f80acecec13f4ed59e25195f47a75 /bin | |
parent | 73bb5ccde5f26b77599acb1c83b0ff130ba98255 (diff) | |
download | drakguard-e7e66b406e613a296417a0e18b280579527f6607.tar drakguard-e7e66b406e613a296417a0e18b280579527f6607.tar.gz drakguard-e7e66b406e613a296417a0e18b280579527f6607.tar.bz2 drakguard-e7e66b406e613a296417a0e18b280579527f6607.tar.xz drakguard-e7e66b406e613a296417a0e18b280579527f6607.zip |
use more generic function names
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/drakguard | 10 |
1 files changed, 5 insertions, 5 deletions
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 { |