change agsetodisc() to agsetiodisc() and add hook for fread()

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index b8e192e21508f614b1394f644658ef94bf46a987..3d2a3335dcf7d7a7636f5589fa67480b56323d59 100644 (file)
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -1722,7 +1722,7 @@ int Tcldot_Init(Tcl_Interp * interp)
 #endif
 
     aginit();
-    agsetodisc(gvfwrite, gvferror);
+    agsetiodisc(NULL, gvfwrite, gvferror);
     /* set persistent attributes here */
     agnodeattr(NULL, "label", NODENAME_ESC);