Searched refs:lastLine (Results 1 - 1 of 1) sorted by relevance

/ast/src/lib/libtk/library/demos/
H A Dwidget84 set lastLine ""
86 set lastLine [.t index {@%x,%y linestart}]
87 .t tag add hot "$lastLine +1 chars" "$lastLine lineend -1 chars"
98 if {[string compare $newLine $lastLine] != 0} {
100 set lastLine $newLine
105 .t tag add hot "$lastLine +1 chars" "$lastLine lineend -1 chars"

Completed in 33 milliseconds