PATCH: Avoid compiler warning in src/tclhelp.c

[Mo DeJong <mdejong@cygnus.com>]

Here is a patch to avoid a compiler warning in src/tclhelp.c:

The compiler warning:
...
 ../../../devo/libgui/src/tclhelp.c
../../../devo/libgui/src/tclhelp.c: In function `help_display_file_command':
../../../devo/libgui/src/tclhelp.c:327: warning: passing arg 3 of 
`Tcl_GetInt'
from incompatible pointer type


2001-08-03  Mo DeJong  <mdejong@redhat.com>

	* src/tclhelp.c (help_display_file_command): Pass int
	address to Tcl_GetInt instead of an unsigned long to
	avoid compiler warning.

Index: src/tclhelp.c
===================================================================
RCS file: /cvs/cvsfiles/devo/libgui/src/tclhelp.c,v
retrieving revision 1.6.212.3
diff -u -r1.6.212.3 tclhelp.c
--- tclhelp.c	2001/08/03 23:06:13	1.6.212.3
+++ tclhelp.c	2001/08/03 23:19:24
@@ -303,7 +303,8 @@
 {
   struct help_command_data *hdata = (struct help_command_data *) cd;
   FILE *e;
-  DWORD   topic_id = 0; /* default topic id is 0 which brings up the find dialog */
+  int id = 0;
+  DWORD   topic_id; /* default topic id is 0 which brings up the find dialog */
 
   /* We call Help initialize just to make sure the window handle is 
setup */
   /* We don't care about the finding the main help file and checking the */
@@ -324,10 +325,11 @@
   fclose (e);
   if (argc > 3)
   {
-      if ( Tcl_GetInt (interp, argv[3], &topic_id) != TCL_OK )
+      if ( Tcl_GetInt (interp, argv[3], &id) != TCL_OK )
         return TCL_ERROR;
   }
 
+  topic_id = (DWORD) id;
   if (! WinHelp (hdata->window, argv[2], HELP_CONTEXT, topic_id))
   {
       char buf[200];


cheers
Mo