Perl tk 主窗口错误

Question

我有一个 Perl Tk 应用程序。

如果我移动主窗口，使其不位于屏幕的最上方，那么下次执行以下代码时，脚本将失败：

$canvas_fimage_real=$canvas_fimage->Subwidget('canvas');
$canvas_fimage_real=$canvas_fimage unless $canvas_fimage_real;
my $canvas_id=$canvas_fimage_real->id;

my $canvas_fimage_photo=$main_window::main_window->Photo(-format=>'Window', -data=>oct $canvas_id );

并且失败并显示以下错误消息：

X Error of failed request:  BadMatch (invalid parameter attributes)
  Major opcode of failed request:  73 (X_GetImage)
  Serial number of failed request:  2796
  Current serial number in output stream:  2796

脚本崩溃于照片命令。
我该如何解决这个问题？

Answer 1

这是一个完全在屏幕上的窗口吗？快照功能仅适用于屏幕上可见的内容（低级 X11 条件；不可协商）。因此，您应该提交错误报告，因为快照代码不应该要求它无法获得的东西。

当然，如果窗口完全显示在屏幕上并且您仍然收到该错误消息，那么这是一个严重的问题。在这种情况下也请提交错误报告！