basis/ui/gadgets/tracks/tracks-tests.factor

   1 USING: kernel ui.gadgets ui.gadgets.tracks tools.test
   2 math.rectangles accessors sequences namespaces ;
   3
   4 { { 100 100 } } [
   5     vertical <track>
   6         <gadget> { 100 100 } >>dim 1 track-add
   7     pref-dim
   8 ] unit-test
   9
  10 { { 100 110 } } [
  11     vertical <track>
  12         <gadget> { 10 10 } >>dim f track-add
  13         <gadget> { 100 100 } >>dim 1 track-add
  14     pref-dim
  15 ] unit-test
  16
  17 { { 10 10 } } [
  18     vertical <track>
  19         <gadget> { 10 10 } >>dim 1 track-add
  20         <gadget> { 10 10 } >>dim 0 track-add
  21     pref-dim
  22 ] unit-test
  23
  24 { { 10 30 } } [
  25     vertical <track>
  26         <gadget> { 10 10 } >>dim f track-add
  27         <gadget> { 10 10 } >>dim f track-add
  28         <gadget> { 10 10 } >>dim f track-add
  29     pref-dim
  30 ] unit-test
  31
  32 { { 10 40 } } [
  33     vertical <track>
  34         { 5 5 } >>gap
  35         <gadget> { 10 10 } >>dim f track-add
  36         <gadget> { 10 10 } >>dim f track-add
  37         <gadget> { 10 10 } >>dim f track-add
  38     pref-dim
  39 ] unit-test
  40
  41 { V{ { 10 10 } { 10 80 } { 10 10 } } } [
  42     vertical <track>
  43         0 >>fill
  44         <gadget> { 10 10 } >>dim f track-add
  45         <gadget> { 10 10 } >>dim 1 track-add
  46         <gadget> { 10 10 } >>dim f track-add
  47     { 10 100 } >>dim
  48     [ layout ] [ children>> [ dim>> ] map ] bi
  49 ] unit-test
  50
  51 { } [
  52     vertical <track>
  53         0 >>fill
  54         <gadget> { 10 10 } >>dim f track-add
  55         <gadget> { 10 10 } >>dim dup "g1" set 1/2 track-add
  56         <gadget> { 10 10 } >>dim dup "g2" set f track-add
  57         <gadget> { 10 10 } >>dim 1/2 track-add
  58         <gadget> { 10 10 } >>dim f track-add
  59     { 10 100 } >>dim
  60     "track" set
  61 ] unit-test
  62
  63 { V{ { 10 10 } { 10 35 } { 10 10 } { 10 35 } { 10 10 } } }
  64 [ "track" get [ layout ] [ children>> [ dim>> ] map ] bi ] unit-test
  65
  66 { V{ { 10 10 } { 10 80 } { 10 10 } } } [
  67     "g1" get unparent
  68     "g2" get unparent
  69     "track" get [ layout ] [ children>> [ dim>> ] map ] bi
  70 ] unit-test
  71
  72 { 3 } [ "track" get sizes>> length ] unit-test