Changeset 3dcccba for perlconfig.c


Ignore:
Timestamp:
Jul 7, 2008, 6:23:18 AM (13 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
Branches:
barnowl_perlaim
Children:
61abb18
Parents:
7d63a6c
Message:
This would probably work, except it doesn't compile.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rdb0ac7e r3dcccba  
    472472}
    473473
    474 void owl_perlconfig_edit_callback(owl_editwin *e)
    475 {
    476   SV *cb = (SV*)(e->cbdata);
     474void owl_perlconfig_edit_callback(void *cbdata, char *c_text);
     475{
     476  SV *cb = (SV*)cbdata;
    477477  SV *text;
    478478  unsigned int n_a;
    479479  dSP;
    480480
     481  e->cbdata = NULL;
    481482  if(cb == NULL) {
    482483    owl_function_error("Perl callback is NULL!");
    483484  }
    484   text = newSVpv(owl_editwin_get_text(e), 0);
     485  text = newSVpv(c_text, 0);
    485486  SvUTF8_on(text);
    486487
     
    502503
    503504  SvREFCNT_dec(cb);
    504   e->cbdata = NULL;
    505505}
    506506
Note: See TracChangeset for help on using the changeset viewer.