[REBOL] Re: Object question

From: anton::wilddsl::net::au at: 21-Sep-2007 1:30

Hi Kai,

This kind of sounds like what you're talking about:

data: reduce [
	"Golfer" false
	"Donor" true
	"Client" false
	"Retired" false
]

set-checkgroup: func [checkgroup data /local val][
	foreach [label check] checkgroup/pane [
		set reduce [in label 'text in check 'data] data
		show check
		data: skip data 2
	]
	show checkgroup
]

window: layout [
	across
	left-panel: panel [
		across
		style label label 150
		label check return
		label check return
		label check return
		label check return
	]
	right-panel: panel 150x150 [
		across
		style label label 150
		label check return
		label check return
	]

	button "set" [set-checkgroup left-panel data]
]

view window

Regards,

Anton.

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