diff options
author | lecoanet | 2003-04-16 10:18:46 +0000 |
---|---|---|
committer | lecoanet | 2003-04-16 10:18:46 +0000 |
commit | 2e434e0a9aa6ca4f249b599191264f76943dd013 (patch) | |
tree | 103a1ecad49229b2f2b83cb2edb72bdb41a10be2 /Perl/Zinc.xs | |
parent | c369dceef1a8e57426a9bec1b2751bd3e9c3a244 (diff) | |
download | tkzinc-2e434e0a9aa6ca4f249b599191264f76943dd013.zip tkzinc-2e434e0a9aa6ca4f249b599191264f76943dd013.tar.gz tkzinc-2e434e0a9aa6ca4f249b599191264f76943dd013.tar.bz2 tkzinc-2e434e0a9aa6ca4f249b599191264f76943dd013.tar.xz |
*** empty log message ***
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); } |