1 IN: ui.gadgets.grid-lines.tests
2 USING: tools.test ui.gadgets ui.gadgets.grid-lines ui.gadgets.grid-lines.private
3 ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
5 : 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
11 { { 0 100 } { 101 100 } }
12 { { 100 0 } { 100 101 } }
19 compute-grid-lines natural-sort
26 { { 5 115 } { 116 115 } }
27 { { 115 5 } { 115 116 } }
35 compute-grid-lines natural-sort
42 { { 0 100 } { 201 100 } }
43 { { 0 200 } { 201 200 } }
44 { { 100 0 } { 100 201 } }
45 { { 200 0 } { 200 201 } }
48 100x100 100x100 2array
49 100x100 100x100 2array
53 compute-grid-lines natural-sort
64 <gadget> { 1 1 } >>dim
65 1array 1array <grid> { 1 1 } >>gap