From 12751e3fc02e45da1198b82dadf83fe861ebfd1e Mon Sep 17 00:00:00 2001
From: drouin
Date: Wed, 1 Sep 2004 15:54:51 +0000
Subject: replaced the gtk mainloop with a glib one. added -Wall compile
 directive . fixed some warnings

---
 src/ivytcl.c | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'src/ivytcl.c')

diff --git a/src/ivytcl.c b/src/ivytcl.c
index c59937f..74ed129 100755
--- a/src/ivytcl.c
+++ b/src/ivytcl.c
@@ -108,7 +108,6 @@ Channel IvyTclChannelSetUp(HANDLE fd, void *data,
 				ChannelHandleRead handle_read
 				)						
 {
-	char channelName[16 + TCL_INTEGER_SPACE];
 	Channel channel;
 
 	channel = (Channel)ckalloc( sizeof (struct _channel) );
@@ -331,7 +330,6 @@ IvyInitCmd(ClientData	clientData,
 	   int		argc,
 	   const char	**argv)
 {
-  char		*end;
   filter_struct	*app;
   filter_struct	*die;
      
@@ -621,16 +619,16 @@ int
 Tclivy_Init(Tcl_Interp *interp)
 {
 
-  Tcl_CreateCommand(interp, "Ivy::init", IvyInitCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::start", IvyStartCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::bind", IvyBindCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::unbind", IvyUnbindCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::send", IvySendCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::senddirect", IvySendDirectCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::binddirect", IvyBindDirectCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::applist", IvyApplicationListCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::apphost", IvyApplicationHostCmd, NULL, NULL);
-  Tcl_CreateCommand(interp, "Ivy::appmsgs", IvyApplicationMsgsCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::init", (Tcl_CmdProc*)IvyInitCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::start", (Tcl_CmdProc*)IvyStartCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::bind", (Tcl_CmdProc*)IvyBindCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::unbind", (Tcl_CmdProc*)IvyUnbindCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::send", (Tcl_CmdProc*)IvySendCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::senddirect", (Tcl_CmdProc*)IvySendDirectCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::binddirect", (Tcl_CmdProc*)IvyBindDirectCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::applist", (Tcl_CmdProc*)IvyApplicationListCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::apphost", (Tcl_CmdProc*)IvyApplicationHostCmd, NULL, NULL);
+  Tcl_CreateCommand(interp, "Ivy::appmsgs", (Tcl_CmdProc*)IvyApplicationMsgsCmd, NULL, NULL);
 #ifndef TCL_CHANNEL_INTEGRATION
 	Tcl_DoWhenIdle(IvyIdleProc,0);
 #endif
-- 
cgit v1.1