#../wafe --f

mergeResources topLevel \
    *left chainLeft \
    *bottom chainBottom \
    *Command.fromVert v \
    *Command.right chainLeft \
    *Command.top chainBottom \
    *Viewport.right chainRight \
    *Viewport.top chainTop \
    *Command.callback {sV t gravity %w}


Form f topLevel
  Viewport v f width 230 height 120 allowHoriz true allowVert true
    Tree t v
      Label n0 t label +
      Label n1 t label * treeParent n0 
      Label n2 t label 1 treeParent n1 
      Label n3 t label 2 treeParent n1 
      Label n4 t label 3 treeParent n0 

Command quit  f callback quit
Command north f fromHoriz quit
Command south f fromHoriz north
Command west  f fromHoriz south
Command east  f fromHoriz west
realize