[REBOL] Ally list having problems ??? Re:
From: allen:rebolforces at: 17-Oct-2000 10:27
Hi Mike,
It is a little confusing. But the style refinement in this case refers to
the button (or other style) to inherit the style from. This "button" has to
exist as a face object in the layout for it to work., 'choose also uses this
style to set the offset.
I couldn't figure out how to set a style in the way you were trying, even by
using 'get-style and 'make-face it didn't seem possible.
Anyway here is an example that provides the wider button style, which you
were after
;Example 1
l1: layout [
style long-btn button 200x20
size 300x200
at 20x80 mnu: long-btn "Long Button Text" [
choose/style [
"Long Choice Text1"
"Long Choice Text2"
"Long Choice Text3"
]
func [f a][print f/text]
mnu
]
]
view l1
Cheers,
Allen K
;Example 2, sets offset and parent-window
l1: layout [
style long-btn button 200x20
size 300x200
at 20x80 mnu: long-btn "Long Button Text" [
choose/style/window/offset [
"Long Choice Text1"
"Long Choice Text2"
"Long Choice Text3"
"Long Choice Text3"]
func [f a][print f/text] mnu l1 mnu/offset
]
]
view l1