From 3b29a1f2124b114cd3058452a538cab789525c34 Mon Sep 17 00:00:00 2001 From: John Ellson Date: Thu, 1 May 2014 16:25:26 -0400 Subject: [PATCH] disable gd feature in tcldot for now to fix build breakage --- tclpkg/tcldot/tcldot-graphcmd.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tclpkg/tcldot/tcldot-graphcmd.c b/tclpkg/tcldot/tcldot-graphcmd.c index 1a2efad3c..ce7b94d62 100644 --- a/tclpkg/tcldot/tcldot-graphcmd.c +++ b/tclpkg/tcldot/tcldot-graphcmd.c @@ -385,9 +385,12 @@ int graphcmd(ClientData clientData, Tcl_Interp * interp, gvjobs_delete(gvc); return TCL_OK; +#if 0 #if HAVE_LIBGD } else if ((c == 'r') && (strncmp(argv[1], "rendergd", length) == 0)) { +#if 0 void **hdl; +#endif if (argc < 3) { Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], @@ -401,11 +404,15 @@ int graphcmd(ClientData clientData, Tcl_Interp * interp, } job = gvc->job; +#if 0 if (! (hdl = tclhandleXlate(GDHandleTable, argv[2]))) { Tcl_AppendResult(interp, "GD Image not found.", NULL); return TCL_ERROR; } job->context = *hdl; +#else + job->context = (void*)(((Tcl_Obj*)(argv[2]))->internalRep.otherValuePtr); +#endif job->external_context = TRUE; /* make sure that layout is done */ @@ -421,6 +428,7 @@ int graphcmd(ClientData clientData, Tcl_Interp * interp, gvjobs_delete(gvc); Tcl_AppendResult(interp, argv[2], NULL); return TCL_OK; +#endif #endif } else if ((c == 's') -- 2.40.0