need agbindrec when graph is created

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index 6be52d960e3f5ec33742ad1c9ad98a2f8bbf40c0..8a0e913eca8f1aabdea8ba414cf28e9ed466b0c1 100644 (file)
--- 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;