Changeset c737503 for perlglue.xs

Timestamp:

Sep 30, 2011, 8:06:57 AM (13 years ago)

Author:

Jason Gross <jgross@mit.edu>

Branches:

master, release-1.10, 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:

• 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);
         }