[REBOL] Re: Resizing of button's length
From: dhsunanda:gm:ail at: 29-Aug-2010 18:18
Anton is having problems posting to this mailing list (it can be
temperamental).
Here is what he tried to post:
Here's how to do some basic resizing in VID.
origin: 20x20 ; Top/left/right/bottom border space at window edges.
space: 8x8 ; Space between faces in the layout.
window: layout [
origin (origin)
space (space)
button1: button "hello"
btn1: btn "there"
]
resize: func [][
btn1/size/x: window/size/x - btn1/offset/x - origin/x
btn1/offset/y: window/size/y - origin/y - btn1/size/y
button1/size: window/size - button1/offset - origin - (space +
btn1/size * 0x1)
]
window/feel: make window/feel [detect: func [face event][if event/type 'resize [resize]
event]]
view/new/options center-face window 'resize
do-events
Regards,
Anton.