 
 tiling
  H{
-    { T{ key-down f { A+ } "LEFT"  } [ focus-left  drop ] }
-    { T{ key-down f { A+ } "RIGHT" } [ focus-right drop ] }
-    { T{ key-down f { C+ } "["     } [ del-column  drop ] }
-    { T{ key-down f { C+ } "]"     } [ add-column  drop ] }
+    { 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

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

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


USING: kernel sequences math math.order
       ui.gadgets ui.gadgets.tracks ui.gestures
       fry accessors ;

IN: ui.gadgets.tiling

