Tcl Source Code: Artifact [ed7e9c23e8]

Artifact ed7e9c23e8b158323ddb80dda19c413ef501fbea:

Attachment "pitsana.tk" to ticket [1943546fff] added by kaitzschu 2008-04-16 08:09:28.

set t [text .t -height 10 -width 50 -wrap word]
# if widget is drawn error doesn't occur, so draw it not

.t insert end {Muutamiasanojaainayhteen kirjotettunajottasaadaanmelkoisen pitkiäsanojajoitasitten}
# less than that is not enough

set i 1.0
set xi $i

while {[$t index "$i lineend"] ne [$t index "$xi display lineend"]} {
 puts [$t get "$i + 1 display lines display linestart" "$i + 1 display lines display lineend"]
 set i [$t index "$i + 1 display lines"]
}