Code: Select all
incr current_index -1
Code: Select all
[expr $current_index - 1]
Code: Select all
$lines($current_index - 1)
that won't workarcane wrote:Code: Select all
$lines($current_index - 1)
Code: Select all
set status [lindex $lines [expr [lsearch $lines "*Main name*"] - 1]]