Problem s cestinou v tcl/tk programu

[pavel hampl]

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