Changeset c737503 for perlglue.xs


Ignore:
Timestamp:
Sep 30, 2011, 8:06:57 AM (10 years ago)
Author:
Jason Gross <jgross@mit.edu>
Branches:
master, release-1.9
Children:
e89ec48
Parents:
eba02ec
git-author:
Jason Gross <jgross@mit.edu> (06/25/11 21:19:32)
git-committer:
Jason Gross <jgross@mit.edu> (09/30/11 08:06:57)
Message:
Improved consistency between owl_function_start_* functions
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rf271129 rc737503  
    209209        const char *line
    210210        SV *callback
     211        PREINIT:
     212                owl_editwin *e;
    211213        CODE:
    212214        {
     
    214216                        croak("Callback must be a subref");
    215217
    216                 owl_function_start_edit_win(line,
    217                                             owl_perlconfig_edit_callback,
    218                                             newSVsv(callback),
    219                                             owl_perlconfig_dec_refcnt);
     218                e = owl_function_start_edit_win(line);
     219                owl_editwin_set_cbdata(e,
     220                                       newSVsv(callback),
     221                                       owl_perlconfig_dec_refcnt);
     222                owl_editwin_set_callback(e, &owl_perlconfig_edit_callback);
    220223        }
    221224
Note: See TracChangeset for help on using the changeset viewer.