tcltk: use resource