Select Code to Download

    my $h = manage_font([ $mw, $font_family, $font_size ]);

    # Create a font 1 point smaller than $font_size
    my $h = manage_font([ $mw, $font_family, $font_size ], "-1");

    manage_font($h, "+7")    # Increase font size by 7 points

use strict;
use warnings;
...

    return $h_font;
}