View script | License | Download script | History | Other scripts by: notchent |
2-May 14:31 UTC
[0.048] 10.46k
[0.048] 10.46k
Archive version of: listview-demo.r ... version: 1 ... notchent 30-Jun-2008Amendment note: new script || Publicly available? Yes Rebol [ title: "Listview Demo" date: 29-june-2008 file: %listview-demo.r purpose: { A demo of the listview control by Henrik Mikael Kristensen. Taken from the tutorial at http://musiclessonz.com/rebol_tutorial.html } ] if not exists? %list-view.r [write %list-view.r read http://www.hmkdesign.dk/rebol/list-view/list-view.r ] do %list-view.r if not exists? %database.db [write %database.db {[][]}] database: load %database.db view center-face gui: layout [ theview: list-view 775x200 with [ data-columns: [Student Teacher Day Time Phone Parent Age Payments Reschedule Notes] data: copy database tri-state-sort: false editable?: true ] across button "add row" [theview/insert-row] button "remove row" [theview/remove-row] button "filter data" [ filter-text: request-text/title trim { Filter Text (leave blank to refresh all data):} if filter-text <> none [ theview/filter-string: filter-text theview/update ] ] button "save db" [save %database.db theview/data] ] |