aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/Zinc.xs36
1 files changed, 18 insertions, 18 deletions
diff --git a/Perl/Zinc.xs b/Perl/Zinc.xs
index f062ef2..d3f04e3 100644
--- a/Perl/Zinc.xs
+++ b/Perl/Zinc.xs
@@ -17,25 +17,25 @@
#include "tkGlue.m"
extern int
-ZincCmd(
- ClientData client_data,
- Tcl_Interp* interp,
- int argc,
- Arg* args );
+ZincObjCmd(
+ ClientData client_data,
+ Tcl_Interp* interp,
+ int argc,
+ Tcl_Obj *args[]);
extern int
-VideomapCmd(
- ClientData client_data,
- Tcl_Interp* interp,
- int argc,
- Arg* args );
+VideomapObjCmd(
+ ClientData client_data,
+ Tcl_Interp* interp,
+ int argc,
+ Tcl_Obj *args[]);
extern int
-MapInfoCmd(
- ClientData client_data,
- Tcl_Interp* interp,
- int argc,
- Arg* args );
+MapInfoObjCmd(
+ ClientData client_data,
+ Tcl_Interp* interp,
+ int argc,
+ Tcl_Obj *args[]);
DECLARE_VTABLES;
@@ -47,7 +47,7 @@ PROTOTYPES: DISABLE
BOOT:
{
IMPORT_VTABLES;
- Lang_TkCommand("zinc", ZincCmd);
- Lang_TkCommand("videomap", VideomapCmd);
- Lang_TkCommand("mapinfo", MapInfoCmd);
+ Lang_TkCommand("zinc", ZincObjCmd);
+ Lang_TkCommand("videomap", VideomapObjCmd);
+ Lang_TkCommand("mapinfo", MapInfoObjCmd);
}