From a138b1187d28e61d1decd36142ce6eda505d583a Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Thu, 1 Jan 2004 23:58:39 +0000
Subject: [PATCH] need cast for crappy tcl no const correct

---
 base/hook.c   | 2 +-
 hbytes/hook.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/base/hook.c b/base/hook.c
index 13f4d02..32c604f 100644
--- a/base/hook.c
+++ b/base/hook.c
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }
diff --git a/hbytes/hook.c b/hbytes/hook.c
index 13f4d02..32c604f 100644
--- a/hbytes/hook.c
+++ b/hbytes/hook.c
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }
-- 
2.30.2