Changeset 11d55e5 for perlglue.xs

Timestamp:

Sep 21, 2011, 4:20:30 PM (12 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

8ad3964

Parents:

bbd0cf1

git-author:

Jason Gross <jgross@mit.edu> (06/25/11 21:19:32)

git-committer:

Jason Gross <jgross@mit.edu> (09/21/11 16:20:30)

Message:

Improved consistency between owl_function_start_* functions

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -209 +209 @@
         const char *line
         SV *callback
+        PREINIT:
+                owl_editwin *e;
         CODE:
         {
@@ -214 +216 @@
                         croak("Callback must be a subref");
 
-                owl_function_start_edit_win(line,
-                                            owl_perlconfig_edit_callback,
-                                            newSVsv(callback),
-                                            owl_perlconfig_dec_refcnt);
+                e = owl_function_start_edit_win(line);
+                owl_editwin_set_cbdata(e,
+                                       newSVsv(callback),
+                                       owl_perlconfig_dec_refcnt);
+                owl_editwin_set_callback(e, &owl_perlconfig_edit_callback);
         }