[REBOL] Re: Menu Bars and Tool Bars
From: nitsch-lists:netcologne at: 12-Jan-2004 11:11
Hi Behrang,
Am Sonntag 11 Januar 2004 12:20 schrieb Behrang Saeedzadeh:
> Hi
>
> I'm a Java developer and a REBOL beginner. I just
> wanted to know how can I add menu bars and tool bars
> to a REBOL view.
>
> Thanks.
>
This looks ugly, but quick to code and works like menues and toolbars.
(if you want submenues, your script is to long ;)
[REBOL [
Title: "toolbarmenu"
]
view layout[
across
;menues
choice "*files*" "open" "close" "magic" "quit"[
do pick[
[alert "open"]
[alert "close"]
[alert "three wishes. only three!"]
[quit]
] -1 + index? find face/data value
]
choice "*find*" "find" "find next"[
do pick [
[alert "find"]
[alert "find next"]
] -1 + index? find face/data value
]
return
;toolbar
btn "pressme"[alert "pressme was pressed"]
btn "press me to"[alert "now all pressed?"]
return
area "here would be some data"
]]
;-volker