Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: GUI > вопрос по use encoding 'cp1251' и Tk

Автор: Olushka 11.11.2007, 23:40

Всем здравствуйте! Помогите по избитой теме, пожалуйста. Есть поле ввода $vvod=$main->Text(-width => 30, -height => 10)->pack; При вводе кириллица не отображается корректно. Как исправить?
use encoding 'cp1251' исправил только отображение надписей на кнопках и в Label, а при вводе в
Text все также остались крякозябры...

Автор: nitr 12.11.2007, 01:21

Не знаю, может стоит обновить версию?

Код

#!/usr/bin/perl
use strict;
use warnings;

use Tk;
use encoding 'cp1251';

my $main = MainWindow->new();
my $vvod=$main->Text(-width => 30, -height => 10)->pack;
MainLoop();

ввод нормальный, вывод тоже... Но у меня и без use encoding 'cp1251'; всё нормально, может уточните проблему?

Автор: Olushka 12.11.2007, 02:36

Да проблему то уточнять дальше некуда наверное... Соответственно скопировала Ваши строчки... Опять крякозябры...Принт скрин не знаю зачем выкладываю.. Куда бы копнуть еще подскажите?

Автор: nitr 12.11.2007, 04:13

Цитата(nitr @ 12.11.2007, 01:21

)

Не знаю, может стоит обновить версию?

Это я повторяюсь =) Какую вы версию используете? Какая ОС?

Автор: Olushka 12.11.2007, 07:27

This is perl, v5.8.7 built for MSWin32-x86-multi-thread
Binary build 813 [148120] provided by ActiveState http://www.ActiveState.com
ActiveState is a division of Sophos.
Built Jun 6 2005 13:36:37

Windows XP SP2

Так как не знаю где посмотреть версию модуля, привожу строчки в которых фигурировало слово version smile

:
$Tk::version     = '8.4';
$Tk::patchLevel  = '8.4';
$Tk::VERSION     = '804.027';.

С Уважением, Olushka. smile

Автор: nitr 12.11.2007, 11:40

Olushka, навряд ли в версии Перл проблема... Может собрали модуль не так... А может со шрифтами в Винде проблема. Проверил код - работает на нескольких ПК...

Цитата

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)

Copyright 1987-2006, Larry Wall

Binary build 817 [257965] provided by ActiveState http://www.ActiveState.com
Built Mar 20 2006 17:54:25

Tk той же версии.