fixes for crashes during webdot usage

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index af2eba0a050df149022284ff15030512a67e21a6..ad0f52c87fcd930c569d873f6883afc146df439c 100644 (file)
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -1077,6 +1077,7 @@ static int graphcmd(ClientData clientData, Tcl_Interp * interp,
                                      (char *) 0);
            return TCL_ERROR;
        }
+       gvc->active_jobs = gvc->job;
 
        gvc->job->surface = (void *)(&tkgendata);
        gvc->job->external_surface = TRUE;
@@ -1107,6 +1108,8 @@ static int graphcmd(ClientData clientData, Tcl_Interp * interp,
                                      (char *) 0);
            return TCL_ERROR;
        }
+       gvc->active_jobs = gvc->job;
+
        if (!  (hdl = tclhandleXlate(GDHandleTable, argv[2]))) {
            Tcl_AppendResult(interp, "GD Image not found.", (char *) NULL);
            return TCL_ERROR;
@@ -1243,6 +1246,8 @@ static int graphcmd(ClientData clientData, Tcl_Interp * interp,
                "\". Use one of:", s, (char *)NULL);
            return TCL_ERROR;
        }
+       gvc->active_jobs = gvc->job;
+
        /* populate new job struct with output language and output file data */
        gvc->job->output_lang =
             gvrender_select(gvc->job, gvc->job->output_langname);