如何将X窗口嵌入Perl/Tk Notebook组件中？

你遇到的核心问题是X->ReparentWindow调用后，窗口管理器仍在管理目标X应用窗口，导致无法成功嵌入Perl/Tk的Notebook标签页。以下是具体的修复方案：

关键问题分析 #

1. 窗口管理器干预：X11中顶层窗口会被窗口管理器接管，直接重父不会让WM放弃管理，必须显式移除相关属性。
2. 窗口状态未同步：重父后目标窗口的几何属性、映射状态需要与父窗口（Notebook标签页）同步。
3. 窗口匹配精度问题：原代码用模糊匹配窗口类，可能误匹配其他窗口。

修复后的代码 #

#!/usr/bin/env perl
use strict;
use warnings;
use Tk;
use X11::Protocol;
use Tk::NoteBook;

my $X        = X11::Protocol->new();
my $mw       = MainWindow->new(-title => 'Embed Test');
my $topframe = $mw->Frame()->pack(-side => 'top', -fill => 'both', -expand => 1);
my $notebook = $topframe->NoteBook()->pack(-fill => 'both', -expand => 1);
my $tab      = $notebook->add("example", -label => "Example");

my $pid;
unless ($pid = fork) { 
    exec("xterm", "-class", "xterm_embed"); # 指定唯一class便于精准查找
}

if ($pid) { 
    sleep(2); # 缩短等待时间，可根据实际调整
    grab_it("xterm_embed", $tab); 
    MainLoop(); 
}

sub grab_it {
    my ($winname, $tab) = @_;
    my $x_window_id = get_window_by_name($winname);
    exit(1) unless $x_window_id;

    # 确保标签页窗口已完全初始化并绘制
    $tab->update;
    my $parent_win_id = oct($tab->id);

    # 1. 移除窗口管理器核心属性，通知WM放弃管理
    my $wm_state_atom = $X->InternAtom('WM_STATE', 0);
    $X->DeleteProperty($x_window_id, $wm_state_atom);
    
    # 2. 设置override-redirect，彻底阻止WM干预
    $X->ChangeWindowAttributes($x_window_id, 
        -override_redirect => 1
    );

    # 3. 执行重父操作
    $X->ReparentWindow($x_window_id, $parent_win_id, 0, 0);

    # 4. 同步窗口尺寸与标签页匹配
    my ($w, $h) = $tab->geometry =~ /(\d+)x(\d+)/;
    $X->ConfigureWindow($x_window_id, 
        -width => $w, 
        -height => $h
    );

    # 5. 确保窗口处于显示状态
    $X->MapWindow($x_window_id) unless $X->QueryTree($x_window_id)->[3];
}

sub get_window_by_name {
    _get_window_by_name($X->{'root'}, $_[0]);
}

sub _get_window_by_name {
    my ($root, $searchname) = @_;
    my (undef, undef, @new_kids) = $X->QueryTree($root);
    foreach my $k (@new_kids) {
        my ($atomnr) = grep { $X->GetAtomName($_) eq "WM_CLASS" } $X->ListProperties($k);
        next unless defined $atomnr;
        
        my ($class, $name) = split(/\0/, ($X->GetProperty($k, $atomnr, "AnyPropertyType", 0, 256, 0))[0]);
        if ($class eq $searchname) { # 精确匹配避免误判
            return $k;
        }
        
        my $ret = _get_window_by_name($k, $searchname);
        return $ret if defined $ret;
    }
    undef;
}

修复要点说明 #

• 移除WM_STATE属性：删除该属性直接告知窗口管理器，此窗口不再是顶层窗口，无需进行装饰和布局管理。
• 设置override-redirect：阻止窗口管理器对目标窗口的任何后续干预，确保嵌入状态稳定。
• 同步窗口尺寸：让嵌入窗口自动适配Notebook标签页的大小，避免显示异常。
• 精确匹配窗口类：通过指定唯一窗口类+精确匹配，避免误抓其他同名或类名相似的窗口。
• 强制窗口映射：确保重父后的窗口处于显示状态，避免因原窗口状态导致的隐藏问题。

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