package cz.frantovo.gui.tabulky;

import java.awt.Component;

import java.awt.event.MouseAdapter;

import java.awt.event.MouseEvent;

import java.awt.event.MouseListener;

import java.util.ArrayList;

import java.util.Arrays;

import java.util.Comparator;

import java.util.HashMap;

import java.util.Iterator;

import java.util.List;

import java.util.Map;

import javax.swing.Icon;

import javax.swing.ImageIcon;

import javax.swing.JLabel;

import javax.swing.JTable;

import javax.swing.event.TableModelEvent;

import javax.swing.event.TableModelListener;

import javax.swing.table.AbstractTableModel;

import javax.swing.table.JTableHeader;

import javax.swing.table.TableCellRenderer;

import javax.swing.table.TableColumnModel;

import javax.swing.table.TableModel;

/**

 * <p>Tato třída přidává tabulce funkčnost řazení podle více sloupců. Skutečný

 * model obsahující data stačí obalit touto třídou + je potřeba nastavit:

 * tableSorterModel.setTableHeader(table.getTableHeader());</p>

 * 

 * <p>Jednodušší ale je používat třídu cz.frantovo.gui.tabulky.JFTable, která všechno

 * udělá za vás. </p>

 * 

 * <p>Tento TableSorterModel je založen na původním TableSorter od autorů: Philip

 * Milne, Brendon McLean, Dan van Enckevort a Parwinder Sekhon.</p>

 *

 * <p>Já jsem přidal hezčí grafické šipky v záhlaví tabulky</p>

 * 

 * @author František Kučera

 */

public class TableSorterModel extends AbstractTableModel {

        private static final long serialVersionUID = 7902301859145867387L;

        protected TableModel tableModel;

        public static final int DESCENDING = -1;

        public static final int NOT_SORTED = 0;

        public static final int ASCENDING = 1;

        private static Directive EMPTY_DIRECTIVE = new Directive( -1,

                                                                 NOT_SORTED);

        public static final Comparator COMPARABLE_COMAPRATOR = new Comparator() {

                public int compare (Object o1,

                                    Object o2)

                {

                        return ((Comparable) o1).compareTo(o2);

                }

        };

        public static final Comparator LEXICAL_COMPARATOR = new Comparator() {

                public int compare (Object o1,

                                    Object o2)

                {

                        return o1.toString().compareTo(o2.toString());

                }

        };

        private Row[] viewToModel;

        private int[] modelToView;

        private JTableHeader tableHeader;

        private MouseListener mouseListener;

        private TableModelListener tableModelListener;

        private Map columnComparators = new HashMap();

        private List sortingColumns = new ArrayList();

        private ImageIcon headerIconDown = new ImageIcon(getClass().getResource("/cz/frantovo/gui/tabulky/dolu.png"));

        private ImageIcon headerIconUp = new ImageIcon(getClass().getResource("/cz/frantovo/gui/tabulky/nahoru.png"));

        public TableSorterModel ()

        {

                this.mouseListener = new MouseHandler();

                this.tableModelListener = new TableModelHandler();

        }

        public TableSorterModel (TableModel tableModel)

        {

                this();

                setTableModel(tableModel);

        }

        public TableSorterModel (TableModel tableModel,

                                 JTableHeader tableHeader)

        {

                this();

                setTableHeader(tableHeader);

                setTableModel(tableModel);

        }

        private void clearSortingState ()

        {

                viewToModel = null;

                modelToView = null;

        }

        public TableModel getTableModel ()

        {

                return tableModel;

        }

        public void setTableModel (TableModel tableModel)

        {

                if (this.tableModel != null) {

                        this.tableModel.removeTableModelListener(tableModelListener);

                }

                this.tableModel = tableModel;

                if (this.tableModel != null) {

                        this.tableModel.addTableModelListener(tableModelListener);

                }

                clearSortingState();

                fireTableStructureChanged();

        }

        public JTableHeader getTableHeader ()

        {

                return tableHeader;

        }

        public void setTableHeader (JTableHeader tableHeader)

        {

                if (this.tableHeader != null) {

                        this.tableHeader.removeMouseListener(mouseListener);

                        TableCellRenderer defaultRenderer = this.tableHeader.getDefaultRenderer();

                        if (defaultRenderer instanceof SortableHeaderRenderer) {

                                this.tableHeader.setDefaultRenderer(((SortableHeaderRenderer) defaultRenderer).tableCellRenderer);

                        }

                }

                this.tableHeader = tableHeader;

                if (this.tableHeader != null) {

                        this.tableHeader.addMouseListener(mouseListener);

                        this.tableHeader.setDefaultRenderer(new SortableHeaderRenderer(this.tableHeader.getDefaultRenderer()));

                }

        }

        public boolean isSorting ()

        {

                return sortingColumns.size() != 0;

        }

        private Directive getDirective (int column)

        {

                for (int i = 0; i < sortingColumns.size(); i++) {

                        Directive directive = (Directive) sortingColumns.get(i);

                        if (directive.column == column) {

                                return directive;

                        }

                }

                return EMPTY_DIRECTIVE;

        }

        public int getSortingStatus (int column)

        {

                return getDirective(column).direction;

        }

        private void sortingStatusChanged ()

        {

                clearSortingState();

                fireTableDataChanged();

                if (tableHeader != null) {

                        tableHeader.repaint();

                }

        }

        public void setSortingStatus (int column,

                                      int status)

        {

                Directive directive = getDirective(column);

                if (directive != EMPTY_DIRECTIVE) {

                        sortingColumns.remove(directive);

                }

                if (status != NOT_SORTED) {

                        sortingColumns.add(new Directive(column,

                                                         status));

                }

                sortingStatusChanged();

        }

        protected Icon getHeaderRendererIcon (int column,

                                              int size)

        {

                Directive directive = getDirective(column);

                if (directive == EMPTY_DIRECTIVE) {

                        return null;

                }

                if (directive.direction == DESCENDING) {

                        return headerIconDown;

                } else {

                        return headerIconUp;

                }

        }

        private void cancelSorting ()

        {

                sortingColumns.clear();

                sortingStatusChanged();

        }

        public void setColumnComparator (Class type,

                                         Comparator comparator)

        {

                if (comparator == null) {

                        columnComparators.remove(type);

                } else {

                        columnComparators.put(type,

                                              comparator);

                }

        }

        protected Comparator getComparator (int column)

        {

                Class columnType = tableModel.getColumnClass(column);

                Comparator comparator = (Comparator) columnComparators.get(columnType);

                if (comparator != null) {

                        return comparator;

                }

                if (Comparable.class.isAssignableFrom(columnType)) {

                        return COMPARABLE_COMAPRATOR;

                }

                return LEXICAL_COMPARATOR;

        }

        private Row[] getViewToModel ()

        {

                if (viewToModel == null) {

                        int tableModelRowCount = tableModel.getRowCount();

                        viewToModel = new Row[tableModelRowCount];

                        for (int row = 0; row < tableModelRowCount; row++) {

                                viewToModel[row] = new Row(row);

                        }

                        if (isSorting()) {

                                Arrays.sort(viewToModel);

                        }

                }

                return viewToModel;

        }

        public int modelIndex (int viewIndex)

        {

                if (viewIndex > -1 && viewIndex < getViewToModel().length) {

                        return getViewToModel()[viewIndex].modelIndex;

                } else {

                        return -1;

                }

        }

        private int[] getModelToView ()

        {

                if (modelToView == null) {

                        int n = getViewToModel().length;

                        modelToView = new int[n];

                        for (int i = 0; i < n; i++) {

                                modelToView[modelIndex(i)] = i;

                        }

                }

                return modelToView;

        }

        // Metody rozhran� TableModel

        public int getRowCount ()

        {

                return (tableModel == null) ? 0 : tableModel.getRowCount();

        }

        public int getColumnCount ()

        {

                return (tableModel == null) ? 0 : tableModel.getColumnCount();

        }

        public String getColumnName (int column)

        {

                return tableModel.getColumnName(column);

        }

        public Class getColumnClass (int column)

        {

                return tableModel.getColumnClass(column);

        }

        public boolean isCellEditable (int row,

                                       int column)

        {

                return tableModel.isCellEditable(modelIndex(row),

                                                 column);

        }

        public Object getValueAt (int row,

                                  int column)

        {

                return tableModel.getValueAt(modelIndex(row),

                                             column);

        }

        public void setValueAt (Object aValue,

                                int row,

                                int column)

        {

                tableModel.setValueAt(aValue,

                                      modelIndex(row),

                                      column);

        }

        // Pomocn� t��dy

        private class Row implements Comparable {

                private int modelIndex;

                public Row (int index)

                {

                        this.modelIndex = index;

                }

                public int compareTo (Object o)

                {

                        int row1 = modelIndex;

                        int row2 = ((Row) o).modelIndex;

                        for (Iterator it = sortingColumns.iterator(); it.hasNext();) {

                                Directive directive = (Directive) it.next();

                                int column = directive.column;

                                Object o1 = tableModel.getValueAt(row1,

                                                                  column);

                                Object o2 = tableModel.getValueAt(row2,

                                                                  column);

                                int comparison = 0;

                                // Define null less than everything, except

                                // null.

                                if (o1 == null && o2 == null) {

                                        comparison = 0;

                                } else if (o1 == null) {

                                        comparison = -1;

                                } else if (o2 == null) {

                                        comparison = 1;

                                } else {

                                        comparison = getComparator(column).compare(o1,

                                                                                   o2);

                                }

                                if (comparison != 0) {

                                        return directive.direction == DESCENDING ? -comparison : comparison;

                                }

                        }

                        return 0;

                }

        }

        private class TableModelHandler implements TableModelListener {

                public void tableChanged (TableModelEvent e)

                {

                        // If we're not sorting by anything, just pass the event

                        // along.

                        if ( !isSorting()) {

                                clearSortingState();

                                fireTableChanged(e);

                                return;

                        }

                        // If the table structure has changed, cancel the

                        // sorting; the

                        // sorting columns may have been either moved or deleted

                        // from

                        // the model.

                        if (e.getFirstRow() == TableModelEvent.HEADER_ROW) {

                                cancelSorting();

                                fireTableChanged(e);

                                return;

                        }

                        // We can map a cell event through to the view without

                        // widening

                        // when the following conditions apply:

                        // 

                        // a) all the changes are on one row (e.getFirstRow() ==

                        // e.getLastRow()) and,

                        // b) all the changes are in one column (column !=

                        // TableModelEvent.ALL_COLUMNS) and,

                        // c) we are not sorting on that column

                        // (getSortingStatus(column) == NOT_SORTED) and,

                        // d) a reverse lookup will not trigger a sort

                        // (modelToView != null)

                        //

                        // Note: INSERT and DELETE events fail this test as they

                        // have column == ALL_COLUMNS.

                        // 

                        // The last check, for (modelToView != null) is to see

                        // if modelToView

                        // is already allocated. If we don't do this check;

                        // sorting can become

                        // a performance bottleneck for applications where cells

                        // change rapidly in different parts of the table. If

                        // cells

                        // change alternately in the sorting column and then

                        // outside of

                        // it this class can end up re-sorting on alternate cell

                        // updates -

                        // which can be a performance problem for large tables.

                        // The last

                        // clause avoids this problem.

                        int column = e.getColumn();

                        if (e.getFirstRow() == e.getLastRow() && column != TableModelEvent.ALL_COLUMNS && getSortingStatus(column) == NOT_SORTED

                                && modelToView != null) {

                                int viewIndex = getModelToView()[e.getFirstRow()];

                                fireTableChanged(new TableModelEvent(TableSorterModel.this,

                                                                     viewIndex,

                                                                     viewIndex,

                                                                     column,

                                                                     e.getType()));

                                return;

                        }

                        // Something has happened to the data that may have

                        // invalidated the row order.

                        clearSortingState();

                        fireTableDataChanged();

                        return;

                }

        }

        private class MouseHandler extends MouseAdapter {

                public void mouseClicked (MouseEvent e)

                {

                        JTableHeader h = (JTableHeader) e.getSource();

                        TableColumnModel columnModel = h.getColumnModel();

                        int viewColumn = columnModel.getColumnIndexAtX(e.getX());

                        int column = columnModel.getColumn(viewColumn).getModelIndex();

                        if (column != -1) {

                                int status = getSortingStatus(column);

                                if ( !e.isControlDown()) {

                                        cancelSorting();

                                }

                                // Cycle the sorting states through {NOT_SORTED,

                                // ASCENDING, DESCENDING} or

                                // {NOT_SORTED, DESCENDING, ASCENDING} depending

                                // on whether shift is pressed.

                                status = status + (e.isShiftDown() ? -1 : 1);

                                status = (status + 4) % 3 - 1; // signed mod,

                                // returning

                                // {-1, 0, 1}

                                setSortingStatus(column,

                                                 status);

                        }

                }

        }

        private class SortableHeaderRenderer implements TableCellRenderer {

                private TableCellRenderer tableCellRenderer;

                public SortableHeaderRenderer (TableCellRenderer tableCellRenderer)

                {

                        this.tableCellRenderer = tableCellRenderer;

                }

                public Component getTableCellRendererComponent (JTable table,

                                                                Object value,

                                                                boolean isSelected,

                                                                boolean hasFocus,

                                                                int row,

                                                                int column)

                {

                        Component c = tableCellRenderer.getTableCellRendererComponent(table,

                                                                                      value,

                                                                                      isSelected,

                                                                                      hasFocus,

                                                                                      row,

                                                                                      column);

                        if (c instanceof JLabel) {

                                JLabel l = (JLabel) c;

                                l.setHorizontalTextPosition(JLabel.LEFT);

                                int modelColumn = table.convertColumnIndexToModel(column);

                                l.setIcon(getHeaderRendererIcon(modelColumn,

                                                                l.getFont().getSize()));

                        }

                        return c;

                }

        }

        private static class Directive {

                private int column;

                private int direction;

                public Directive (int column,

                                  int direction)

                {

                        this.column = column;

                        this.direction = direction;

                }

        }

        public void fireTableColumnUpdated (int index)

        {

                for (int i = 0; i < getRowCount(); i++) {

                        fireTableCellUpdated(i,

                                             index);

                }

        }

}