tcl/tk to C