REBOL [
  Title: "Demo 14 - List view with drag'n'drop row rearrangement"
  Short: "Drag'n'Drop Row Rearrangement"
  Author: ["Henrik Mikael Kristensen"]
  Copyright: "2006 - HMK Design"
  Filename: %demo14.r
  Version: 0.0.1
  Created: 09-Sep-2006
  Date: 09-Sep-2006
  License: {
    BSD (www.opensource.org/licenses/bsd-license.php)
    Use at your own risk.
  }
  Purpose: {
    List View with drag'n'drop row rearrangement.
    Click and hold to drag a row to rearrange the list entries.
  }
  History: []
  Keywords: [drag-n-drop sorting inline-editing]
]

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

view layout [
  text bold {List view with drag'n'drop row rearrangement}
  text {Click and hold to drag a row to rearrange the list entries.}
  text {Drag beyond the top/bottom border to scroll the list.}
  text {Sorting is disabled while drag'n'drop is enabled.}
  text {Doubleclick to edit entries.}
  li: list-view 300x200 with [
    redraggable-rows: true
    editable?: true
    data-columns: [Content]
    data: [
      ["1x"]
      ["2x"]
      ["3x"]
      ["4x"]
      ["5x"]
      ["6x"]
      ["7x"]
      ["8x"]
      ["9x"]
      ["10x"]
      ["11x"]
      ["12x"]
    ]
    drop-action: [] ; insert action here, if you want to act on drop
  ]
]