Changeset 3dcccba for perlconfig.c

Timestamp:

Jul 7, 2008, 6:23:18 AM (16 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:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -472 +472 @@
 }
 
-void owl_perlconfig_edit_callback(owl_editwin *e)
-{
-  SV *cb = (SV*)(e->cbdata);
+void owl_perlconfig_edit_callback(void *cbdata, char *c_text);
+{
+  SV *cb = (SV*)cbdata;
   SV *text;
   unsigned int n_a;
   dSP;
 
+  e->cbdata = NULL;
   if(cb == NULL) {
     owl_function_error("Perl callback is NULL!");
   }
-  text = newSVpv(owl_editwin_get_text(e), 0);
+  text = newSVpv(c_text, 0);
   SvUTF8_on(text);
 
@@ -502 +503 @@
 
   SvREFCNT_dec(cb);
-  e->cbdata = NULL;
 }