TABLE OF CONTENTS

::pwtk::delayed_eval

SYNOPSIS

proc ::pwtk::delayed_eval {ms args} {

USAGE

   ::pwtk::delayed_eval ms ARG ?ARG? ...

PURPOSE

Evaluate a script after after a time delay of $ms milliseconds. This command is non-blocking and returns immediately, but it arranges for a script to be executed $ms milliseconds later. The script is formed by concatenating the ARG arguments together.

ARGUMENTS

SOURCE

    variable delayed_eval

    set id [incr delayed_eval(counter)]
    set delayed_eval($id,done) 0

    after $ms "$args; set ::pwtk::delayed_eval($id,done) 1"
}