Starting a Value to count.

[spyda]

Hi all again.. Lost all my data, so i have started my TCL's again!

Got a little problem with timers. Try to set a value to count in milliseconds until stop and changed into real time.

But everytime it goes and exec it.. I get a error

Code: Select all

proc status:evnt:connect {filter} {
 if {![info exits $testuptime]} { 
  set testuptime [clock clicks -milliseconds]
  }
 putlog "$test"
}

proc status:evnt:disconnect {filter} {
 global testuptime
 set wtest [expr [expr [clock clicks -milliseconds]-$testuptime]/1000.00]
 putlog "$wtest"
}

Error:

Tcl error [status:evnt:connect]: can't read "testuptime": no such variable

I bet you it is something real simple... But i cant work it out. If there is any other way that is more user friendly or work better i would love to know. Thanx for anyhelp

----------
ThePope

[pollar]

I think you should define testupdate as global variable in status:evnt:connect. Try this:

Code: Select all

proc status:evnt:connect {filter} {
global testuptime
if {![info exits $testuptime]} { 
  set testuptime [clock clicks -milliseconds] 
  } 
putlog "$test" 
} 

proc status:evnt:disconnect {filter} { 
global testuptime 
set wtest [expr [expr [clock clicks -milliseconds]-$testuptime]/1000.00] 
putlog "$wtest"
catch {unset  testuptime}
}