[REBOL] Re: Extending button images.
From: arolls:bigpond:au at: 13-Jun-2001 5:28
Referring back to Carl's original email...
You mean the effect [extend] looks like
the window should be resizeable?
No. That just means the images stretch to
the size of the button you've specified.
For resizeable layouts, you must first
specify that the main face be resizeable
view/options layout [button] [resize]
Then catch the 'resize event with your
custom event handler. Then you can do
whatever kind of resizing you want.
Quoting Larry Palmiter's modification
to Sterling's script (of 8 May 2001):
main-lay: layout [
b1: button red "Quit" [quit]
view/new/options main-lay [resize]
main-lay/feel: make main-lay/feel [
detect: func [face event] [
switch event/type [
b1/color: random 255.255.255
b1/offset: main-lay/size - (b1/size)