Adaptation suite au changement des noms de fonctions

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