1 2
$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);
1 2 3 4
my $tagname = $tagfr->new_tkk__label(-text => 'Mo')->g_grid(-column=>0, -row=>1); (my $tagname = $tagfr->new_tkk__label(-text => 'Mo'))->g_grid(-column=>0, -row=>1); my $tagname = $tagfr->new_tkk__label(-text => 'Mo'); $tagname->g_grid(-column=>0, -row=>1);
Quoteinvalid command name "tkk::entry" at ...