Add sections for PIL (Fred Lundh).

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 08217604aa8cec29d7942ee66e7da004470467a2..1239da5ee4ff99b0fa1a19b573935e583b25734a 100644 (file)
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -27,9 +27,23 @@ Tcl_AppInit (interp)
                                  (ClientData) main, NULL);
        }
 #endif
+
+#ifdef WITH_PIL /* 0.2b5 and later -- not yet released as of May 14 */
+       {
+               extern void TkImaging_Init(Tcl_Interp *interp);
+               TkImaging_Init(interp);
+       }
+#endif
+
+#ifdef WITH_PIL_OLD /* 0.2b4 and earlier */
+       {
+               extern void TkImaging_Init(void);
+               TkImaging_Init();
+       }
+#endif
+
 #ifdef WITH_XXX
 
 #endif
        return TCL_OK;
 }
-