summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-04-05 08:38:41 (GMT)
committerhobbs <hobbs>2002-04-05 08:38:41 (GMT)
commitacc53ab94b6dc11efc4949650f65a9b7e0252db4 (patch)
treefaf089c1537b6b28c43885c727c41094225efe1c /unix
parent40ae4f319528ce6b0e6d6b7a1180b5bbe6176c07 (diff)
downloadtk-acc53ab94b6dc11efc4949650f65a9b7e0252db4.zip
tk-acc53ab94b6dc11efc4949650f65a9b7e0252db4.tar.gz
tk-acc53ab94b6dc11efc4949650f65a9b7e0252db4.tar.bz2
* unix/tkUnixKey.c: added Tk_SetCaretPos and code for setting
XIM caret in TkpGetString.
Diffstat (limited to 'unix')
-rw-r--r--unix/tkUnixKey.c57
1 files changed, 55 insertions, 2 deletions
diff --git a/unix/tkUnixKey.c b/unix/tkUnixKey.c
index be2484e..3f74a8d 100644
--- a/unix/tkUnixKey.c
+++ b/unix/tkUnixKey.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkUnixKey.c,v 1.5 2000/04/10 22:43:13 ericm Exp $
+ * RCS: @(#) $Id: tkUnixKey.c,v 1.6 2002/04/05 08:38:41 hobbs Exp $
*/
#include "tkInt.h"
@@ -18,11 +18,48 @@
* Prototypes for local procedures defined in this file:
*/
+#ifdef TK_USE_INPUT_METHODS
+static int caretX = 0, caretY = 0;
+#endif
/*
*----------------------------------------------------------------------
*
+ * Tk_SetCaretPos --
+ *
+ * This enables correct placement of the XIM caret. This is called
+ * by widgets to indicate their cursor placement, and the caret
+ * location is used by TkpGetString to place the XIM caret.
+ *
+ * Results:
+ * None
+ *
+ * Side effects:
+ * None
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_SetCaretPos(tkwin, x, y, height)
+ Tk_Window tkwin;
+ int x;
+ int y;
+ int height;
+{
+#ifdef TK_USE_INPUT_METHODS
+ /*
+ * Use height for best placement of the XIM over-the-spot box.
+ */
+ caretX = x;
+ caretY = y + height;
+#endif
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
* TkpGetString --
*
* Retrieve the UTF string associated with a keyboard event.
@@ -56,11 +93,16 @@ TkpGetString(winPtr, eventPtr, dsPtr)
Tcl_DStringInit(&buf);
Tcl_DStringSetLength(&buf, TCL_DSTRING_STATIC_SIZE-1);
-
+
#ifdef TK_USE_INPUT_METHODS
if (winPtr->dispPtr->useInputMethods
&& (winPtr->inputContext != NULL)
&& (eventPtr->type == KeyPress)) {
+#if TK_XIM_SPOT
+ XVaNestedList preedit_attr;
+ XPoint spot;
+#endif
+
len = XmbLookupString(winPtr->inputContext, &eventPtr->xkey,
Tcl_DStringValue(&buf), Tcl_DStringLength(&buf),
(KeySym *) NULL, &status);
@@ -76,6 +118,17 @@ TkpGetString(winPtr, eventPtr, dsPtr)
if ((status != XLookupChars) && (status != XLookupBoth)) {
len = 0;
}
+
+#if TK_XIM_SPOT
+ /*
+ * Adjust the XIM caret position.
+ */
+ spot.x = caretX; spot.y = caretY;
+ preedit_attr = XVaCreateNestedList(0, XNSpotLocation, &spot, NULL);
+ XSetICValues(winPtr->inputContext,
+ XNPreeditAttributes, preedit_attr, NULL);
+ XFree(preedit_attr);
+#endif
} else {
len = XLookupString(&eventPtr->xkey, Tcl_DStringValue(&buf),
Tcl_DStringLength(&buf), (KeySym *) NULL,