From: John Ellson <ellson@research.att.com>
Date: Mon, 21 Oct 2013 19:06:59 +0000 (-0400)
Subject: fix breakage
X-Git-Tag: 2.38.0~234^2~1
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=98abe0efe45031abf9fe941adeaa5c96dc6be22d;p=graphviz

fix breakage
---

diff --git a/tclpkg/tcldot/tcldot.c b/tclpkg/tcldot/tcldot.c
index 50c8efc8e..a9173dc75 100644
--- a/tclpkg/tcldot/tcldot.c
+++ b/tclpkg/tcldot/tcldot.c
@@ -206,12 +206,21 @@ int Tcldot_Init(Tcl_Interp * interp)
     /* configure for available plugins */
     gvconfig(gvc, FALSE);
 
-    Tcl_CreateObjCommand(interp, "dotnew", dotnew,
-			 (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
-    Tcl_CreateObjCommand(interp, "dotread", dotread,
-			 (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
-    Tcl_CreateObjCommand(interp, "dotstring", dotstring,
-			 (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#ifndef TCLOBJ
+     Tcl_CreateCommand(interp, "dotnew", dotnew,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateCommand(interp, "dotread", dotread,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateCommand(interp, "dotstring", dotstring,
+                      (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#else                          /* TCLOBJ */
+     Tcl_CreateObjCommand(interp, "dotnew", dotnew,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateObjCommand(interp, "dotread", dotread,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+     Tcl_CreateObjCommand(interp, "dotstring", dotstring,
+                         (ClientData) ictx, (Tcl_CmdDeleteProc *) NULL);
+#endif                         /* TCLOBJ */
 
     return TCL_OK;
 }