after command

[691220]

I am trying to execute a command after a specific time period using the "after" command.
I say : after $delay [list command].

I give this inside a tcl procedure. When I call the procedure the line that has the after command is not executed. However if I just give:
after $delay
the delay is incorporated.

Please let me know the reason for this or if there is any other alternative for this.

Thanks,
Harish.

 

[Bong]

I noticed this behavior, too. I don't think it hurts anything, though. Just put the command you want to execute after the delay after the "after" line.

_________________
Bob Rashkin
rrashkin@csc.com

 

[marsd]

Big difference in using after from within the event loop and outside of it, blocking and non-blocking to start. At least I'm inferring that this is the problem.
Try the difference between the following two snippets:

proc fooret {val} {
                  if {$val < 12} {puts "Value = $val -- Waiting  2 sec and then incrementing $val"; after 2000 [list eval fooret [expr $val + 1]]}
		  if {$val == 12} {puts "Ending proggie after 2 seconds"; after 2000 [list uplevel #0 "set forever 1"]}
		  puts "At end of execution..waiting for return"
}
fooret 1
vwait forever

2.

proc fooret {val} {
                  if {$val < 12} {puts "Value = $val -- Waiting  2 sec and then incrementing $val"; after 2000 [list eval fooret [expr $val + 1]]}
		  if {$val == 12} {puts "Ending proggie after 2 seconds"; after 2000 [list uplevel #0 "set forever 1"]}
		  puts "At end of execution..waiting for return"
}
fooret 1