[REBOL] Re: Adding 'alt-action to a text-list
From: anton:lexicon at: 17-May-2002 17:33
You are going to have to patch text-list init block.
If you do:
print mold get in get-style 'text-list 'init
you can see that there is only mention of action facet
(stored in 'act).
You need to copy the alt-action in a word (I suggest 'alt-act),
and modify the engage function that you see there. Just add
some lines similar to the 'down and 'up actions:
if a = 'alt-down [...]
if a = 'alt-up [...]
You might need to bind your block into:
get in get-style 'text-list 'self
(But I am not a bindologist yet, so just see if it works.)
After all this, alternative actions should work on text-lists.