my $draw = shift;
my $gc = shift;
my $text = shift;
my $x = shift;
my $y = shift;
my $w = shift;
my $h = shift;