如何在程序运行时显示列表框或文本

Question

这是我的编码。我面临一个问题，即它仍在运行时没有显示“.display_message”。仅在 proc torun {} 完成其任务后我才收到消息。顺便说一句，2000年后实际上是我的程序在运行。这是一个很长的代码，我觉得它不适用，所以我删除了它以简化它。请在这方面指导我。谢谢。

proc torun {} {
    set total [.display_pc2 size]
    .display_message insert end "test" 


    for {set x 0} {$x < $total} {incr x} {
        set machine [.display_pc2 get $x]
            .display_message insert end "Copy to $machine now. Please wait..."
            .display_message see end
            after 2000
            .display_message insert end "Copy to $machine done"
            .display_message see end
            after 2000
    }
}

Answer 1

您应该完全改变编写此代码的方式并使用空闲回调。

这个想法是，您创建一个要执行的“任务”列表（可能是目标计算机的列表），将其保存在某处，然后一次处理一项，使用空闲回调重新安排执行。

草图如下：

proc show_transfer_start {target} {
  .display_progress add ... $target
}

proc show_transfer_result {res} {
  .display_progress add ... $res
}

proc schedule_transfer {target rest} {
  after idle [after 0 [list do_step $target $rest]]
}

proc do_step {target rest} {
  set res [copy --to $target]
  show_transfer_result $res
  if {[llength $rest] > 0} {
    set next [lindex $rest 0]
    show_transfer_start $next
    schedule_tranfer $next [lrange $rest 1 end]
  }
}

set targets [list box1 box2 box3]
set first [lindex $targets 0]
show_transfer_start $first
schedule_transfer $first [lrange $targets 1 end]

Answer 2

我从来没有做过 tk （如果你正在做的是 gui），但当使用 puts 强制显示消息时，也许你需要一些与 flush 等效的东西。

因为我无法猜测 .display_message 过程中做了什么。

编辑：

刚刚有了一个想法：您可以使用after命令来伪造多线程您的应用程序。

after 0 [list .display_message insert end "立即复制到 $machine。请稍候..."; .display_message see end]

它将作为事件处理程序独立于当前进程运行。也许这可以解决您的冲水问题。 （需要 eventloop 或 update 命令）