new function "getintmethod"

1 files changed, 8 insertions, 1 deletions

diff --git a/opcode.c b/opcode.c
index 5bbfe609..e36ba184 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.91 1997/04/02 17:44:18 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 3.92 1997/04/02 22:52:42 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -656,6 +656,13 @@ lua_Object lua_setfallback (char *name, lua_CFunction fallback)
   return (Ref(top-1));
 }
 
+void lua_getintmethod (int tag, char *event)
+{
+  lua_pushnumber(tag);
+  lua_pushstring(event);
+  do_unprotectedrun(luaI_getintmethod, 2, 1);
+}
+
 void lua_setintmethod (int tag, char *event, lua_CFunction method)
 {
   lua_pushnumber(tag);