Changeset 3dcccba for perlconfig.c
- Timestamp:
- Jul 7, 2008, 6:23:18 AM (16 years ago)
- Branches:
- barnowl_perlaim
- Children:
- 61abb18
- Parents:
- 7d63a6c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
rdb0ac7e r3dcccba 472 472 } 473 473 474 void owl_perlconfig_edit_callback( owl_editwin *e)475 { 476 SV *cb = (SV*) (e->cbdata);474 void owl_perlconfig_edit_callback(void *cbdata, char *c_text); 475 { 476 SV *cb = (SV*)cbdata; 477 477 SV *text; 478 478 unsigned int n_a; 479 479 dSP; 480 480 481 e->cbdata = NULL; 481 482 if(cb == NULL) { 482 483 owl_function_error("Perl callback is NULL!"); 483 484 } 484 text = newSVpv( owl_editwin_get_text(e), 0);485 text = newSVpv(c_text, 0); 485 486 SvUTF8_on(text); 486 487 … … 502 503 503 504 SvREFCNT_dec(cb); 504 e->cbdata = NULL;505 505 } 506 506
Note: See TracChangeset
for help on using the changeset viewer.