Problem s cestinou v tcl/tk programu
pavel hampl
hampl na gncz.cz
Pátek Listopad 23 10:07:59 CET 2001
Jan Houstek wrote:
>
> Podle rady pana Krause jsem vyzkousel editor tkNotepad. Nejak ale nechapu,
> proc v nem nelze psat cesky. Je to hrozne jednoduchy program v tcl/tk
> (autor tvrdi, ze je pravdepodobne bug-free). Font je nastaveny dobre
> (iso-8859-2), xkb take, ale pri psani hackovanych a carkovanych pismen se
> objevuji stejne znaky, jako kdyby font byl v iso-8859-1 (latin-1). Vazne
> nevim, co s tim.
>
> --
> Honza Houstek
>
Zalezi na tom, jakou verzi WISH mate. Pokud je to jeste 8.0,
tak staci prepsat promennou textFont, aby odkazovala na
iso8859-2 font (ja jsem to po nahrani z freshmeatu nemel) a
pak doporucuju spoustet pres czrun
czrun wish tknotepad
Pokud ale mate verzi treba 8.3, tak se to udela jinak,
protoze mezitim se zmenil zpusob prace z kodovanim a Tcl
podporuje Unicode. Cili se tam bude muset udelat odvetveni
podle verze Tcl, coz autor zrejme jeste neprovedl. Vice o
teto zmene na adrese
http://dev.scriptics.com/doc/howto/
a polozka "How To Use Tcl 8.1 Internationalization
Features".
Uz jsem se s tim setkal, ze jsem musel delat cestinu pro dve
ruzne verze Tcl.
Zmena bude tahle:
ten uvodni test promenne tcl_platform, kde se rovna "unix",
bude vypadat:
-----------------------------------------
# start by setting default font sizes
if [ expr [string compare $tcl_platform(platform) "unix"]
==0] {
set textFont
-Adobe-Helvetica-*-R-Normal-*-14-*-iso8859-2
set menuFont
-adobe-helvetica-bold-r-normal--12-*-75-75-*-*-*-*
if {$tcl_version>="8.1"} { ;# tohle je pridano
encoding system iso8859-2 ;# "
} ;# "
} else {
--------------------------------------------------
cili jednak je tam zmeneny ten textFont, jednak je tam
dodane kodovani pro verze od 8.1. Takhle to s verzi 8.3
funguje rovnou bez te berlicky "czrun".
P. Hampl
--
------------------------------------------
Pavel Hampl email: hampl na gncz.cz
GN Resources CZ http://www.gncz.cz
Ve Smeckach 20 tel: +420-2-22101821
11000 Praha 1, CZ
Další informace o konferenci Linux