[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

1 · 2 · 3 · 4 · 5 · 6 · [7] · 8 · See whole thread