With help from the list a while back, I made a modified text-list, given below.
While the right-click action now high-lights the selected line in the list, the
alt-action supplied does not work.
for example my-list: text-list [print face/picked][print value]
Can anyone help?
stylize/master [
text-list: text-list with [ ;text-list-rc
append init [
alt-act: :alt-action
iter/feel: make iter/feel [
engage: func [f a e] [
if a = 'down [
if cnt > length? head lines [exit]
if not e/control [f/state: cnt clear
picked]
alter picked f/text
do :act slf f/text
]
if a = 'alt-down [;*****
if cnt > length? head lines [exit]
if not e/control [f/state: cnt clear
picked]
alter picked f/text
do :alt-act slf f/text
]
if a = 'up [f/state: none]
if a = 'alt-up [f/state: none];*****
show pane
]
]
pane: layout/size [
origin 0 space 0
sub-area: box slf/color sz - 16x0 ibevel with [pane:
:text-pane]
at sz * 1x0 - 16x0
sld: scroller sz * 0x1 + 16x0 [;*****
value: to-integer value * ((1 + length? head
lines) - lc)
if sn <> value [sn: value]
show sub-area
]
] size
sld/redrag lc / max 1 length? head lines
pane/offset: 0x0
]
]
]
--
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
