 
 USING: kernel sequences math math.order
        ui.gadgets ui.gadgets.tracks ui.gestures
-       accessors ;
+       fry accessors ;
 
 IN: ui.gadgets.tiling
 


! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: add-column ( tiling -- tiling )
  dup columns>> 1 + >>columns
  tiling-map-gadgets ;


tiling
 H{
    { T{ key-down f { A+    } "LEFT"  } [ focus-left  drop ] }
    { T{ key-down f { A+    } "RIGHT" } [ focus-right drop ] }
    { T{ key-down f { S+ A+ } "LEFT"  } [ move-left   drop ] }
    { T{ key-down f { S+ A+ } "RIGHT" } [ move-right  drop ] }
    { T{ key-down f { C+    } "["     } [ del-column  drop ] }
    { T{ key-down f { C+    } "]"     } [ add-column  drop ] }
  }
set-gestures