Ошибка главного окна 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 низкого уровня; не подлежит обсуждению). Таким образом, вы должны подать отчет об ошибке, так как код снимка не должен запрашивать вещи, которые он не может получить.

Конечно, если окно полностью на экране, и вы все равно получаете это сообщение об ошибке, это серьезная проблема. Подайте отчет об ошибке в этом случае!