1 IN: ui.gadgets.tables.tests
2 USING: ui.gadgets.tables ui.gadgets.scrollers ui.gadgets.debug accessors
3 models namespaces tools.test kernel combinators prettyprint arrays ;
5 SINGLETON: test-renderer
7 M: test-renderer row-columns drop ;
9 M: test-renderer column-titles drop { "First" "Last" } ;
11 : test-table ( -- table )
13 { "Britney" "Spears" }
14 { "Justin" "Timberlake" }
16 } <model> test-renderer <table> ;
19 test-table "table" set
23 "table" get <scroller> "scroller" set
26 [ { "Justin" "Timberlake" } { "Britney" "Spears" } ] [
27 test-table t >>selection-required? dup [
32 { "Justin" "Timberlake" }
33 { "Britney" "Spears" }
40 { "Britney" "Spears" }
49 SINGLETON: silly-renderer
51 M: silly-renderer row-columns drop unparse 1array ;
53 M: silly-renderer column-titles drop { "Foo" } ;
55 : test-table-2 ( -- table )
56 { 1 2 f } <model> silly-renderer <table> ;