/**

 *

 * @author Moxiecode

 * @copyright Copyright © 2004-2008, Moxiecode Systems AB, All rights reserved.

 */

(function() {

	var each = tinymce.each;

	tinymce.create('tinymce.plugins.TablePlugin', {

		init : function(ed, url) {

			var t = this;

			t.editor = ed;

			t.url = url;

			// Register buttons

			each([

				['table', 'table.desc', 'mceInsertTable', true],

				['delete_table', 'table.del', 'mceTableDelete'],

				['delete_col', 'table.delete_col_desc', 'mceTableDeleteCol'],

				['delete_row', 'table.delete_row_desc', 'mceTableDeleteRow'],

				['col_after', 'table.col_after_desc', 'mceTableInsertColAfter'],

				['col_before', 'table.col_before_desc', 'mceTableInsertColBefore'],

				['row_after', 'table.row_after_desc', 'mceTableInsertRowAfter'],

				['row_before', 'table.row_before_desc', 'mceTableInsertRowBefore'],

				['row_props', 'table.row_desc', 'mceTableRowProps', true],

				['cell_props', 'table.cell_desc', 'mceTableCellProps', true],

				['split_cells', 'table.split_cells_desc', 'mceTableSplitCells', true],

				['merge_cells', 'table.merge_cells_desc', 'mceTableMergeCells', true]

			], function(c) {

				ed.addButton(c[0], {title : c[1], cmd : c[2], ui : c[3]});

			});

			ed.onInit.add(function() {

				if (ed && ed.plugins.contextmenu) {

					ed.plugins.contextmenu.onContextMenu.add(function(th, m, e) {

						var sm;

						if (ed.dom.getParent(e, 'td') || ed.dom.getParent(e, 'th')) {

							m.removeAll();

							m.add({title : 'table.desc', icon : 'table', cmd : 'mceInsertTable', ui : true, value : {action : 'insert'}});

							m.add({title : 'table.props_desc', icon : 'table_props', cmd : 'mceInsertTable', ui : true});

							m.add({title : 'table.del', icon : 'delete_table', cmd : 'mceTableDelete', ui : true});

							m.addSeparator();

							// Cell menu

							sm = m.addMenu({title : 'table.cell'});

							sm.add({title : 'table.cell_desc', icon : 'cell_props', cmd : 'mceTableCellProps', ui : true});

							sm.add({title : 'table.split_cells_desc', icon : 'split_cells', cmd : 'mceTableSplitCells', ui : true});

							sm.add({title : 'table.merge_cells_desc', icon : 'merge_cells', cmd : 'mceTableMergeCells', ui : true});

							// Row menu

							sm = m.addMenu({title : 'table.row'});

							sm.add({title : 'table.row_desc', icon : 'row_props', cmd : 'mceTableRowProps', ui : true});

							sm.add({title : 'table.row_before_desc', icon : 'row_before', cmd : 'mceTableInsertRowBefore'});

							sm.add({title : 'table.row_after_desc', icon : 'row_after', cmd : 'mceTableInsertRowAfter'});

							sm.add({title : 'table.delete_row_desc', icon : 'delete_row', cmd : 'mceTableDeleteRow'});

							sm.addSeparator();

							sm.add({title : 'table.cut_row_desc', icon : 'cut', cmd : 'mceTableCutRow'});

							sm.add({title : 'table.copy_row_desc', icon : 'copy', cmd : 'mceTableCopyRow'});

							sm.add({title : 'table.paste_row_before_desc', icon : 'paste', cmd : 'mceTablePasteRowBefore'});

							sm.add({title : 'table.paste_row_after_desc', icon : 'paste', cmd : 'mceTablePasteRowAfter'});

							// Column menu

							sm = m.addMenu({title : 'table.col'});

							sm.add({title : 'table.col_before_desc', icon : 'col_before', cmd : 'mceTableInsertColBefore'});

							sm.add({title : 'table.col_after_desc', icon : 'col_after', cmd : 'mceTableInsertColAfter'});

							sm.add({title : 'table.delete_col_desc', icon : 'delete_col', cmd : 'mceTableDeleteCol'});

						} else

							m.add({title : 'table.desc', icon : 'table', cmd : 'mceInsertTable', ui : true});

					});

				}

			});

			// Add undo level when new rows are created using the tab key

			ed.onKeyDown.add(function(ed, e) {

				if (e.keyCode == 9 && ed.dom.getParent(ed.selection.getNode(), 'TABLE'))

					ed.undoManager.add();

			});

			ed.onNodeChange.add(function(ed, cm, n) {

				var p = ed.dom.getParent(n, 'td,th,caption');

				cm.setActive('table', !!p);

				if (p && p.nodeName === 'CAPTION')

					p = null;

				cm.setDisabled('delete_table', !p);

				cm.setDisabled('delete_col', !p);

				cm.setDisabled('delete_table', !p);

				cm.setDisabled('delete_row', !p);

				cm.setDisabled('col_after', !p);

				cm.setDisabled('col_before', !p);

				cm.setDisabled('row_after', !p);

				cm.setDisabled('row_before', !p);

				cm.setDisabled('row_props', !p);

				cm.setDisabled('cell_props', !p);

				cm.setDisabled('split_cells', !p || (parseInt(ed.dom.getAttrib(p, 'colspan', '1')) < 2 && parseInt(ed.dom.getAttrib(p, 'rowspan', '1')) < 2));

				cm.setDisabled('merge_cells', !p);

			});

		},

		execCommand : function(cmd, ui, val) {

			var ed = this.editor, b;

			// Is table command

			switch (cmd) {

				case "mceInsertTable":

				case "mceTableRowProps":

				case "mceTableCellProps":

				case "mceTableSplitCells":

				case "mceTableMergeCells":

				case "mceTableInsertRowBefore":

				case "mceTableInsertRowAfter":

				case "mceTableDeleteRow":

				case "mceTableInsertColBefore":

				case "mceTableInsertColAfter":

				case "mceTableDeleteCol":

				case "mceTableCutRow":

				case "mceTableCopyRow":

				case "mceTablePasteRowBefore":

				case "mceTablePasteRowAfter":

				case "mceTableDelete":

					ed.execCommand('mceBeginUndoLevel');

					this._doExecCommand(cmd, ui, val);

					ed.execCommand('mceEndUndoLevel');

					return true;

			}

			// Pass to next handler in chain

			return false;

		},

		getInfo : function() {

			return {

				longname : 'Tables',

				author : 'Moxiecode Systems AB',

				authorurl : 'http://tinymce.moxiecode.com',

				infourl : 'http://wiki.moxiecode.com/index.php/TinyMCE:Plugins/table',

				version : tinymce.majorVersion + "." + tinymce.minorVersion

			};

		},

		// Private plugin internal methods

		/**

		 * Executes the table commands.

		 */

		_doExecCommand : function(command, user_interface, value) {

			var inst = this.editor, ed = inst, url = this.url;

			var focusElm = inst.selection.getNode();

			var trElm = inst.dom.getParent(focusElm, "tr");

			var tdElm = inst.dom.getParent(focusElm, "td,th");

			var tableElm = inst.dom.getParent(focusElm, "table");

			var doc = inst.contentWindow.document;

			var tableBorder = tableElm ? tableElm.getAttribute("border") : "";

			// Get first TD if no TD found

			if (trElm && tdElm == null)

				tdElm = trElm.cells[0];

			function inArray(ar, v) {

				for (var i=0; i<ar.length; i++) {

					// Is array

					if (ar[i].length > 0 && inArray(ar[i], v))

						return true;

					// Found value

					if (ar[i] == v)

						return true;

				}

				return false;

			}

			function select(dx, dy) {

				var td;

				grid = getTableGrid(tableElm);

				dx = dx || 0;

				dy = dy || 0;

				dx = Math.max(cpos.cellindex + dx, 0);

				dy = Math.max(cpos.rowindex + dy, 0);

				// Recalculate grid and select

				inst.execCommand('mceRepaint');

				td = getCell(grid, dy, dx);

				if (td) {

					inst.selection.select(td.firstChild || td);

					inst.selection.collapse(1);

				}

			};

			function makeTD() {

				var newTD = doc.createElement("td");

				if (!tinymce.isIE)

					newTD.innerHTML = '<br mce_bogus="1"/>';

			}

			function getColRowSpan(td) {

				var colspan = inst.dom.getAttrib(td, "colspan");

				var rowspan = inst.dom.getAttrib(td, "rowspan");

				colspan = colspan == "" ? 1 : parseInt(colspan);

				rowspan = rowspan == "" ? 1 : parseInt(rowspan);

				return {colspan : colspan, rowspan : rowspan};

			}

			function getCellPos(grid, td) {

				var x, y;

				for (y=0; y<grid.length; y++) {

					for (x=0; x<grid[y].length; x++) {

						if (grid[y][x] == td)

							return {cellindex : x, rowindex : y};

					}

				}

				return null;

			}

			function getCell(grid, row, col) {

				if (grid[row] && grid[row][col])

					return grid[row][col];

				return null;

			}

			function getTableGrid(table) {

				var grid = new Array(), rows = table.rows, x, y, td, sd, xstart, x2, y2;

				for (y=0; y<rows.length; y++) {

					for (x=0; x<rows[y].cells.length; x++) {

						td = rows[y].cells[x];

						sd = getColRowSpan(td);

						// All ready filled

						for (xstart = x; grid[y] && grid[y][xstart]; xstart++) ;

						// Fill box

						for (y2=y; y2<y+sd['rowspan']; y2++) {

							if (!grid[y2])

								grid[y2] = new Array();

							for (x2=xstart; x2<xstart+sd['colspan']; x2++)

								grid[y2][x2] = td;

						}

					}

				}

				return grid;

			}

			function trimRow(table, tr, td, new_tr) {

				var grid = getTableGrid(table), cpos = getCellPos(grid, td);

				var cells, lastElm;

				// Time to crop away some

				if (new_tr.cells.length != tr.childNodes.length) {

					cells = tr.childNodes;

					lastElm = null;

					for (var x=0; td = getCell(grid, cpos.rowindex, x); x++) {

						var remove = true;

						var sd = getColRowSpan(td);

						// Remove due to rowspan

						if (inArray(cells, td)) {

							new_tr.childNodes[x]._delete = true;

						} else if ((lastElm == null || td != lastElm) && sd.colspan > 1) { // Remove due to colspan

							for (var i=x; i<x+td.colSpan; i++)

								new_tr.childNodes[i]._delete = true;

						}

						if ((lastElm == null || td != lastElm) && sd.rowspan > 1)

							td.rowSpan = sd.rowspan + 1;

						lastElm = td;

					}

					deleteMarked(tableElm);

				}

			}

			function prevElm(node, name) {

				while ((node = node.previousSibling) != null) {

					if (node.nodeName == name)

						return node;

				}

				return null;

			}

			function nextElm(node, names) {

				var namesAr = names.split(',');

				while ((node = node.nextSibling) != null) {

					for (var i=0; i<namesAr.length; i++) {

						if (node.nodeName.toLowerCase() == namesAr[i].toLowerCase() )

							return node;

					}

				}

				return null;

			}

			function deleteMarked(tbl) {

				if (tbl.rows == 0)

					return;

				var tr = tbl.rows[0];

				do {

					var next = nextElm(tr, "TR");

					// Delete row

					if (tr._delete) {

						tr.parentNode.removeChild(tr);

						continue;

					}

					// Delete cells

					var td = tr.cells[0];

					if (td.cells > 1) {

						do {

							var nexttd = nextElm(td, "TD,TH");

							if (td._delete)

								td.parentNode.removeChild(td);

						} while ((td = nexttd) != null);

					}

				} while ((tr = next) != null);

			}

			function addRows(td_elm, tr_elm, rowspan) {

				// Add rows

				td_elm.rowSpan = 1;

				var trNext = nextElm(tr_elm, "TR");

				for (var i=1; i<rowspan && trNext; i++) {

					var newTD = doc.createElement("td");

					if (!tinymce.isIE)

						newTD.innerHTML = '<br mce_bogus="1"/>';

					if (tinymce.isIE)

						trNext.insertBefore(newTD, trNext.cells(td_elm.cellIndex));

					else

						trNext.insertBefore(newTD, trNext.cells[td_elm.cellIndex]);

					trNext = nextElm(trNext, "TR");

				}

			}

			function copyRow(doc, table, tr) {

				var grid = getTableGrid(table);

				var newTR = tr.cloneNode(false);

				var cpos = getCellPos(grid, tr.cells[0]);

				var lastCell = null;

				var tableBorder = inst.dom.getAttrib(table, "border");

				var tdElm = null;

				for (var x=0; tdElm = getCell(grid, cpos.rowindex, x); x++) {

					var newTD = null;

					if (lastCell != tdElm) {

						for (var i=0; i<tr.cells.length; i++) {

							if (tdElm == tr.cells[i]) {

								newTD = tdElm.cloneNode(true);

								break;

							}

						}

					}

					if (newTD == null) {

						newTD = doc.createElement("td");

						if (!tinymce.isIE)

							newTD.innerHTML = '<br mce_bogus="1"/>';

					}

					// Reset col/row span

					newTD.colSpan = 1;

					newTD.rowSpan = 1;

					newTR.appendChild(newTD);

					lastCell = tdElm;

				}

				return newTR;

			}

			// ---- Commands -----

			// Handle commands

			switch (command) {

				case "mceTableRowProps":

					if (trElm == null)

						return true;

					if (user_interface) {

						inst.windowManager.open({

							url : url + '/row.htm',

							width : 400 + parseInt(inst.getLang('table.rowprops_delta_width', 0)),

							height : 295 + parseInt(inst.getLang('table.rowprops_delta_height', 0)),

							inline : 1

						}, {

							plugin_url : url

						});

					}

					return true;

				case "mceTableCellProps":

					if (tdElm == null)

						return true;

					if (user_interface) {

						inst.windowManager.open({

							url : url + '/cell.htm',

							width : 400 + parseInt(inst.getLang('table.cellprops_delta_width', 0)),

							height : 295 + parseInt(inst.getLang('table.cellprops_delta_height', 0)),

							inline : 1

						}, {

							plugin_url : url

						});

					}

					return true;

				case "mceInsertTable":

					if (user_interface) {

						inst.windowManager.open({

							url : url + '/table.htm',

							width : 400 + parseInt(inst.getLang('table.table_delta_width', 0)),

							height : 320 + parseInt(inst.getLang('table.table_delta_height', 0)),

							inline : 1

						}, {

							plugin_url : url,

							action : value ? value.action : 0

						});

					}

					return true;

				case "mceTableDelete":

					var table = inst.dom.getParent(inst.selection.getNode(), "table");

					if (table) {

						table.parentNode.removeChild(table);

						inst.execCommand('mceRepaint');

					}

					return true;

				case "mceTableSplitCells":

				case "mceTableMergeCells":

				case "mceTableInsertRowBefore":

				case "mceTableInsertRowAfter":

				case "mceTableDeleteRow":

				case "mceTableInsertColBefore":

				case "mceTableInsertColAfter":

				case "mceTableDeleteCol":

				case "mceTableCutRow":

				case "mceTableCopyRow":

				case "mceTablePasteRowBefore":

				case "mceTablePasteRowAfter":

					// No table just return (invalid command)

					if (!tableElm)

						return true;

					// Table has a tbody use that reference

					// Changed logic by ApTest 2005.07.12 (www.aptest.com)

					// Now lookk at the focused element and take its parentNode.  That will be a tbody or a table.

					if (trElm && tableElm != trElm.parentNode)