Help for this page

Select Code to Download


  1. or download this
    my $f =  $LB->tagCget("A$this", -font);
    printf "Mark: %d,%s\n",$this, $f;
    if (${$f} =~ /normal/i) {
  2. or download this
    #!/usr/bin/perl --
use strict;
...
  ["A1", "1.0", 1.74],
  ["bolded", "1.0", 1.74],
)