REBOL [
  Title: "Demo 13 - List view with 1-dimensional DATA"
  Short: "1-D Data"
  Author: ["Henrik Mikael Kristensen"]
  Copyright: "2006 - HMK Design"
  Filename: %demo13.r
  Version: 0.0.1
  Created: 11-Jul-2007
  Date: 11-Jul-2007
  License: {
    BSD (www.opensource.org/licenses/bsd-license.php)
    Use at your own risk.
  }
  Purpose: {
    List View working with 1-dimensional data, in this case a file list.
    Try various operations on 1-dimensional data.
  }
  History: []
  Keywords: [data manipulation]
]

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

view layout [
  text bold {List view working with 1-dimensional data, in this case a file list.}
  text {Try various operations on 1-dimensional data.}
  text {Double click to edit.}
  text {Use Add and Remove to add and remove rows.}
  text {Files are not edited in any way on disk!}
  text {If you remove all rows and start adding rows, DATA becomes 2-dimensional.}
  space 4 across
  li: list-view 400x202 edge [size: 1x1] with [
    data-columns: [entry]
    editable?: true
    header-columns: []
    data: read %.
  ]
  return
  button "Add" [
    li/append-row
    li/show-edit
  ]
  button "Remove" [li/remove-row]
  button "Probe DATA" [probe li/data]
]