What do you want the alt-action to do?
What's value supposed to be?
Maybe you want an alt-action like this:
[print face/text]
Anton.
> 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
> ]
>
> ]
> ]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
