[REBOL] Re: Please urgently need help rebol/view simple gui

From: antonr::lexicon::net at: 22-Dec-2005 4:00

Hi Akram, try this:

	pan-offset: 0.0
	tilt-offset: 0.0

	refresh: does [
		print ["pan:" pan-offset "tilt:" tilt-offset]
	]

	control-window: center-face layout [
		style hscroller scroller 200x20
		across
		label "pan" hscroller [pan-offset: face/data refresh] with [data:
pan-offset]
		return
		label "tilt" hscroller [tilt-offset: face/data refresh] with [data:
tilt-offset]
	]

	view/new control-window

	do-events

The scroller/data is from 0.0 to 1.0 only, so if your pan and tilt values
range
outside these bounds, you will need to do map those values, eg:

	pan-offset: face/data * 2

etc.

Anton.

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