Adding menu & tool bars in REBOL view.

[DefiantPc]

Q. How can I add menu bars and tool bars to a REBOL view?

A. VID doesn't have menu or toolbar styles built in, though some people
have developed their own - take a loot at
folder "DocKimbel's" http://rebol.dhs.org/index.r icon site info {Home of
mySQL scheme, Win95 skin, Vector Balls demo, ...}

There are menus implemented in the "Win95 skin" demo.
(It works on Rebol/View 1.2.1 but I saw an error in a quite recent beta)
update :-)
Go to the rebsite called DocKimbel (without the 's)
(http://rebol.softinnov.org/index.r)  

[CarlRead]

You could use CHOICE to give menu-like options.  ie, something like this...

Code:

menu-hit: func [face][
   print [face/text "Selected"]
   face/text: first head face/data
   show face
]

view layout [
   backdrop 80.80.200
   size 300x200
   space -20
   across
   style menu choice 80 blue edge [effect: none size: 0]
   menu "File" "Open" "Save" "Save As" "Quit" [
       menu-hit face
   ]
   menu "Edit" "Cut" "Copy" "Paste" [
       menu-hit face
   ]
]

To extend that so once a menu is open you don't have to click on the others to open them would require altering their FEEL functions and linking them together in some way.  This shouldn't be too difficult - touch wood.  To see CHOICE's default FEEL functions enter...

    layout [ch: choice] probe ch/feel

at the View Console.  There's a good tutorial on FEEL here...
    http://www.rebol.com/how-to/feel.html

Hope that helps.
 

[Amanita]

That was a great example...

                   

Thank you for posting the code !