var opened = false, vkb = null, text = null, insertionS = 0, insertionE = 0;

var userstr = navigator.userAgent.toLowerCase();
var safari = (userstr.indexOf('applewebkit') != -1);
var gecko  = (userstr.indexOf('gecko') != -1) && !safari;
var standr = gecko || window.opera || safari;

function setKeybEl(o) {
	text = o;
}


// 'keyb_change' is (almost) the same as in 'edit-simple' sample:
//
function keyb_change()
{
// document.getElementById("switch").innerHTML = (opened ? "Show keyboard" : "Hide keyboard");
 opened = !opened;

 if(opened) document.getElementById('keyb-img-id').src = '../gfx/bklavesnice22.png';
 else document.getElementById('keyb-img-id').src = '../gfx/bklavesnice.png';
 if(opened && !vkb)
 {
   // Note: all parameters, starting with 3rd, in the following
   // expression are optional; their values are equal to the
   // default parameter values for the VKeyboard object.
   // The only exception is 18th parameter (flash switch),
   // which is false by default.

   vkb = new VKeyboard("keyboard",    // container's id
					   keyb_callback, // reference to the callback function
					   true,          // create the arrow keys or not? (this and the following params are optional)
					   true,          // create up and down arrow keys? 
					   false,         // reserved
					   true,          // create the numpad or not?
					   "",            // font name ("" == system default)
					   "14px",        // font size in px
					   "#000",        // font color
					   "#F00",        // font color for the dead keys
					   "#FFF",        // keyboard base background color
					   "#FFF",        // keys' background color
					   "#DDD",        // background color of switched/selected item
					   "#777",        // border color
					   "#CCC",        // border/font color of "inactive" key (key with no value/disabled)
					   "#FFF",        // background color of "inactive" key (key with no value/disabled)
					   "#F00",        // border color of the language selector's cell
					   true,          // show key flash on click? (false by default)
					   "#CC3300",     // font color during flash
					   "#FF9966",     // key background color during flash
					   "#CC3300",     // key border color during flash
					   false,         // embed VKeyboard into the page?
					   true,          // use 1-pixel gap between the keys?
					   0);            // index(0-based) of the initial layout
	 vkb._handle_lang_menu();
//	 document.getElementById('keyboard___lang').parentNode.mousedown();
 }
 else
   vkb.Show(opened);

 text = document.getElementById("mychat-message");
 text.focus();

 if(document.attachEvent)
   text.attachEvent("onblur", backFocus);
}

function backFocus()
{
 if(opened)
 {
   setRange(text, insertionS, insertionE);

   text.focus();
 }
}

// Advanced callback function:
//
function keyb_callback(ch)
{
 var val = text.value;

 switch(ch)
 {
   case "BackSpace":
	 if(val.length)
	 {
	   var span = null;

	   if(document.selection)
		 span = document.selection.createRange().duplicate();

	   if(span && span.text.length > 0)
	   {
		 span.text = "";
		 getCaretPositions(text);
	   }
	   else
		 deleteAtCaret(text);
	 }

	 break;

   case "<":
	 if(insertionS > 0)
	   setRange(text, insertionS - 1, insertionE - 1);

	 break;

   case ">":
	 if(insertionE < val.length)
	   setRange(text, insertionS + 1, insertionE + 1);

	 break;

   case "/\\":
	 if(!standr) break;

	 var prev  = val.lastIndexOf("\n", insertionS) + 1;
	 var pprev = val.lastIndexOf("\n", prev - 2);
	 var next  = val.indexOf("\n", insertionS);

	 if(next == -1) next = val.length;
	 var nnext = next - insertionS;

	 if(prev > next)
	 {
	   prev  = val.lastIndexOf("\n", insertionS - 1) + 1;
	   pprev = val.lastIndexOf("\n", prev - 2);
	 }

	 // number of chars in current line to the left of the caret:
	 var left = insertionS - prev;

	 // length of the prev. line:
	 var plen = prev - pprev - 1;

	 // number of chars in the prev. line to the right of the caret:
	 var right = (plen <= left) ? 1 : (plen - left);

	 var change = left + right;
	 setRange(text, insertionS - change, insertionE - change);

	 break;

   case "\\/":
	 if(!standr) break;

	 var prev  = val.lastIndexOf("\n", insertionS) + 1;
	 var next  = val.indexOf("\n", insertionS);
	 var pnext = val.indexOf("\n", next + 1);

	 if( next == -1)  next = val.length;
	 if(pnext == -1) pnext = val.length;

	 if(pnext < next) pnext = next;

	 if(prev > next)
		prev  = val.lastIndexOf("\n", insertionS - 1) + 1;

	 // number of chars in current line to the left of the caret:
	 var left = insertionS - prev;

	 // length of the next line:
	 var nlen = pnext - next;

	 // number of chars in the next line to the left of the caret:
	 var right = (nlen <= left) ? 0 : (nlen - left - 1);

	 var change = (next - insertionS) + nlen - right;
	 setRange(text, insertionS + change, insertionE + change);

	 break;

   default:
	 insertAtCaret(text, (ch == "Enter" ? (window.opera ? '\r\n' : '\n') : ch));
 }
 if(text.id=='fchar-id-box') sendSearchForm('ord=3&fchar='+text.value);
 if(text.id=='cchar-id-box') sendSearchForm('ord=3&cchar='+text.value);
}

// This function retrieves the position (in chars, relative to
// the start of the text) of the edit cursor (caret), or, if
// text is selected in the TEXTAREA, the start and end positions
// of the selection.
//
function getCaretPositions(ctrl)
{
 var CaretPosS = -1, CaretPosE = 0;

 // Mozilla way:
 if(ctrl.selectionStart || (ctrl.selectionStart == '0'))
 {
   CaretPosS = ctrl.selectionStart;
   CaretPosE = ctrl.selectionEnd;

   insertionS = CaretPosS == -1 ? CaretPosE : CaretPosS;
   insertionE = CaretPosE;
 }
 // IE way:
 else if(document.selection && ctrl.createTextRange)
 {
   var start = end = 0;
   try
   {
	 start = Math.abs(document.selection.createRange().moveStart("character", -10000000)); // start

	 if (start > 0)
	 {
	   try
	   {
		 var endReal = Math.abs(ctrl.createTextRange().moveEnd("character", -10000000));

		 var r = document.body.createTextRange();
		 r.moveToElementText(ctrl);
		 var sTest = Math.abs(r.moveStart("character", -10000000));
		 var eTest = Math.abs(r.moveEnd("character", -10000000));

		 if ((ctrl.tagName.toLowerCase() != 'input') && (eTest - endReal == sTest))
		   start -= sTest;
	   }
	   catch(err) {}
	 }
   }
   catch (e) {}

   try
   {
	 end = Math.abs(document.selection.createRange().moveEnd("character", -10000000)); // end
	 if(end > 0)
	 {
	   try
	   {
		 var endReal = Math.abs(ctrl.createTextRange().moveEnd("character", -10000000));

		 var r = document.body.createTextRange();
		 r.moveToElementText(ctrl);
		 var sTest = Math.abs(r.moveStart("character", -10000000));
		 var eTest = Math.abs(r.moveEnd("character", -10000000));

		 if ((ctrl.tagName.toLowerCase() != 'input') && (eTest - endReal == sTest))
		  end -= sTest;
	   }
	   catch(err) {}
	 }
   }
   catch (e) {}

   insertionS = start;
   insertionE = end
 }
}

function setRange(ctrl, start, end)
{
 if(ctrl.setSelectionRange) // Standard way (Mozilla, Opera, Safari ...)
 {
   ctrl.setSelectionRange(start, end);
 }
 else // MS IE
 {
   var range;

   try
   {
	 range = ctrl.createTextRange();
   }
   catch(e)
   {
	 try
	 {
	   range = document.body.createTextRange();
	   range.moveToElementText(ctrl);
	 }
	 catch(e)
	 {
	   range = null;
	 }
   }

   if(!range) return;

   range.collapse(true);
   range.moveStart("character", start);
   range.moveEnd("character", end - start);
   range.select();
 }

 insertionS = start;
 insertionE = end;
}

function deleteSelection(ctrl)
{
 if(insertionS == insertionE) return;

 var tmp = (document.selection && !window.opera) ? ctrl.value.replace(/\r/g,"") : ctrl.value;
 ctrl.value = tmp.substring(0, insertionS) + tmp.substring(insertionE, tmp.length);

 setRange(ctrl, insertionS, insertionS);
}

function deleteAtCaret(ctrl)
{
 // if(insertionE < insertionS) insertionE = insertionS;
 if(insertionS != insertionE)
 {
   deleteSelection(ctrl);
   return;
 }

 if(insertionS == insertionE)
   insertionS = insertionS - 1;

 var tmp = (document.selection && !window.opera) ? ctrl.value.replace(/\r/g,"") : ctrl.value;
 ctrl.value = tmp.substring(0, insertionS) + tmp.substring(insertionE, tmp.length);

 setRange(ctrl, insertionS, insertionS);
}

// This function inserts text at the caret position:
//
function insertAtCaret(ctrl, val)
{
 if(insertionS != insertionE) deleteSelection(ctrl);

 if(gecko && document.createEvent && !window.opera)
 {
   var e = document.createEvent("KeyboardEvent");

   if(e.initKeyEvent && ctrl.dispatchEvent)
   {
	 e.initKeyEvent("keypress",        // in DOMString typeArg,
					false,             // in boolean canBubbleArg,
					true,              // in boolean cancelableArg,
					null,              // in nsIDOMAbstractView viewArg, specifies UIEvent.view. This value may be null;
					false,             // in boolean ctrlKeyArg,
					false,             // in boolean altKeyArg,
					false,             // in boolean shiftKeyArg,
					false,             // in boolean metaKeyArg,
					null,              // key code;
					val.charCodeAt(0));// char code.

	 ctrl.dispatchEvent(e);
   }
 }
 else
 {
   var tmp = (document.selection && !window.opera) ? ctrl.value.replace(/\r/g,"") : ctrl.value;
   ctrl.value = tmp.substring(0, insertionS) + val + tmp.substring(insertionS, tmp.length);
 }

 setRange(ctrl, insertionS + val.length, insertionS + val.length);
}