Select Code to Download

    print "  ref Font: " . ref($font) . "\n";

sub OnTest {
    my($self, $event) = @_;
...
        print "No choice.\n";
    }
}