Модераторы: ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вопрос по use encoding 'cp1251' и Tk 
:(
    Опции темы
Olushka
Дата 11.11.2007, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.11.2007

Репутация: нет
Всего: нет



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


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: нет
Всего: 84



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

Код
#!/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'; всё нормально, может уточните проблему?

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  181401.JPG 14,51 Kb


--------------------
PM   Вверх
Olushka
Дата 12.11.2007, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.11.2007

Репутация: нет
Всего: нет



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

Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  111111111.jpg 56,74 Kb
PM MAIL   Вверх
nitr
Дата 12.11.2007, 04:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: нет
Всего: 84



Цитата(nitr @  12.11.2007,  01:21 Найти цитируемый пост)
Не знаю, может стоит обновить версию?

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


--------------------
PM   Вверх
Olushka
Дата 12.11.2007, 07:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.11.2007

Репутация: нет
Всего: нет



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 


PM MAIL   Вверх
nitr
Дата 12.11.2007, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: нет
Всего: 84



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 той же версии.


--------------------
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: GUI | Следующая тема »


 




[ Время генерации скрипта: 0.0423 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.