Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Help modifying text-list

 [1/2] 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 ] ] ]

 [2/2] from: anton:lexicon at: 25-Sep-2002 15:33


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.