   init-track
   { 1 0 }    >>orientation
   V{ } clone >>gadgets
-  2          >>columns
+  2          >>tiles
   0          >>first
   0          >>focused ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: <tiling> ( -- gadget )
-  tiling new
-  init-tiling ;
+: <tiling> ( -- gadget ) tiling new init-tiling ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 


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

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

IN: ui.gadgets.tiling

TUPLE: tiling < track gadgets tiles first focused ;

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

