modify Tk_Create(Old)ImageType signature, relaxing

the constraint that every Tk_ImageType can only
be passed to this function once. This allows
tkImg to be loaded in multiple interpreters
in a thread-enabled build of Tk.
This CONSTification complies with TIP #27. It is
binary compatible with the old interface, but not
fully source compatible (although tkImg does not suffer).

1 files changed, 4 insertions, 4 deletions

diff --git a/generic/tk.decls b/generic/tk.decls
index 632c85f..8d3740e 100644
--- a/generic/tk.decls
+++ b/generic/tk.decls
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tk.decls,v 1.44 2008/11/09 23:16:56 nijtmans Exp $
+# RCS: @(#) $Id: tk.decls,v 1.45 2008/11/12 00:15:24 nijtmans Exp $
 
 library tk
 
@@ -185,7 +185,7 @@ declare 37 generic {
     void Tk_CreateGenericHandler(Tk_GenericProc *proc, ClientData clientData)
 }
 declare 38 generic {
-    void Tk_CreateImageType(Tk_ImageType *typePtr)
+    void Tk_CreateImageType(const Tk_ImageType *typePtr)
 }
 declare 39 generic {
     void Tk_CreateItemType(Tk_ItemType *typePtr)
@@ -405,7 +405,7 @@ declare 97 generic {
 }
 declare 98 generic {
     ClientData Tk_GetImageMasterData(Tcl_Interp *interp,
-	    const char *name, Tk_ImageType **typePtrPtr)
+	    const char *name, CONST86 Tk_ImageType **typePtrPtr)
 }
 declare 99 generic {
     Tk_ItemType * Tk_GetItemTypes(void)
@@ -1068,7 +1068,7 @@ declare 271 generic {
 # Developers who need to produce a file [load]able into legacy interps must
 # build against legacy sources.
 declare 272 generic {
-    void Tk_CreateOldImageType(Tk_ImageType *typePtr)
+    void Tk_CreateOldImageType(const Tk_ImageType *typePtr)
 }
 declare 273 generic {
     void Tk_CreateOldPhotoImageFormat(const Tk_PhotoImageFormat *formatPtr)