my $f =  $LB->tagCget("A$this", -font);
    printf "Mark: %d,%s\n",$this, $f;
    if (${$f} =~ /normal/i) {