class Tk::Tile::TProgress