     my.assert world.is_world current, "can only inspect worlds"
     world.put('current', current)
     strategy = world.find_child('strategy')
+    strategy.authority = world.make_world ROW_AUTHORITY
     programs = current.get('programs')
-    strategy.authority = world.make_world ROW_AUTHORITY
-    strategy.reset_children()
-    programs.map_children (child) ->
-      strategy.add_child list_program(child.label(), child.get('value'))
-    strategy.put 'height', my.row.spacing*programs._child_count()
+    display_strategy strategy, programs
     
   i: (world) -> world.get('split')
   width: (world) -> world.get('device').width - world.get('size')

    click: (world, args) -> world.send world.get('value')
  }

list_program = (name, commands) ->
  children = commands.all()
  children.unshift {name: name, fill: "white", stroke: "white"}
  {

    }
    'commands'
    'program'
    {_LABEL: 'strategy'}
  ]

}
