# File lib/Borges/Component/ApplicationList.rb, line 34
  def render_content_on(r)
    r.heading('Borges Server')
    
    r.form do
      r.table do
        Borges::Dispatcher.instance.entry_points.each do |app_name, app|
          render_row_for_application_on(app, r)
        end
      end
    end

    # TODO allow loading of apps
=begin
    r.form do
      r.default_action do add_application end
      r.text 'Application: '
      r.text_input('') do |n| @app_name = n end
      r.submit_button('Add') do add_application end
    end
=end

  
    r.anchor('Clear Caches') do clear_caches end
    
    #r.preformatted(SeasidePlatformSupport.vmStatisticsReportString)
  end