my $t = $frame->Scrolled("TextHighlight" ... syntax => ( $args->{ -syntax } || 'Perl' )