You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

21 lines
412 B

set msg "-[file tail [info script]] done-"
if {$::argc >= 1} {
set howlong [lindex $::argv 0]
if {$::argc >=2} {
set msg [lindex $::argv 1]
}
} else {
set howlong 1000
}
puts stdout "wait: $howlong"
set ::script_wait_var 0
if {[string is integer -strict $howlong]} {
after $howlong {set ::script_wait_var 1}
}
vwait ::script_wait_var
puts -nonewline stderr $msg\n