Rebol Programming/ctx-edit
CTX-EDIT is an object of value:
prefs file! %/c/documents%20and%20settings/max/dati%20applicazioni/rebol/edit-prefs.r dirty-edit logic! false this-file none! none this-app none! none t1 object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc] s1 object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc step ratio page axis clip dragger redrag speed resize] h1 pair! 338x0 f1 object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc] edit-prefs object! [offset size wrap] ed-lo object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc parent] save-lo object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc parent] ff object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc] fb object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc effects depth] fc object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc effects depth] fp none! none find-lo object! [self type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc parent] resize function! [size] refresh function! [] save-prefs function! [/local str] open-as function! [/local file] new-file function! [] save-as function! [/local file] save-file function! [/local file] up-file function! [] open-file function! [file /local txt] result none! none ask-save function! [] save-edit function! [] do-file function! [] quit-edit function! [] quit-now function! [] caret none! none start none! none last-str none! none last-case none! none last-pat none! none find-text function! [] search function! [str case pat] find-str function! [str case pat] find-again function! [] find-next function! [str case pat /local txt] find' function! [txt str case pat tal /local code p] scroll-to function! [txt /local xy] show-help function! [] help-text string! {Ctrl-A - select all text Ctrl-C - copy text Ctrl-X - cut text / cut all Ctrl-V - paste text Ctrl-Q - to quit Ctrl-S - to save changes Ctrl-O - to open a file Ctrl-N - to create a new file Ctrl-T - Trim line to end Ctrl-E (F5) - to execute (do) Ctrl-F (F3) - to find text Ctrl-G - to find next text} keymap block! length: 24 scroll-edit function! [page n] init function! [] form-title function! [val] view-file function! [file /app app-word]