my ($draw, $gc, $text, $x, $y, $w, $h) = @_;