Added the tcl functionality to object_in_fluid.tcl script.