From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

---
 Perl/Zinc.xs | 59 -----------------------------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100644 Perl/Zinc.xs

(limited to 'Perl/Zinc.xs')

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);
- }
-- 
cgit v1.1