$tagfr->new_ttk__label(-text => 'Tag')->g_grid(-column=>0, -row=>0);
my $tagname = $tagfr->new_tk__label(-text => 'Mo')->g_grid(-column=>0, -row=>1);