*** empty log message ***

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);
  }