modif passage tcl 8.4 ( const sur argv )

1 files changed, 11 insertions, 11 deletions

diff --git a/src/ivytcl.c b/src/ivytcl.c
index c0938d9..c3461bd 100755
--- a/src/ivytcl.c
+++ b/src/ivytcl.c
@@ -281,7 +281,7 @@ static int
 IvyInitCmd(ClientData	clientData,
 	   Tcl_Interp	*interp,
 	   int		argc,
-	   char		**argv)
+	   const char	**argv)
 {
   char		*end;
   filter_struct	*app;
@@ -323,7 +323,7 @@ static int
 IvyStartCmd(ClientData	clientData,
 	   Tcl_Interp	*interp,
 	   int		argc,
-	   char		**argv)
+	   const char	**argv)
 {
   if (argc != 2) {
     Tcl_AppendResult(interp, "wrong # of args: \"",
@@ -340,7 +340,7 @@ static int
 IvyBindCmd(ClientData	clientData,
 	   Tcl_Interp	*interp,
 	   int		argc,
-	   char		**argv)
+	   const char	**argv)
 {
   filter_struct	*filter;
   Tcl_HashEntry	*entry;
@@ -373,7 +373,7 @@ static int
 IvyUnbindCmd(ClientData	clientData,
 	     Tcl_Interp	*interp,
 	     int	argc,
-	     char	**argv)
+	     const char	**argv)
 {
   unsigned long	filter_id;
   char		*end;
@@ -413,7 +413,7 @@ static int
 IvySendCmd(ClientData	clientData,
 	   Tcl_Interp	*interp,
 	   int		argc,
-	   char		**argv)
+	   const char	**argv)
 {
   if (argc != 2) {
     Tcl_AppendResult(interp, "wrong # of args: \"",
@@ -430,7 +430,7 @@ static int
 IvyApplicationListCmd(ClientData	clientData,
 		      Tcl_Interp	*interp,
 		      int		argc,
-		      char		**argv)
+		      const char	**argv)
 {
   Tcl_HashEntry	 *entry;
   Tcl_HashSearch search;
@@ -455,7 +455,7 @@ static int
 IvyApplicationHostCmd(ClientData	clientData,
 		      Tcl_Interp	*interp,
 		      int		argc,
-		      char		**argv)
+		      const char	**argv)
 {
   Tcl_HashEntry	 *entry;
 
@@ -482,7 +482,7 @@ static int
 IvyApplicationMsgsCmd(ClientData	clientData,
 		      Tcl_Interp	*interp,
 		      int		argc,
-		      char		**argv)
+		      const char	**argv)
 {
   Tcl_HashEntry	*entry;
   char		**msgs, **scan;
@@ -512,7 +512,7 @@ static int
 IvySendDirectCmd(ClientData	clientData,
 		 Tcl_Interp	*interp,
 		 int		argc,
-		 char		**argv)
+		 const char	**argv)
 {
   Tcl_HashEntry	*entry;
   unsigned long	id;
@@ -538,7 +538,7 @@ IvySendDirectCmd(ClientData	clientData,
     return TCL_ERROR;
   }
 
-  IvySendDirectMsg((IvyClientPtr) Tcl_GetHashValue(entry), id, argv[3]);
+  IvySendDirectMsg((IvyClientPtr) Tcl_GetHashValue(entry), id, (char*)argv[3]);
   
   return TCL_OK;
 }
@@ -547,7 +547,7 @@ static int
 IvyBindDirectCmd(ClientData	clientData,
 		 Tcl_Interp	*interp,
 		 int		argc,
-		 char		**argv)
+		 const char	**argv)
 {
   static filter_struct	*filter = NULL;