diff options
| author | lecoanet | 2004-02-13 13:41:07 +0000 |
|---|---|---|
| committer | lecoanet | 2004-02-13 13:41:07 +0000 |
| commit | 81984ff8d6b54b07cf1653b70780b664c528708d (patch) | |
| tree | af4fa9a05e655d7e838e945b64fe79fc94f72e1d /generic/Text.c | |
| parent | c9dbc80c2f41e9b56b446fd51576d8b9ebab5c80 (diff) | |
| download | tkzinc-81984ff8d6b54b07cf1653b70780b664c528708d.zip tkzinc-81984ff8d6b54b07cf1653b70780b664c528708d.tar.gz tkzinc-81984ff8d6b54b07cf1653b70780b664c528708d.tar.bz2 tkzinc-81984ff8d6b54b07cf1653b70780b664c528708d.tar.xz | |
Protected UTF8 patch for correct compilation under Perl/Tk 800
Diffstat (limited to 'generic/Text.c')
| -rw-r--r-- | generic/Text.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/Text.c b/generic/Text.c index c81d1b7..891ab85 100644 --- a/generic/Text.c +++ b/generic/Text.c @@ -1557,7 +1557,11 @@ PointToChar(TextItem text, n = Tk_MeasureChars(text->font, ti->start, (int) ti->num_bytes, p.x + 2 - (int) ti->origin_x, TK_PARTIAL_OK, &dummy); +#ifdef PTK + byte_index = (ti->start + n - 1) - text->text; +#else byte_index = Tcl_UtfPrev(ti->start + n, ti->start) - text->text; +#endif break; } } |