Perl Tk::Text проблема с кирилицей

1

0

Здравствуйте Всем. Сделал небольшой скрипт с Tk/Perl и обнаружил что что в окне созданным методом Text плохо или совсем не редактируется введенный русский текст. То есть вводится нормальными русскими буквами. А дальше начинается барда. Курсор от мыши всегда позиционируется в середине. При использовании клавиш Влево Вправо половина строки наезжает на другую или вообще исчезает за пределами окна. И т д. Запуская скрипт из MC лицезрею следующие маты: e of uninitialized value in addition (+) at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk/Text.pm line 1215. Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk/Text.pm line 1232. Tk::Error: bad text index "@,18" at /usr/lib/perl5/vendor_perl/5.8.6/i386-linux/Tk.pm line 247. Tk callback for .frame.text <Key-Down> (command bound to event) OC Mandriva2006, locale koi8-r. Помогите пож. Весь Инет перерыл. Как будто на Perl/Tk в России никто серьено не пишет. На двух форумах просил. С уважением.

Ссылка

←	Почему не компилится эта программа

Замена стандартной панели

→

Возможно и не пришет. Пик популярности perl/tk прошел уж лет шесть как. Похоже, что насильственная utf-изация perl-а окончательно прибила perl/tk. Учи tcl.

anonymous
(03.10.07 21:49:52 MSD)

Ответ на: комментарий от anonymous 03.10.07 21:49:52 MSD

Причем здесь utf-изация perl-а ? Я в koi8r пробовал. Да все равно люди работали с и наработки какието должны были остатся. Да и не все такие полиглоты чтобы каждые 5 лет новый язык осваивать. Тогда в голове каша будет.

anonymous
(04.10.07 03:48:28 MSD)

Ответ на: комментарий от anonymous 04.10.07 03:48:28 MSD

Локаль какая?

r_asian ★☆☆
(04.10.07 06:20:35 MSD)

Ответ на: комментарий от r_asian 04.10.07 06:20:35 MSD

Локаль koi8-r но я пробовал менять на utf8 Результат одинаков.

anonymous
(04.10.07 12:48:59 MSD)

Ссылка

Ответ на: комментарий от anonymous 04.10.07 03:48:28 MSD

> Причем здесь utf-изация perl-а ?

Притом, что менялось внутреннее представление строк с однобайтного на многобайтное, что вызывало чудовищные глюки в библиотеках, завязанных на предположении что 1 символ = 1 байту. В часто используемых библиотеках такое пофиксили, а в perl/tk, видимо, нет. Там с поддержкой кодировок вообще никогда особа хорошо не было.

anonymous
(04.10.07 13:08:06 MSD)

Ссылка

Tk:

tkscript.pl -font '*-iso8859-2'

определить кодировку во всем скрипте:

$mw->optionAdd("*font", "*-koi8-r");

GTK:

set_locale Gtk;

~~vilfred~~ ☆☆
(04.10.07 23:41:29 MSD)

Ответ на: комментарий от vilfred 04.10.07 23:41:29 MSD

Ответ Ваш конечно неплохой. Но, я не нашел знакомых буков (Perl/Tk) optionAdd Это ведь уже из другой оперы. Если можно поподробнее. Чего то я читал о GTK. Прямо обидно- убил неделю на скрипт и вдруг на 1 символ один байт. Разработчики мандривы2006 просто запихали перл в свой дистуб и успокоились. козладнанцы. Вот чего не люблю линукс то за вечно глючную графическую оболочку. Через которую ничего серьезно не настроишь, типа интерфейсов или адсл-подключений или серверов. Все приходится делать напильником. Хотя потом робит надежно.

anonymous
(05.10.07 07:04:44 MSD)

Ответ на: комментарий от anonymous 05.10.07 07:04:44 MSD

я perl-tk ставил всегда со цпана... и радовался =)

~~vilfred~~ ☆☆
(05.10.07 11:09:59 MSD)

Ссылка

Ответ на: комментарий от vilfred 04.10.07 23:41:29 MSD

> определить кодировку во всем скрипте:

> $mw->optionAdd("*font", "*-koi8-r");

Это проблему не решает. Виджет Text все равно жутко глючит при вводе русских букв, в любой локали. Работать можно только убрав autowrapping (-wrap=>'none') и делая перевод строки вручную. И все равно глючит, если текст выходит за границу виджета. Как лечить нигде не нашел.

anonymous
(05.10.07 14:44:13 MSD)