[REBOL] Re: cursor line
From: arolls:bigpond:au at: 17-Aug-2001 17:19
Well, here's possibly a better way: line-number: func [/local s c][ if s: system/view/caret [ c: 0 repeat i (index? s) - 1 [ if (pick head s i) = newline [c: c + 1] ] return c ] ] view layout [ a: area {a long string^/with^/many^/lines in it.} button "line number" [print line-number] ]