REBOL [
  Title: "Demo 10 - Tri and dual-state sorting with LIST-VIEW"
  Short: "Dual/Tristat Sorting"
  Author: ["Henrik Mikael Kristensen"]
  Copyright: "2006 - HMK Design"
  Filename: %demo10.r
  Version: 0.0.1
  Created: 27-Mar-2006
  Date: 27-Mar-2006
  License: {
    BSD (www.opensource.org/licenses/bsd-license.php)
    Use at your own risk.
  }
  Purpose: {
    Tri and dual-state sorting with LIST-VIEW.
    Test with buttons and try sorting with the header buttons.
  }
  History: []
  Keywords: [sorting]
]

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

view layout [
  text bold {Difference between dual-state and tri-state sorting.}
  text {Test with buttons and try sorting with the header buttons.}
  li: list-view with [
    data-columns: [a b c]
    data: [
      ["Inline editing" "is" "Fun!"]
      ["AltME" "is" "also fun"]
      ["123" "456" "789"]
      ["Eenie" "Meenie" "Miney"]
    ]
  ]
  across
  tog 140 "TRI-STATE-SORT = TRUE" [
    li/tri-state-sort: true li/update
  ] of 'sort
  tog true 140 "TRI-STATE-SORT = FALSE" [
    li/tri-state-sort: false li/update
  ] of 'sort
]