如何在Perl/Tk中找出拖拽操作暂时冻结的原因？

Question

我看到一些偶然的(五次中有一次)，当它拖动时瞬间(5-10秒)“冻结”-可能是作为-startcommand回调的一部分。它永远不会在第一次拖拽时发生。

回调非常简单；它只是将拖动光标的文本设置为正在拖动的值：

sub DragStart {
  my( $token ) = @_;

  my $w = $token->parent;
  my $e = $w->XEvent;

  my $idx = $w->nearest( $e->y );
  if( defined $idx ) {
    $token->configure( -text -> $w->get( $idx );
    my( $X, $Y ) = ( $e->x, $e->y );
    $token->MoveToplevelWindow( $X, $Y );
    $token->raise;
    $token->deiconify;
    $token->FindSite( $X, $Y, $e );
  }
}

我不禁想知道问题是不是出在我的代码之外，所以我想要做的是找到一种方法来确定冻结发生时当前调用的是哪个子例程。

有这样的工具吗？显示实时调用堆栈的东西可以做到这一点，如果有的话。

Answer 1

您应该通过Perl的调试器之一运行应用程序。

由于您是TK用户，您可以尝试使用Devel::ptkdb，或者直接使用标准的Perl debugger。