[REBOL] Re: Community (was IOS).
From: greggirwin:mindspring at: 21-Mar-2002 10:52
Hi Joanna,
<< One more thing on View. How easy it's reconfigure View so that it can be
only used to start these premade scripts we provide... I'm looking for easy
launchpad for end-users. They have no interest on programming and too many
options can be confusing and get into way. >>
It's easy enough to write a script to do that. Configuring the View desktop
could be done by modifying index.r, bookmarks.r, and services.r.
Here's a little launcher script, which requires View/Pro in order to use
CALL. Watch for word wrap.
REBOL []
rebol-exe: to-string to-local-file system/options/boot
to-call-str: func [f [file!]] [to-string to-local-file f]
run-script: func [s] [call rejoin [rebol-exe " " s]]
run: func [cmd /in dir] [
if in [change-dir dir]
call cmd
]
view lay: layout [
origin 0x0
backdrop sky effect [gradcol 0x1 80.80.80 32.32.32]
space 6x0
style ctl vtext
ctl "View Ref" [run-script
%/c/rebol/_view/public/www.rebol.com/view/docs/view-ref.r]
ctl "Easy VID" [run-script
%/c/rebol/_view/public/www.rebol.com/view/demos/easy-vid.r]
ctl "VID Notes" [run-script
%/c/rebol/_view/public/www.codeconscious.com/rebsite/vid-notes.r]
ctl "Easy Draw" [run-script
%/c/rebol/_view/public/www.nwlink.com/~ecotope1/reb/easy-draw.r]
ctl "Core" [run/in to-call-str %/c/rebol/_core/rebol %/c/rebol/_core/]
ctl "View" [call to-call-str %/c/rebol/_view/rebol]
ctl "Shell" [call "cmd.exe"]
ctl "Quit" [quit]
]
--Gregg
