Posted to tcl by jeremy_c at Thu Sep 13 23:14:32 GMT 2007view pretty

dbcombo instproc init args {
	upvar #0 $idvariable idvar
	trace add variable idvar write [list [my] showChange]
}