diff options
Diffstat (limited to 'Perl/Zinc.xs')
-rw-r--r-- | Perl/Zinc.xs | 41 |
1 files changed, 22 insertions, 19 deletions
diff --git a/Perl/Zinc.xs b/Perl/Zinc.xs index d3f04e3..323a53a 100644 --- a/Perl/Zinc.xs +++ b/Perl/Zinc.xs @@ -8,13 +8,14 @@ #include <perl.h> #include <XSUB.h> -#include "tkGlue.def" +#include <tkGlue.def> -#include "pTk/tkPort.h" -#include "pTk/tkInt.h" -#include "pTk/tkVMacro.h" -#include "tkGlue.h" -#include "tkGlue.m" +#include <pTk/tkPort.h> +#include <pTk/tkInt.h> +#include <pTk/tkImgPhoto.h> +#include <pTk/tkVMacro.h> +#include <tkGlue.h> +#include <tkGlue.m> extern int ZincObjCmd( @@ -24,21 +25,21 @@ ZincObjCmd( Tcl_Obj *args[]); extern int -VideomapObjCmd( - ClientData client_data, - Tcl_Interp* interp, - int argc, - Tcl_Obj *args[]); +ZnVideomapObjCmd( + ClientData client_data, + Tcl_Interp* interp, + int argc, + Tcl_Obj *args[]); extern int -MapInfoObjCmd( - ClientData client_data, - Tcl_Interp* interp, - int argc, - Tcl_Obj *args[]); +ZnMapInfoObjCmd( + ClientData client_data, + Tcl_Interp* interp, + int argc, + Tcl_Obj *args[]); DECLARE_VTABLES; - +TkimgphotoVtab *TkimgphotoVptr; MODULE = Tk::Zinc PACKAGE = Tk::Zinc @@ -47,7 +48,9 @@ PROTOTYPES: DISABLE BOOT: { IMPORT_VTABLES; + TkimgphotoVptr = (TkimgphotoVtab *) SvIV(perl_get_sv("Tk::TkimgphotoVtab",GV_ADDWARN|GV_ADD)); + Lang_TkCommand("zinc", ZincObjCmd); - Lang_TkCommand("videomap", VideomapObjCmd); - Lang_TkCommand("mapinfo", MapInfoObjCmd); + Lang_TkCommand("videomap", ZnVideomapObjCmd); + Lang_TkCommand("mapinfo", ZnMapInfoObjCmd); } |