Select Code to Download

my $newfont = ...;

...
my $rw = ...;  # tk object must exist before string is eval-ed

eval $eval_string;