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

[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/] ctl "Easy VID" [run-script %/c/rebol/_view/public/] ctl "VID Notes" [run-script %/c/rebol/_view/public/] ctl "Easy Draw" [run-script %/c/rebol/_view/public/] 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