Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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] ]