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

[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