[REBOL] Editor
From: hijim:pronet at: 14-Jul-2002 17:38
Thanks to Gabriele and Romano, I've been able to get the buttons to work without losing
focus on the text area, to get the slider tied into the page-up and page-down keys, and
to keep the number of lines in the file automatically and correctly listed. Those were
my last problems. I didn't think I'd get them all resolved. (I'm sure there's room for
improvement in the slide function, but it's much better than it was.)
I've posted the updated editor at: http://www.clatfelter.net/a-a-wysiwyg.r
That's just a temporary name. It prints on the printer exactly what's on the screen (70
characters), so I called it wysiwyg -- about as wysiwyg as a text file can get.
The key routine that does all of this is:
my-area: area para [ ]
500x490 my-file white white font-name font-fixed wrap
feel [
engage: func [f a e] [
ctx-text/edit/engage f a e
if e/key = 'page-down [slide]
if e/key = 'page-up [slide]
my-area/dirty?: false
get-lines
]
]
Thanks for all the help. Now I can move on to other programs and stop obsessing on this
one.
Jim