Perl Tk用overrideredirect(1)时Canvas鼠标Enter事件触发偏移求助

我之前在Gnome环境下用Perl Tk开发时也碰到过一模一样的问题！当你调用overrideredirect(1)去掉窗口装饰后，Gnome的窗口管理器实际上还是会给窗口预留一块隐形的标题栏区域，导致你的Canvas交互区域被向下偏移了，这就是为什么鼠标要移动30像素左右才能触发事件的原因。

解决办法 #

核心思路是强制窗口的几何尺寸，让窗口管理器放弃预留的隐形区域，同时确保Canvas完全覆盖整个窗口。这里有个经过验证的修改方案：

#!/usr/bin/env perl
use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new();
$mw->overrideredirect(1);
# 强制设置窗口大小与Canvas预期尺寸一致，并立即让窗口管理器生效
$mw->geometry("410x100");
$mw->update();

# 给Canvas显式指定高度，确保完全填充窗口
my $canvas = $mw->Canvas( -bg => 'white', -width => 410, -height => 100 )->pack(-fill => 'both', -expand => 1);
my $rect_filled = $canvas->createRectangle( 0, 0, 360, 100, -outline => '#C0C0C0', -fill => '#FFEC73', );

$canvas->bind( $rect_filled, '<Enter>' => sub{
    $canvas->itemconfigure( $rect_filled, -outline => '#E0E0E0', -fill => '#0000ff', );
});
$canvas->bind( $rect_filled, '<Leave>' => sub{
    $canvas->itemconfigure( $rect_filled, -outline => '#C0C0C0', -fill => '#FFEC73', );
});

$mw->MainLoop();

关键修改点说明 #

1. $mw->geometry("410x100")：强制窗口的宽高和你需要的Canvas尺寸完全匹配，避免窗口管理器自动添加额外的空间。
2. $mw->update()：让窗口管理器立即应用几何设置，而不是等待主循环刷新，这一步能有效消除隐形标题栏的影响。
3. 给Canvas添加-height参数：显式指定Canvas高度，确保它从窗口的(0,0)位置开始完全填充整个窗口区域。

这样修改后，鼠标移到窗口左上角(0,0)位置时，就能立刻触发事件了，在Debian 8+Gnome 3.14的环境下亲测有效。

内容的提问来源于stack exchange，提问作者raiserle