Tk Source Code: Artifact [11fa0be3]

Artifact 11fa0be30dcdfc601bf2ce0a41fad0f0fa9dd778:

Attachment "menuhack.pl" to ticket [1596662f] added by eserte 2006-11-15 05:59:29.

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);
    };
}