# File lib/Borges/Component/SelectionDateTable.rb, line 41
  def render_cell_for_date_row_index_on(aDate, anObject, aNumber, r)
    r.attributeAt_put('bgcolor', (self.colorForDate_rowIndex(aDate, aNumber)))
    r.attributeAt_put('align', 'center')
    r.tableData do
      text = @cellBlock.value_value(anObject, aDate)
      r.anchorWithAction_text(proc do
        self.selectDate_rowIndex(aDate, aNumber)
      end, text)
    end
  end