411 REFERENCE · Wikibooks
Rebol Programming/editor
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
EDITOR file /app app-word
DESCRIPTION:
(undocumented)
EDITOR is a function value.
ARGUMENTS
file -- (Type: any)
REFINEMENTS
/app
app-word -- (Type: any)
SOURCE CODE
editor: func [file /app app-word /local tmp][
either link? [
if block? ctx-edit [
ctx-edit: context either all [
value? 'fileset-files?
tmp: fileset-files? 'desktop
find tmp %desktop/edit.r
tmp: load/header link-root/desktop/edit.r
] [next tmp] [ctx-edit]
]
either app [ctx-edit/view-file/app file app-word] [ctx-edit/view-file file]
] [
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
]
]
]