TABLE OF CONTENTS

::pwtk::delayed_eval_finish

SYNOPSIS

proc ::pwtk::delayed_eval_finish {} {

PURPOSE

Wait for all delayed evaluations spawned by ::pwtk::delayed_eval to finish. This command is blocking.

SOURCE

    variable delayed_eval

    if { ! [info exists delayed_eval(counter)] } {
        return
    }

    for {set i 1} {$i <= $delayed_eval(counter)} {incr i} {
        if { ! $delayed_eval($i,done) } { 
            print "Waiting for delayed process #.$i to finish ...\n"
            vwait ::pwtk::delayed_eval($i,done)
        }
    }
}