[vtkusers] Tcl wrapping in vtk4.0 impossible?

[George Kamucha]

Hi all,
I have checked the archives and written to the users who have had this same problem before, but unfortunately,
they are still  very much in the dark. My problem just started when I decided to update  my vtk from 3.2 to 4.0
(official release) and wao!  So much have changed!  For once,  turning VTK_WRAP_TCL  on is just not working
( Linux Redhat 6.2, Tcl/Tk 8.4.1) and I am getting following the error:

/home/kamucha/vtk40/Common/vtkTclUtil.cxx: In function `void vtkTclGetObjectFromPointer(struct Tcl_Interp *, void *, int (*)(void *, struct
Tcl_Interp *, int, char **))':
/home/kamucha/vtk40/Common/vtkTclUtil.cxx:290: passing `int (*)(void *, Tcl_Interp *, int, char **)' as argument 3 of
`Tcl_CreateCommand(Tcl_Interp *, const char *, int (*)(void *, Tcl_Interp *, int, const char **), void *, void (*)(void *))'
/home/kamucha/vtk40/Common/vtkTclUtil.cxx: In function `int vtkTclNewInstanceCommand(void *, struct Tcl_Interp *, int, char **)':
/home/kamucha/vtk40/Common/vtkTclUtil.cxx:544: passing `int (*)(void *, Tcl_Interp *, int, char **)' as argument 3 of
`Tcl_CreateCommand(Tcl_Interp *, const char *, int (*)(void *, Tcl_Interp *, int, const char **), void *, void (*)(void *))'
/home/kamucha/vtk40/Common/vtkTclUtil.cxx: In function `void vtkTclCreateNew(struct Tcl_Interp *, const char *, void * (*)(), int (*)(void *,
struct Tcl_Interp *, int, char **))':
/home/kamucha/vtk40/Common/vtkTclUtil.cxx:576: passing `int (*)(void *, Tcl_Interp *, int, char **)' as argument 3 of
`Tcl_CreateCommand(Tcl_Interp *, const char *, int (*)(void *, Tcl_Interp *, int, const char **), void *, void (*)(void *))'
make[3]: *** [vtkTclUtil.o] Error 1
make[2]: *** [default_target] Error 2
make[1]: *** [default_target_Common] Error 2
make: *** [default_target] Error 2

Please assist.
Regards
George