core/ui/test/scrolling.factor

   1 IN: temporary
   2 USING: gadgets gadgets-scrolling namespaces test kernel
   3 models gadgets-viewports math ;
   4
   5 [ ] [
   6     <gadget> "g" set
   7     "g" get <scroller> "s" set
   8 ] unit-test
   9
  10 [ { 100 200 } ] [
  11     { 100 200 } "g" get scroll>rect
  12     "s" get scroller-follows rect-loc
  13 ] unit-test
  14
  15 [ ] [ "s" get scroll>bottom ] unit-test
  16 [ t ] [ "s" get scroller-follows ] unit-test
  17
  18 [ ] [
  19     <gadget> dup "g" set { 10 20 } <model> <viewport> "v" set
  20 ] unit-test
  21
  22 [ { 10 20 } ] [ "g" get rect-loc vneg { 3 3 } v+ ] unit-test
  23
  24 [ ] [
  25     <gadget> { 100 100 } over set-rect-dim
  26     dup "g" set <scroller> "s" set
  27 ] unit-test
  28
  29 [ ] [ "s" get graft ] unit-test
  30
  31 [ ] [ "s" get { 10 20 } scroll ] unit-test
  32
  33 [ { 10 20 } ] [ "g" get rect-loc vneg { 3 3 } v+ ] unit-test
  34
  35 [ ] [ "s" get ungraft ] unit-test