Adding tcltk example