diff options
Diffstat (limited to 'Perl/Zinc.xs')
-rw-r--r-- | Perl/Zinc.xs | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/Perl/Zinc.xs b/Perl/Zinc.xs deleted file mode 100644 index 26cd0c7..0000000 --- a/Perl/Zinc.xs +++ /dev/null @@ -1,59 +0,0 @@ -/* - Copyright (c) 1995-1997 Nick Ing-Simmons. All rights reserved. - This program is free software; you can redistribute it and/or - modify it under the same terms as Perl itself. -*/ - -#include <EXTERN.h> -#include <perl.h> -#include <XSUB.h> - -#include <tkGlue.def> - -#include <pTk/tkPort.h> -#include <pTk/tkInt.h> -#ifdef _WIN32 -#include <pTk/tkWinInt.h> -#endif -#include <pTk/tkImgPhoto.h> -#include <pTk/tkVMacro.h> -#include <tkGlue.h> -#include <tkGlue.m> - -extern int -ZincObjCmd( - ClientData client_data, - Tcl_Interp* interp, - int argc, - Tcl_Obj* CONST args[]); - -extern int -ZnVideomapObjCmd( - ClientData client_data, - Tcl_Interp* interp, - int argc, - Tcl_Obj* CONST args[]); - -extern int -ZnMapInfoObjCmd( - ClientData client_data, - Tcl_Interp* interp, - int argc, - Tcl_Obj* CONST args[]); - -DECLARE_VTABLES; -TkimgphotoVtab *TkimgphotoVptr; - -MODULE = Tk::Zinc PACKAGE = Tk::Zinc - -PROTOTYPES: DISABLE - -BOOT: - { - IMPORT_VTABLES; - TkimgphotoVptr = (TkimgphotoVtab *) SvIV(perl_get_sv("Tk::TkimgphotoVtab",GV_ADDWARN|GV_ADD)); - - Lang_TkCommand("zinc", ZincObjCmd); - Lang_TkCommand("videomap", ZnVideomapObjCmd); - Lang_TkCommand("mapinfo", ZnMapInfoObjCmd); - } |