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