128 |
0, N('Name :'), |
0, N('Name :'), |
129 |
1, my $entry = Gtk2::Entry->new(), |
1, my $entry = Gtk2::Entry->new(), |
130 |
), |
), |
|
), |
|
131 |
{ |
{ |
132 |
stock => 'gtk-dialog-info', |
stock => 'gtk-dialog-info', |
133 |
cancel => 1, |
cancel => 1, |
134 |
} |
} |
135 |
|
) |
136 |
) { |
) { |
137 |
|
|
138 |
|
my $user = $entry->get_text(); |
139 |
|
defined $user && $user ne '' or return; |
140 |
|
|
141 |
# we create a new void structure |
# we create a new void structure |
142 |
my $user_struct = new Libconf::Glueconf::Answering_Machine(); |
my $user_struct = new Libconf::Glueconf::Answering_Machine(); |
143 |
|
|
144 |
# we give it to edition |
# we give it to edition |
145 |
user_edit($entry->get_text(), $user_struct); |
user_edit($user, $user_struct); |
146 |
|
|
147 |
# we rebuild the user list |
# we rebuild the user list |
148 |
build_user_list(); |
build_user_list(); |
155 |
my ($user, $user_struct) = @_; |
my ($user, $user_struct) = @_; |
156 |
|
|
157 |
# if we didn't get a username, we pick the name selected from the gtk list |
# if we didn't get a username, we pick the name selected from the gtk list |
158 |
$user ||= $users_clist_model->get(($users_clist->get_selection->get_selected)[1], 0); |
if (!defined $user) { |
159 |
|
my @selected = $users_clist->get_selection->get_selected; |
160 |
|
defined @selected or return; |
161 |
|
$users_clist_model->get($selected[1], 0); |
162 |
|
} |
163 |
|
|
164 |
# if we didn't get the user struct, we pick it from $struct |
# if we didn't get the user struct, we pick it from $struct |
165 |
if (!defined $user_struct) { |
if (!defined $user_struct) { |