-EsperantoTcl- -Tcl- ----------- --------- ETIKEDO label -TEKSTO -text PAKU pack BUTONO button -KOMANDO -command ELIGU puts ENIGO entry -TIPARO -font -ETENDIGU -expand JES yes -PLENIGU -fill AMBAŬ both ENŜOVU insert EKRANO canvas KREU create ARKON arc RUĜE red BILDETON bitmap -BILDETO -bitmap -FONO -background BLANKA white LINION line BLUE blue OVALON oval FLAVE yellow POLIGONON polygon VERDE green REKTANGULON rectangle CIANE cyan " TEKSTON" " text" " TEKSTO" " text" LIGU bind MOVO Motion -LARĜECO -width GLOBALA global PROCEDURO proc ARGUMENTOJ args ESTU set INKREMENTU incr LISTOLONGECO llength FINON end FINO end LISTOINDEKSO lindex SE if DETRUU destroy ĈEFFENESTRO toplevel FENESTROMANAĜERO wm GEOMETRIO geometry TITOLO title ALVOKU invoke EVENTON event GENERU generate <RETROPAŜO> ENŜOVLOKO insert POST after MALFERMU open FERMU close RICEVU get FORVIŜU delete -FLANKO -side KAPTU catch MALDEKSTRA left DEKSTRA right ŜOVILO scrollbar y-VIDO yview -NOVLINIU -wrap VORTO word -y-ŜOVKOMANDO -yscrollcommand UNUE first LASTE last SIGNOĈENO string ESTAS is ENTJERO integer LEGU read " JE" "" " LA" "" " AL" "" " DE" "" " ĜIS" "" -INTERSPACO1 -spacing1 -ALTECO -height VIDU see DOSIERON file KOPIU copy -NEPRE -force APLIKU exec INKLUDU include STANDARDA-EN-EL stdio ENTJER int ĈEFFUNKCIO main SKRIBU printf