diff options
author | lecoanet | 2000-06-05 11:53:38 +0000 |
---|---|---|
committer | lecoanet | 2000-06-05 11:53:38 +0000 |
commit | 010431ef74a07daf218da2ca2aa436be6b068623 (patch) | |
tree | 04905f5dc0fa8a6ae9de84d264bb79699d0b7f69 | |
parent | f122fd6ef50ed00fb0aa45b7a22e3672926b45bd (diff) | |
download | tkzinc-010431ef74a07daf218da2ca2aa436be6b068623.zip tkzinc-010431ef74a07daf218da2ca2aa436be6b068623.tar.gz tkzinc-010431ef74a07daf218da2ca2aa436be6b068623.tar.bz2 tkzinc-010431ef74a07daf218da2ca2aa436be6b068623.tar.xz |
Adaptation suite au changement des noms de fonctions
-rw-r--r-- | Perl/Zinc.xs | 36 |
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); } |