Re: [Comm] шрифты в интерфейсе tk/tcl-программ

["Vadim V. Zhytnikov" <vvzhy@netorn.ru>]

Maxim Tyurin пишет:
>> Меня до глубины души трогает другое.  Вы пробовали просто нарисовать
>> в Tcl/Tk кнопочку с надписью [Hello! Привет!] в системе, где
>> не производилась правка .Xdefaults или камлание над порядком
>> шрифтов в xfs?  Я из любопытства пробовал на самых разных
>> свежеустановленых системах - разных версиях ALT, RH\Fedora,
>> Mandrake.
> Че-то какие-то ужасы вы рассказываете.
> Вот попробовал под ненастроенным профилем. Все нормально. Ресурсы не
> настраивались.
> http://img61.imageshack.us/img61/6567/helloii4.png
> Системные я не меняю даже если только я пользуюсь машиной. Все настройки
> храню у себя в хомяке.
> Так что эксперимент можно считать достаточно чистым.
> Устанавливать новую систему куда-то в виртуалку чтоб проверить как оно
> из коробки я не буду :)
>>   Результат всегда один - Hello отображается
>> нормальным Helvetica, что и должно быть по умолчанию,
>> а вот Привет рисутся каким-то неимоверно уродливым шрифтом
>> с засечками типа Times.  При этом русские шрифты Helvetica
>> в необходимой кодировке установлены!  Ну хорошо - промахнулись
>> без подсказки.  Что взять с глупой программы.
>> Указываю _явно_ для шрифта на кнопку семейство Helvetica
>> (одно из стандартных шрифтовых семейств в Tcl/Tk) -
>> результат без изменений - с Hello всё замечательно,
>> а Привет продолжает рисоваться всё той же мерзостью.
>> Это как?  Инструкция по выбору шрифта для русского
>> языка просто игнорируется.
>> Если это не баг Tcl/Tk, то что?
> В шляпе баг. Оно adobe-helveticа сует первым.
> Может сейчас это не так (давно на нее не смотрел).
> В Sarge все нормально.
> 

Ну я конечно погорячился по поводу любого дистрибутива.
Но вот примеры, которые у меня есть под рукой сейчас.
Mandrake 10.1:
ftp://ftp.altlinux.ru/pub/people/vvz/mandrake_10_1.png

Текущий Сизиф:
ftp://ftp.altlinux.ru/pub/people/vvz/sisyphus.png

Это результаты работы скриптика:

#!/bin/sh
# \
exec wish8.4 "$0" "$@"

set fam "helvetica"

button .a -text "Font size <default> Проверка" -command { puts stdout 
"Hello!" }

set bf0 [font create -family $fam ]
button .b0 -text "Font size <default> Проверка" -font $bf0 -command { 
puts stdout "Hello!" }

set bf1 [font create -family $fam -size 8]
button .b1 -text "Font size 8 Проверка" -font $bf1 -command { puts 
stdout "Hello!" }

set bf2 [font create -family $fam -size -8]
button .b2 -text "Font size -8 Проверка" -font $bf2 -command { puts 
stdout "Hello!" }

set bf3 [font create -family $fam -size 10]
button .b3 -text "Font size 10 Проверка" -font $bf3 -command { puts 
stdout "Hello!" }

set bf4 [font create -family $fam -size -10]
button .b4 -text "Font size -10 Проверка" -font $bf4 -command { puts 
stdout "Hello!" }

set bf5 [font create -family $fam -size 12]
button .b5 -text "Font size 12 Проверка" -font $bf5 -command { puts 
stdout "Hello!" }

set bf6 [font create -family $fam -size -12]
button .b6 -text "Font size -12 Проверка" -font $bf6 -command { puts 
stdout "Hello!" }

set bf7 [font create -family $fam -size 14]
button .b7 -text "Font size 14 Проверка" -font $bf7 -command { puts 
stdout "Hello!" }

set bf8 [font create -family $fam -size -14]
button .b8 -text "Font size -14 Проверка" -font $bf8 -command { puts 
stdout "Hello!" }

pack .a .b0 .b1 .b2 .b3 .b4 .b5 .b6 .b7 .b8



-- 
      Vadim V. Zhytnikov

       <vvzhy@mail.ru>
      <vvzhy@netorn.ru>