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

[REBOL] Re: The perfect addition

From: petr:krenzelok:trz:cz at: 10-Jun-2001 1:28

----- Original Message ----- From: "Paul Tretter" <[ptretter--charter--net]> To: <[rebol-list--rebol--com]> Sent: Saturday, June 09, 2001 7:45 PM Subject: [REBOL] The perfect addition
> Can someone tell me how to modify the /View desktop so that I can add a
DO command to the editor so that I can have the editor open on script and click do and have it run it while the editor is still open. Seems it would be an easy addition. ->> help edit Found these words: ctx-edit (block) editor (function) ->> source editor editor: func [file /local tmp][ either exists? tmp: view-root/desktop/scripts/edit.r [do/args tmp file] [ if block? ctx-edit [ctx-edit: context ctx-edit] ctx-edit/view-file file ] ] So now you know where you can find editor source code :-) Hmm, I just checked - the file is not there :-) Look also at "print mold ctx-edit" ... You can find following code there: keymap: [ #"^S" [save-file] #"^W" [quit-edit] #"^Q" [quit-edit] #"^O" [open-as] #"^N" [new-file] #"^E" [do-file] ^^^^^^ Is that what you wanted? #"^F" [find-text] #"^G" [find-again] F3 [find-text] F5 [do-edit] page-up [scroll-edit true -1] page-down [scroll-edit true 1] ] -pekr-