From 2e434e0a9aa6ca4f249b599191264f76943dd013 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 16 Apr 2003 10:18:46 +0000
Subject: *** empty log message ***

---
 Perl/Makefile.PL    | 18 ------------------
 Perl/Makefile.PL.in | 15 +++++++++++++++
 Perl/Zinc.pm        |  1 +
 Perl/Zinc.xs        | 41 ++++++++++++++++++++++-------------------
 4 files changed, 38 insertions(+), 37 deletions(-)
 delete mode 100644 Perl/Makefile.PL
 create mode 100644 Perl/Makefile.PL.in

(limited to 'Perl')

diff --git a/Perl/Makefile.PL b/Perl/Makefile.PL
deleted file mode 100644
index 00d9c32..0000000
--- a/Perl/Makefile.PL
+++ /dev/null
@@ -1,18 +0,0 @@
-#
-# The first argument should be the name of the zinc library
-# either ptkzinc or ptkzinc_debug for example. The second
-# argument is the path to pTk in the system.
-#
-use Tk::MMutil;
-use Tk::Config;
-
-Tk::MMutil::TkExtMakefile(
-			  'CC' => 'gcc',
-			  'LD' => 'gcc',
-			  'CCCDLFLAGS' => '-fPIC',
-			  'NAME' => 'Tk::Zinc',
-			  'OBJECT' => '$(O_FILES)',
-			  'VERSION_FROM' => 'Zinc.pm',
-			  'XS_VERSION' => $Tk::Config::VERSION,
-			  'INC' => "-I. -I$ARGV[1]",
-			  'LIBS' => ["-L/usr/X11R6/lib -lX11 -l$ARGV[0]"]);
diff --git a/Perl/Makefile.PL.in b/Perl/Makefile.PL.in
new file mode 100644
index 0000000..6f31dd7
--- /dev/null
+++ b/Perl/Makefile.PL.in
@@ -0,0 +1,15 @@
+#
+#
+use Tk::MMutil;
+use Tk::Config;
+
+Tk::MMutil::TkExtMakefile(
+			  'CC' => 'gcc',
+			  'LD' => 'gcc',
+			  'CCCDLFLAGS' => '-fPIC',
+			  'NAME' => 'Tk::Zinc',
+			  'OBJECT' => '$(O_FILES)',
+			  'VERSION_FROM' => 'Zinc.pm',
+			  'XS_VERSION' => $Tk::Config::VERSION,
+			  'INC' => "-I. -I@PERL_TK_LIB@/pTk",
+			  'LIBS' => ["-L/usr/X11R6/lib -lX11 -L@prefix@/lib -l@PACKAGE@@VERSION@"]);
diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index 624b45f..f08809f 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -5,6 +5,7 @@ package Tk::Zinc;
 
 #require Tk;
 use Tk;
+use Tk::Photo;
 #use AutoLoader;
 #use Exporter;
 use Carp;
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);
  }
-- 
cgit v1.1