[REBOL] Re: window resize and window scroll

From: sterling:rebol at: 7-May-2001 16:24

A quick resize example...

REBOL []

main-lay: layout [
	b1: button "Quit" [quit]
]

view/new/options main-lay [resize]

main-lay/feel: make main-lay/feel [
	detect: func [face event] [
		switch event/type [
			resize [
				b1/color: random 255.255.255
				b1/offset: main-lay/size - (b1/size / 2)
				show b1
			]
		]
		event
	]
]

wait none

Sterling

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