Posted to tcl by steveb at Tue Sep 25 16:50:42 GMT 2018view pretty
catch { catch {set data2 [split [dstring [mk::get $cursor2 results]]\ ","]} if {[string equal $data2 ""]} {set data2 $blankdata2} set percent3 "<font color=\"blue\"><b>[lindex $data2\ 1]</b></font>" set data2 [lreplace $data2 1 1 $percent3] } puts stderr "D data2 $data2"