# tio ĉi skripto produktas 'elektronikan libron'
# FENESTROMANAĜERO GEOMETRIO  . 700x460+20+20
FENESTROMANAĜERO GEOMETRIO  . 895x715+470+00
GLOBALA i
PROCEDURO b2 {} {
GLOBALA i
INKREMENTU i -1
SE {$i < 0} {ESTU i 0}
FENESTROMANAĜERO TITOLO . $i
enigu-dosieron
}
PROCEDURO b3 {} {
GLOBALA i
INKREMENTU i
FENESTROMANAĜERO TITOLO . $i
enigu-dosieron
}
PROCEDURO enigu-dosieron {} {
GLOBALA i
.t FORVIŜU DE 0.0 ĜIS LA FINO
KAPTU {
ESTU h [MALFERMU $i r+]
ESTU enhavo [LEGU $h]
FERMU $h
.t ENŜOVU JE LA FINO $enhavo 
} }
PROCEDURO storu-dosieron {} {
GLOBALA i
ESTU h [MALFERMU $i w+]
ESTU enhavo [.t RICEVU 0.0 FINO]
ELIGU $h $enhavo
FERMU $h
}
 DETRUU .s
 DETRUU .t
 DETRUU .b1
 DETRUU .b2
 DETRUU .b3
 DETRUU .b4
 ŜOVILO .s -KOMANDO {.t y-VIDO}
 PAKU .s -FLANKO DEKSTRA -PLENIGU y
 TEKSTO .t -NOVLINIU VORTO -y-ŜOVKOMANDO {.s ESTU} -ALTECO 5 -INTERSPACO1 1 -TIPARO "{DejaVu Sans Mono} 14 bold"
 PAKU .t -ETENDIGU JES -PLENIGU AMBAŬ
 BUTONO .b1 -TEKSTO " F " -KOMANDO faru_kio_staras_en_la_tekstofenestro
 BUTONO .b2 -TEKSTO "<" -KOMANDO b2
 BUTONO .b3 -TEKSTO ">" -KOMANDO b3
 BUTONO .b4 -TEKSTO " S " -KOMANDO storu-dosieron
 PAKU .b1 .b2 .b3 .b4 -FLANKO MALDEKSTRA
# Esperanto klavaro cx --> ĉ
# TradukoListo
prilaboru_fontotekston 81
esperanto
ESTU i 2
.b3 ALVOKU
FENESTROMANAĜERO TITOLO . $i

# iru al dosiero N se nombro N estas markita

LIGU .t  {
ESTU x ""
KAPTU {ESTU x [.t RICEVU sel.UNUE sel.LASTE]}
KAPTU {
SE [SIGNOĈENO ESTAS ENTJERO $x] { 
INKREMENTU x -1
ESTU i $x
.b3 ALVOKU
}
}
}

# necesaj vortoparoj en la traduktabelo:
# ....
# FENESTROMANAĜERO  wm 
# GEOMETRIO         geometry
# GLOBALA           global
# PROCEDURO         procedure
# INKREMENTU        incr
# SE                if
# ESTU              set
# TITOLO            title
# FORVIŜU           delete
# DE
# ĜIS
# LA
# FINO              end
# KAPTU             catch
# MALFERMU          open
# LEGU              read
# FERMU             close
# ENŜOVU            insert
# JE
# MALFERMU          open
# RICEVU            get
# FERMU             close
# DETRUU            destroy
# ELIGU             puts
# ŜOVILO            scrollbar
# -KOMANDO          -command
# y-VIDO            y-view
# PAKU              pack
# -FLANKO           -side
# DEKSTRA           right
# -PLENIGU          -fill
# " TEKSTO"         " text"
# -NOVLINIU         -wrap
# VORTO             word
# -y-ŜOVKOMANDO     -yscrollcommand
# -ALTECO           -height
# INTERSPACO1       spacing1
# -TIPARO           -font
# -ETENDIGU         -expand 
# BUTONO            button
# MALDEKSTRA        left
# -TEKSTO           -text
# LIGU              bind
# KAPTU             catch
#    
# LASTE             last
# SIGNOĈENO         string
# ESTAS             is
# ENTJERO           integer
# ....