On edge creation, move call to agbindrec from non-cgraph to cgraph fork.

diff --git a/tclpkg/tcldot/tcldot-graphcmd.c b/tclpkg/tcldot/tcldot-graphcmd.c
index 6af696fc98f3d401e65ad7a71e7d7a91c7a9f6cf..60fc8323bde529036336c75a9993f1e02a73d61b 100644 (file)
--- a/tclpkg/tcldot/tcldot-graphcmd.c
+++ b/tclpkg/tcldot/tcldot-graphcmd.c
@@ -117,9 +117,9 @@ int graphcmd(ClientData clientData, Tcl_Interp * interp,
        }
 #ifndef WITH_CGRAPH
        e = agedge(g, tail, head);
-       agbindrec(ce, "Agedgeinfo_t", sizeof(Agedgeinfo_t), TRUE);
 #else
        e = agedge(g, tail, head, NULL, 1);
+       agbindrec(e, "Agedgeinfo_t", sizeof(Agedgeinfo_t), TRUE);
        Tcl_AppendResult(interp, obj2cmd(e), NULL);
 #endif
 #ifndef WITH_CGRAPH