我看到一些偶爾（五次中的一次），瞬間（5-10秒）「凍結」，當它拖動—可能作爲-startcommand回調的一部分。它從來沒有發生在第一次拖動。 回調很簡單;它只是設置拖動光標到值被拖動的文字： sub DragStart {
my($token) = @_;
my $w = $token->parent;
my $e = $w->XEvent;
my
我發佈了 "How to undersand the POE-Tk use of destroy?"，試圖將我的生產代碼中的錯誤減少到測試用例。但是似乎測試用例的解決方案在整個程序中不起作用。 該程序長度超過800行，所以我很猶豫是否要將其完整發布。我意識到我在這裏提供的代碼片段可能太短而沒有任何用處，但我希望能夠在尋找解決方案的地方或我可以提供哪些附加信息方面獲得指導。 這是我的POE-Tk應用
或多或少地將很多舊的Tk腳本轉換爲Tkx我被卡住了以下函數的端口，它重新定位傳入的窗口作爲屏幕中心的參數。在調用MainLoop之前，我習慣稱之爲Tk，因爲Tk明確地決定了reqwidth和reqheight的值。 sub CenterWindow
{
# Args: (0) window to center
# (1) [optional] desired width