Address TCL 8->9 API change

Author: highperformancecoder

include/cairo_base.h

@@ -381,7 +381,7 @@ namespace ecolab
       /// generic configure function, given a particular \a configSpecs
       int configureCairoItem(Tcl_Interp *interp, Tk_Canvas canvas, 
                              Tk_Item *itemPtr,	int objc, 
-                             Tcl_Obj *CONST objv[],
+                             Tcl_Obj *const objv[],
                              int flags, Tk_ConfigSpec configSpecs[]);
       void  ComputeImageBbox(Tk_Canvas canvas, ImageItem *imgPtr);
     }
@@ -390,7 +390,7 @@ namespace ecolab
     /// creating Tk canvas itemTypes
     template <class C>
     int createImage(Tcl_Interp *interp,	Tk_Canvas canvas, Tk_Item *itemPtr, 
-                    int objc,Tcl_Obj *CONST objv[])
+                    int objc,Tcl_Obj *CONST84 objv[])
     {
       if (TkImageCode::CreateImage(interp,canvas,itemPtr,objc,objv,C::configSpecs)==TCL_OK)
         {

include/tcl++.h

@@ -43,7 +43,10 @@ into a simple I/O stream and tclindex, a simple iterator through a TCL array */
 
 /* for Tcl 8.4 compatibility */
 #ifndef CONST84
-#define CONST84
+#define CONST84 const
+#endif
+#ifndef CONST
+#define CONST const
 #endif
 
 #ifdef TK

src/analysis.cc

@@ -38,7 +38,11 @@ int palette_class::size=0;
 
 palette_class::palette_class()
 {
-  int  elemc;
+#if TCL_MAJOR_VERSION >= 9
+  Tcl_Size  elemc;
+#else
+  int elemc;
+#endif
 
   if (size==0)
    {