/*
    *  Copyright (C) 2003-2005 SINTEF
    *  Author:  Fredrik Vraalsen (fredrik dot vraalsen at sintef dot no)
    *  Webpage: http://coras.sourceforge.net/
    *
    *  This program is free software; you can redistribute it and/or
    *  modify it under the terms of the GNU Lesser General Public License
    *  as published by the Free Software Foundation; either version 2.1
    *  of the License, or (at your option) any later version.
   *
   *  This program is distributed in the hope that it will be useful,
   *  but WITHOUT ANY WARRANTY; without even the implied warranty of
   *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   *  Lesser General Public License for more details.
   *
   *  You should have received a copy of the GNU Lesser General Public
   *  License along with this program; if not, write to the Free
   *  Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   *  02111-1307 USA
   */
  package coras.table;
  
  import java.awt.Color;
  import java.awt.Cursor;
  import java.awt.Dimension;
  import java.awt.Graphics;
  import java.awt.Point;
  import java.awt.Polygon;
  import java.awt.event.ActionEvent;
  import java.awt.event.ActionListener;
  import java.awt.event.MouseAdapter;
  import java.awt.event.MouseEvent;
  import java.awt.event.MouseMotionAdapter;
  import java.util.ArrayList;
  import java.util.Collection;
  import java.util.Iterator;
  
  import javax.swing.AbstractAction;
  import javax.swing.Action;
  import javax.swing.JMenuItem;
  import javax.swing.JPopupMenu;
  import javax.swing.JSeparator;
  import javax.swing.JTextArea;
  import javax.swing.text.AbstractDocument;
  import javax.swing.text.AttributeSet;
  import javax.swing.text.BadLocationException;
  import javax.swing.text.Caret;
  import javax.swing.text.DocumentFilter;
  
  import coras.table.columnchoices.jaxb.ChoiceType;
  
  /***
   * @author fvr
   *
   * TODO To change the template for this generated type comment go to
   * Window - Preferences - Java - Code Style - Code Templates
   */
  public class ChoiceTextArea extends JTextArea implements ActionListener {
  	
  	private static final int SIZE = 5;
  	private Collection choices = null;
  	private JPopupMenu popupMenu = new JPopupMenu();
  	private boolean userEditable;
  	private boolean textValid = true;
  	private boolean doUpdateText = false;
  	
  	public ChoiceTextArea() {
  		super();
  		addMouseListener(new MouseAdapter() {
  			public void mousePressed(MouseEvent e) {
  				maybePopup(e);
  			}
  			public void mouseReleased(MouseEvent e) {
  				maybePopup(e);
  			}
  		});
  		addMouseMotionListener(new MouseMotionAdapter() {
  			boolean lastInside = false;
  			public void mouseMoved(MouseEvent e) {
  				boolean inside = inside(e.getPoint());
  				if (inside != lastInside) {
  					lastInside = inside;
  					if (inside(e.getPoint())) {
  						setCursor(Cursor.getPredefinedCursor(Cursor.DEFAULT_CURSOR));
  					} else {
  						setCursor(Cursor.getPredefinedCursor(Cursor.TEXT_CURSOR));
  					}
  				}
  			}
  		});
  		final AbstractDocument document = (AbstractDocument) getDocument();
  		document.setDocumentFilter(new DocumentFilter() {
  			public void insertString(FilterBypass fb, int offset, String string, AttributeSet attr) throws BadLocationException {
  				super.insertString(fb, offset, string, attr);
  				updateText();
  			}
  			public void remove(FilterBypass fb, int offset, int length)	throws BadLocationException {
  				super.remove(fb, offset, length);
  //				updatePopupMenu();
 				stateChanged();
 			}
 			public void replace(FilterBypass fb, int offset, int length, String text, AttributeSet attrs) throws BadLocationException {
 				super.replace(fb, offset, length, text, attrs);
 				updateText();
 			}
 		});
 	}
 	
 	public void actionPerformed(ActionEvent e) {
 		setText(e.getActionCommand());
 	}
 	
 	public void setUserEditable(boolean editable) {
 		userEditable = editable;
 		stateChanged();
 	}
 	
 	public synchronized void setText(String t) {
 		doUpdateText = false;
 		super.setText(t);
 		doUpdateText = true;
 		stateChanged();
 	}
 	
 	public synchronized void setChoices(Collection newChoices) {
 		if (choices == newChoices || (choices != null && choices.equals(newChoices))) {
 			return;
 		}
 		choices = newChoices;
 //		updatePopupMenu();
 		stateChanged();
 	}
 	
 	public int getRowHeight() {
 		return super.getRowHeight();
 	}
 	
 	public void paint(Graphics g) {
 		super.paint(g);
 		Collection localChoices = choices; // thread safety
 		if (localChoices != null && localChoices.size() > 0) {
 			Polygon p = getPolygon();
 			g.setColor(Color.black);
 			g.fillPolygon(p);
 		}
 		if (!textValid) {
 			Polygon p = getPolygon();
 			g.setColor(Color.red);
 			g.fillPolygon(p);
 		}
 	}
 
 	private synchronized void maybePopup(MouseEvent e) {
 		Point p = e.getPoint();
 		if (inside(p) || e.isPopupTrigger()) {
 			updatePopupMenu();
 			popupMenu.show(this, p.x, p.y);
 		}
 	}
 
 	private synchronized void updateText() {
 		if (!doUpdateText) {
 			// updateText reentry or call to setText()
 			return;
 		}
 		doUpdateText = false;
 		
 		Collection localChoices = choices; // thread safety
 		String text = getText();
 		int length = text.length();
 		int pos = getCaretPosition();
 		if (length > 0 && pos == length && localChoices != null && localChoices.size() > 0) {
 			boolean found = false;
 			for (Iterator i = localChoices.iterator(); !found && i.hasNext();) {
 				ChoiceType choice = (ChoiceType) i.next();
 				String value = choice.getValue();
 //				if (startsWithIgnoreCase(value, text)) {
 //					setText(userEditable ? text + value.substring(pos) : value);
 				if ((userEditable && value.startsWith(text)) 
 						|| (!userEditable && startsWithIgnoreCase(value, text))) {
 					setText(value);
 					Caret caret = getCaret();
 					caret.setDot(value.length());
 					caret.moveDot(pos);
 //					setSelectionStart(pos);
 //					setSelectionEnd(value.length());
 					found = true;
 				}
 			}
 		}
 		doUpdateText = true;
 //		updatePopupMenu();
 		stateChanged();
 	}
 
 	private void stateChanged() {
 		textValid = isTextValid();
 		if (textValid) {
 			setForeground(Color.black);
 			setToolTipText(null);
 		} else {
 			setForeground(Color.red);
 			String text = "Allowed choices: ";
 			Collection localChoices = choices; // thread safety 
 			for (Iterator i = localChoices.iterator(); i.hasNext();) {
 				ChoiceType choice = (ChoiceType) i.next();
 				text += choice.getValue();
 				if (i.hasNext()) {
 					text += ", ";
 				}
 			}
 			setToolTipText(text);
 		}
 		setSize(getPreferredSize());
 		repaint();
 	}
 
 	/***
 	 * @return
 	 */
 	private boolean isTextValid() {
 		if (userEditable) {
 			return true;
 		}
 		String text = getText();
 		Collection localChoices = choices; // thread safety
 		if (localChoices == null || localChoices.size() == 0) {
 			return true;
 		}
 		for (Iterator i = localChoices.iterator(); i.hasNext();) {
 			ChoiceType choice = (ChoiceType) i.next();
 			if (text.equals(choice.getValue())) {
 				return true;
 			}
 		}
 		return false;
 	}
 
 	/***
 	 * 
 	 */
 	private void updatePopupMenu() {
 		popupMenu.removeAll();
 		Collection localChoices = choices != null ? new ArrayList(choices) : new ArrayList();
 		String prefix = getPrefix();
 		int count = 0;
 		for (Iterator i = localChoices.iterator(); i.hasNext();) {
 			ChoiceType choice = (ChoiceType) i.next();
 			if (startsWithIgnoreCase(choice.getValue(), prefix)) {
 				popupMenu.add(createPopupMenuItem(choice));
 				count++;
 			}
 		}
 		if (count < localChoices.size()) {
 			popupMenu.add(new JSeparator());
 			for (Iterator i = localChoices.iterator(); i.hasNext();) {
 				ChoiceType choice = (ChoiceType) i.next();
 				if (!startsWithIgnoreCase(choice.getValue(), prefix)) {
 					popupMenu.add(createPopupMenuItem(choice));
 				}
 			}
 		}
 	}
 
 	/***
 	 * @return
 	 */
 	private String getPrefix() {
 		String text = getText();
 		Caret caret = getCaret();
 		int dot = caret.getDot();
 		int mark = caret.getMark();
 		if (dot != mark) {
 			int endIndex = text.length();
 			if (dot < mark && mark == text.length()) {
 				endIndex = dot;
 			} else if (mark < dot && dot == text.length()) {
 				endIndex = mark;
 			}
 			text = text.substring(0, endIndex);
 		}
 		return text;
 	}
 
 	/***
 	 * @param choice
 	 * @return
 	 */
 	private JMenuItem createPopupMenuItem(ChoiceType choice) {
 		final String val = choice.getValue();
 		String description = choice.getDescription();
 		if (description != null && description.trim().length() == 0) {
 			description = null;
 		}
 		Action a = new AbstractAction(val) {
 			public void actionPerformed(ActionEvent e) {
 				setText(val);
 			}
 		};
 		JMenuItem result = new JMenuItem(a);
 		result.setToolTipText(description);
 		return result;
 	}
 
 	/***
 	 * @param value
 	 * @param text
 	 * @return
 	 */
 	private boolean startsWithIgnoreCase(String text, String prefix) {
 		if (text == null || prefix == null) {
 			return false;
 		}
 		int prefixLength = prefix.length();
 		if (text.length() < prefixLength) {
 			return false;
 		}
 		return prefix.equalsIgnoreCase(text.substring(0, prefixLength));
 	}
 	
 	private boolean inside(Point point) {
 		Polygon poly = getPolygon();
 		return poly.contains(point);
 	}
 	
 	/***
 	 * @return
 	 */
 	private Polygon getPolygon() {
 		Dimension d = getSize();
 		Polygon p = new Polygon();
 		int x = ((int)d.getWidth());
 		p.addPoint(x - SIZE, 0);
 		p.addPoint(x, 0);
 		p.addPoint(x, SIZE);
 		return p;
 	}
 	
 }