package Tk::Menu;
use Tk::Menu;
my $orig_menu_post;
BEGIN {
    $orig_menu_post = \&Tk::Menu::post;
}
if ($Tk::VERSION < 805) {
    *post = sub {
	my($self, $x, $y) = @_;
	if ($y + $self->reqheight > $self->screenheight) {
	    my $pointery = $self->pointery;
	    $y = $pointery - 10 - $self->reqheight;
	    if ($y < 0) {
		$y = 0;
	    }
	}
	$orig_menu_post->($self, $x, $y);
    };
}