Changeset 9186c75 for perlglue.xs

Timestamp:

Mar 29, 2010, 11:11:32 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

0fe69d2

Parents:

98d296d

git-author:

Nelson Elhage <nelhage@ksplice.com> (03/19/10 17:21:32)

git-committer:

Nelson Elhage <nelhage@mit.edu> (03/29/10 23:11:32)

Message:

Make functions that start an editwin return it, too.

File:

• perlglue.xs (modified) (4 diffs)

perlglue.xs

@@ -172 +172 @@
         SV *callback
         PREINIT:
+                owl_editwin *e;
         CODE:
         {
@@ -177 +178 @@
                         croak("Callback must be a subref");
 
-                owl_function_start_question(line);
-
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g),
+                e = owl_function_start_question(line);
+
+                owl_editwin_set_cbdata(e,
                                        newSVsv(callback),
                                        owl_perlconfig_dec_refcnt);
-                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+                owl_editwin_set_callback(e, owl_perlconfig_edit_callback);
         }
 
@@ -190 +191 @@
         SV *callback
         PREINIT:
+                owl_editwin *e;
         CODE:
         {
@@ -195 +197 @@
                         croak("Callback must be a subref");
 
-                owl_function_start_password(line);
-
-                owl_editwin_set_cbdata(owl_global_get_typwin(&g),
+                e = owl_function_start_password(line);
+
+                owl_editwin_set_cbdata(e,
                                        newSVsv(callback),
                                        owl_perlconfig_dec_refcnt);
-                owl_editwin_set_callback(owl_global_get_typwin(&g), owl_perlconfig_edit_callback);
+                owl_editwin_set_callback(e, owl_perlconfig_edit_callback);
         }