Hi Steven,
I think you can't alter the TABS value because it's not stored in the layout
object, unlike SIZE. It's just used for the placement of faces when the layout
is first created. (That's off the top of my head, so it's just possible I'm
wrong about this.)
The position of each face is stored in the OFFSET pair of each face, so that's
what you'd have to change to move the buttons.
Anyway, this got me thinking, and I came up with a function for re-sizing a
layout. It needs work though, as more complex styles (such as TEXT-LIST) would
need to be gone deeper into to re-size all of the faces within them. However,
I think you'd have to do the same with your approach too, so it's just a
general problem with some styles.
So, for what it's worth, here's the function I came up with. (Sorry it's not
commented. Do ask if there's anything you don't understand.) ...
REBOL [ ]
scale-lo: func [
lo [object!]
scale [number!]
][
foreach pane lo/pane [
if none? pane/user-data [
pane/user-data: reduce [
'size pane/size
'offset pane/offset
'font make pane/font []
]
]
pane/size: pane/user-data/size * scale
pane/offset: pane/user-data/offset * scale
pane/font: make pane/user-data/font [
size: to-integer pane/user-data/font/size * scale
]
]
if none? lo/user-data [
lo/user-data: reduce [
'size lo/size
]
]
lo/size: lo/user-data/size * scale
show lo
]
test-lo: layout [
across
button "Button 1"
button "Button 2"
return
button "Wide Button" 210
return
area wrap 100x100 "The rain in Spain falls mainly on the plain."
text-list 100x100 "A" "B" "C" "D" "E" "F"
return
button "Normal" [scale-lo test-lo 1]
button "Times 1.5" [scale-lo test-lo 1.5]
button "Times 2" [scale-lo test-lo 2]
button "Times 3" [scale-lo test-lo 3]
]
view test-lo
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
