From: John Ellson <ellson@research.att.com>
Date: Sat, 25 Feb 2012 21:29:39 +0000 (-0500)
Subject: need agbindrec when graph is created
X-Git-Tag: LAST_LIBGRAPH~32^2~478^2~2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=34166581d3764ad0bdc5de7c32221c5c598e3044;p=graphviz

need agbindrec when graph is created
---

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index 6be52d960..8a0e913ec 100644
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -1527,6 +1527,9 @@ static int dotnew(ClientData clientData, Tcl_Interp * interp,
 #endif
 	i = 2;
     }
+#ifdef WITH_CGRAPH
+    agbindrec(g, "Agraphinfo_t", sizeof(Agraphinfo_t), TRUE);
+#endif
     if (!g) {
 	Tcl_AppendResult(interp, "\nFailure to open graph.", NULL);
 	return TCL_ERROR;