xpad clone in tk/tcl