Perl tk主窗口错误
|
我有一个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
没有找到相关结果
已邀请:
1 个回复
拟蓬