/[libconf]/libconf/applications/isdn/isdn_answering
ViewVC logotype

Diff of /libconf/applications/isdn/isdn_answering

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dams, Mon Nov 24 20:31:31 2003 UTC revision 1.4 by dams, Tue Nov 25 00:20:13 2003 UTC
# Line 128  sub user_add { Line 128  sub user_add {
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();
# Line 152  sub user_edit { Line 155  sub user_edit {
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) {

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26