REBOL [
  Title: "Demo 19 - LIST-VIEW Action Priorities"
  Short: "Action Priorities"
  Author: ["Henrik Mikael Kristensen"]
  Copyright: "2006 - HMK Design"
  Filename: %demo19.r
  Version: 0.0.1
  Created: 12-nov-2006
  Date: 12-nov-2006
  License: {
    BSD (www.opensource.org/licenses/bsd-license.php)
    Use at your own risk.
  }
  Purpose: {
    Each action in LIST-VIEW is assigned to output a string, so you
    can see which action is performed first, when giving LIST-VIEW
    various different inputs.
  }
  History: []
  Keywords: [actions]
]

do http://www.hmkdesign.dk/rebol/list-view/list-view.r

view layout [
  text bold {LIST-VIEW Action Priorities}
  text 400x50 {Each action in LIST-VIEW is assigned to output a string, so you
  can see which action is performed first, when giving LIST-VIEW
  various different inputs.}
  space 0
  li: list-view 400x200 with [
    data: [1 2 3]
    list-action: [print "list-action"]
    alt-list-action: [print "alt-list-action"]
    doubleclick-list-action: [print "doubleclick-list-action"]
    empty-action: [print "empty-action"]
    alt-empty-action: [print "alt-empty-action"]
    doubleclick-empty-action: [print "doubleclick-empty-action"]
    edit-action: [print "edit-action"]
    tab-edit-action: [print "tab-edit-action"]
    pre-submit-edit-action: [print "finish-action"]
    refresh-action: [print "refresh-action"]
    over-row-action: [print "over-row-action"]
    drop-action: [print "drop-action"]
    sort-action: [print "sort-action"]
    row-action: [if get-face row-action-output [print "row-action"]]
  ]
  row-action-output: check-line "Print ROW-ACTION output"
]