[REBOL] Re: Choice limitations
From: carl:cybercraft at: 24-Oct-2007 7:18
On Tuesday, 23-October-2007 at 22:52:15 Kai Peters wrote,
>Thanks Gregg & Carl ~
>
>drop-down would be nice - doesn't work under OS X (where I'd need it)
> unfortunately :(
>
>In the specific case that caused me to ask, Carl's suggestion might just
> work. Never
>though of the popup text list but that's always a last resort, I guess.
Something like the following works reasonably well, though as written it won't move with
the main window if it's moved. (And does no-title work with OS X? And does this get
the position of the text-list right with OS X? It should be right under the button.)
list-lo: layout [
origin 0x0
t: text-list [
b/text: t/picked/1
unview/only list-lo
show b
]
]
repeat n 52 [append t/data n]
t/update
main-lo: layout [
size 400x400
b: button "1" 200 [
unview/only list-lo
view/new/offset/options list-lo b/offset + main-lo/offset + 0x24 [no-title]
]
]
view main-lo
-- Carl Read.