LINUX.ORG.RU

Кто-нить с tcl/tk балуется?


0

0

Доброй ночи!

Подскажите, как tk заставить кои8 показывать? А то как ни бьюсь, сплошной latin1 со всеми отсюда вытекающими....

Да, если точнее, речь идёт об insight, у него весь user interface на tk сделан.

BTW, простые вещи, как то: ecnfzjdrf LANG, LC_..., щёлканье менюшкой preferences, редактирование ~/.gdbtkinit я делал...

Если не трудно, пишите напрямую, на ivans@isle.spb.ru

Rgrds

anonymous

Мнэээ... Вообще-то, as я пол, tcl все строки в UTF-8 внутре держит. Может, версия старая? Попробуй перевести на 8.4.1

Или, скажем, локаль не настроена? Попробуй запустить tclsh и сказать ему "encoding system" -- посмотри, что скажет...

С уважением -- Смоляное Чучелко

anonymous
()
Ответ на: комментарий от anonymous

Да не очень-то и старая, 8.3. В unicode насколько я помню, строки хранятся начиная с 8.0, так что здесь вроде всё должно быть нормально.

wish-то я вызвал и на encoding system он честно отвечает koi8-r. Но insight, зараза, тем не менее показывает все русские буквы в исходниках в кракозябрами.

Я пытался править gdbtkinit, там шрифты описываются, но как указать кодировку? Вот пример из .gdbtkinit:

font/fixed=-family {courier new} -size 12 -weight normal -slant roman -underline 0 -overstrike 0

Насколько я понимаю после '=' идут аргументы для команды font. Есть возможность принудительно указать кодировку или задать шрифт в xfld?

Rgrds

anonymous
()

попробуй через .Xdefaults фонты указывать.

ananas ★★★★★
()
Ответ на: комментарий от anonymous

Ну вообще-то у меня такое ощущение, что нормальная поддержка locale появилась только в 8.4 -- может, я ошибаюсь, но у меня была та же проблема, которая после перехода на 8.4 исчезла

aa5779
()

Кстати! Почёл вот доки -- по идее,

> font/fixed=-family {courier new} -size 12 -weight normal -slant roman -underline 0 -overstrike 0

вот тут можно написать (в family) любой линуксовый фонт -- попробуй *-*-*...-koi8-r

С уважением -- Смоляное Чучелко

anonymous
()
Ответ на: комментарий от anonymous

Попробовал. Не помогло :-( Похож в самом деле его с 8.4 спаривать надо.

anonymous
()

> Похож в самом деле его с 8.4 спаривать надо.

Похоже.

Кстати, оказывается, все эти так красиво называемые семейства -- просто вторые элементы обычных X-фонтов. Не думал, что так просто.

Попробуй ещё вот это:

text .t

set tw 0

foreach ff [font families] {

set f [font create -family $ff]

set ttw [font measure $f "Пример"]

if {$tw < $ttw} {set tw $ttw}

.t insert end "Пример\t" [list $ff] "$ff\n"

.t tag configure $ff -font $f

.t configure -tabs [expr $tw+20]

}

place .t -x 0 -y 0 -relwidth 1 -relheight 1

Пишешь в файло и запущаешь wish файло. Должно вывести слово "Пример" всеми имеемыми в системе семействами фонтов. Потом выбери одно из тех, что получилось.

С уважением -- Смоляное Чучелко

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.