Adding a TextAreaCursorXY

	int cursorXY( int *x, int *y, int clientpos);

int Win32TextArea::cursorXY( int *x, int *y, int clientpos) {
	POINT p;
	RECT rect;
	int inside = 1;
	GetCaretPos( &p);
	*x = p.x;
	*y = p.y;
	if( clientpos) return 1;
	// clip to gadget size
	GetWindowRect( _gadget.hwnd(), &rect);
	ClientToScreen( _gadget.hwnd(), &p);
	*x = p.x;
	*y = p.y;
	if( *x > rect.right) {
		*x = rect.right;
		inside = 0;
	}
	if( *y < rect.top) {
		*y = rect.top;
		inside = 0;
	} else	if( *y > rect.bottom)  {
		*y = rect.bottom;
		inside = 0;
	}
	return inside;
}

	virtual int cursorXY( int *x, int *y, int clientpos)=0;

int bbTextAreaCursorXY( BBTextArea *t, int *x, int *y, int clientpos);

int bbTextAreaCursorXY( BBTextArea *t, int *x, int *y, int clientpos) {
	t->debug();
	return t->cursorXY( x,y, clientpos);
}

Function bbTextAreaCursorXY( textarea, x Var, y Var, clientpos=False)

	Method GetCursorXY( x Var, y Var, clientpos=False)
		Return bbTextAreaCursorXY( handle, x,y, clientpos)
	EndMethod

int flGetCursorXY( Fl_TextEditor *edit, int *x, int *y, int clientpos);

int flGetCursorXY( Fl_Text_Editor *edit, int *x, int *y, int clientpos) {
	int start, endpos, pos;
	Fl_Text_Buffer *buff;
	Fl_Group *n;
	buff = edit->buffer();
	buff->selection_position( &start, &endpos);
	if( endpos > start) 
		pos = ((Fl_Text_Display*)edit)->position_to_xy( start, x,y);
	else
		pos = ((Fl_Text_Display*)edit)->position_to_xy( edit->insert_position(), x,y);
	// clip to gadget size
	if( pos == 0)
		*y = edit->h();
	else if( pos > 1)
		*x = pos;
	if( clientpos) return 1;
	// get screen coords
	n = edit;
	while( n) {
		*x += n->x();
		*y += n->y();
		n = n->parent();
	}
	return (pos == 1);
}

Function flGetCursorXY( editor, x Var, y Var, clientpos=False)

	Method GetCursorXY( x:Int Var, y:Int Var, clientpos=False)
		If fltype <> FL_TEXTEDITOR Then Return False
		Return flGetCursorXY( flhandle, x, y, clientpos)
	EndMethod

    int position_to_xy(int pos, int* x, int* y);

int NSGetCursorXY( nsgadget *gadget, int *x, int *y, int clientpos) {
	TextView	*textarea;
	NSRange		range;
	NSRect		rect;
	nsgadget	*n;
	int xx=0,yy=0,inside=1;
	NSRect	drect;
	drect=[[NSScreen deepestScreen] frame];

	textarea=(TextView*)gadget->handle;
	range=[textarea rangeForUserTextChange];
	rect=[textarea firstRectForCharacterRange: range];
	*x = (int)rect.origin.x;
	*y = (int)drect.size.height; // set screen height, since we have to un-reverse y
	*y -= ((int)rect.origin.y) + 32; // fix: since its 32 pixels more than it should be, maybe its the menubar?
	// get screen position
	n = gadget;
	while( n) {
		xx += n->x;
		yy += n->y;
		n = n->group;
	}
	if( clientpos) {
		*x -= xx;
		*y -= yy;
		return 1;
	}	
	// clip to gadget size
	if( *x > xx + gadget->w) {
		*x = xx + gadget->w;
		inside = 0;
	}
	if( *y < yy) {
		*y = yy;
		inside = 0;
	} else if( *y > yy + gadget->h)  {
		*y = yy + gadget->h;
		inside = 0;
	}
	return inside;
}

Function NSGetCursorXY( gadget:TNSGadget, x Var, y Var, clientpos)

	Method GetCursorXY( x Var, y Var, clientpos=False)
		Return NSGetCursorXY( Self, x,y, clientpos)
	EndMethod

	Method GetCursorXY( x Var, y Var, clientpos=False)
	EndMethod

	Method GetCursorXY( x Var, y Var, clientpos=False)
		Return proxy.GetCursorXY( x,y, clientpos)
	EndMethod

See Also: #TextAreaSelLen , #TextAreaCursorXY and #CreateTextArea

Rem
bbdoc: Find the Screen or Client X,Y coordinates of the cursor in a TextArea gadget.
about:
Depending on @clientpos returns either Client or Screen position in @x and @y.
Returns True if the cursor is visible in the gadget.
Returns False if the cursor is hidden either vertically or horizontally, and clips
the coordinates to the size of the gadget.
<p>
See Also: #TextAreaCursor and #CreateTextArea
EndRem
Function TextAreaCursorXY( textarea:TGadget, x:Int Var, y:Int Var, clientpos:Int=False)
	Return textarea.GetCursorXY( x,y, clientpos)
EndFunction