multiple use off variables

[BiggerT]

Hello I'm trying to use a variable , wich I've declared in "script a", in a procedure wich I'm sourcincing with the source command.

set uniek [clock seconds]

source "H:\\usr\\local\\Text invulvak klantnaam.tcl"
klantnaam
}

The problem is that I won't get the uniek variable to work in the klantnaam procedure!

Can somebody help me with this?

 

[Bong]

You need to declare the variable as "global", in both scripts, in all procs where it is used or declared or set.

Bob Rashkin
rrashkin@csc.com

 

[marsd]

Either that or use upvar.

proc klantnaam {varname {lvl "#0"}} {
upvar $lvl $varname local
#do something with $local
}

You can also check out the wiki, there are a few
articles on upvar and uplevel.

http://mini.net/tcl