#
# this command pauses an smm script for some number of milliseconds
# it's based on the sleep script posted at http://mini.net/tcl/933.html
#

::proc sleep ms {
    ::set uniq "::ses::__sleep__tmp__[::clock seconds][::clock clicks]"
    ::set $uniq 0
    ::after $ms ::set $uniq 1
    ::vwait $uniq
    ::unset $uniq
}