you'll want to use :
$i->configure(-state=>substr($regex,0,2) eq 'tr' ? 'disabled' : 'active');
See the Tk::options page for details.
perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'
In reply to Re: Question regarding focus and Tk
by Chmrr
in thread Question regarding focus and Tk
by Popcorn Dave
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |