REBOL [
  Title: "Demo 2 - List view with data"
  Short: "List with Data"
  Author: ["Henrik Mikael Kristensen"]
  Copyright: "2006 - HMK Design"
  Filename: %demo02.r
  Version: 0.0.1
  Created: 25-Feb-2006
  Date: 25-Feb-2006
  License: {
    BSD (www.opensource.org/licenses/bsd-license.php)
    Use at your own risk.
  }
  Purpose: {
    Basic List View with some data.
    Try to select rows, by clicking on them.
    Sort rows by clicking on the column title bar at the top.
    Click the button in the upper right corner to reset sorting.
  }
  History: []
  Keywords: [data selection sorting]
]

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

view/new layout [
  text bold {List view with data.}
  text {Select rows by clicking them.}
  text {Sort rows by clicking the column title bar.}
  text {Reset sorting by clicking the upper right corner buttton.}
  li: list-view 400x400 with [
    select-mode: 'multi-row
    data: [
      ["123" "456" "789"]
      ["Eenie" "Meenie" "Miney"]
      ["Red" "Green" "Blue"]
      ["Yellow" "Black" "Brown"]
    ]
  ]
]

focus li

do-events