[REBOL] Help modifying text-list

From: reboler::programmer::net at: 24-Sep-2002 15:23

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
		]

	]
]

[1] · 2 · See whole thread