Tekstiohjain text tekee ikkunaan tekstiä, jota käyttäjä voi halutessaan editoida.
text
-ohjaimen yleisimmin käytetyt optiot ovat|
-font |
määrittelee kirjaisintyylin. |
|
-relief |
määrittelee reunuksen muodon. |
|
-borderwidth,-bd |
määrittelee reunuksen leveyden. |
|
-yscrollcommand |
määrittelee pystysuunnassa olevan liukutangon tekstiohjaimeen. |
|
-xscrollcommand |
määrittelee vaakatasossa olevan liukutangon tekstiohjaimeen. |
Seuraavassa esimerkissä luetaan tiedostossa README oleva data tekstiohjaimeen (kuva 5.15).
proc loadFile {file} { ;# aliohjelma loadFile kirjoittaa tekstin ohjaimeen
.text delete 1.0 end ;# tuhotaan mahdollisesti ohjaimessa oleva teksti
set f [open $file] ;# avataan tiedosto file
while {![eof $f]} {
.text insert end [read $f 1000]} ;# luetaan tiedosto ohjaimeen rivi kerrallaan
close $f ;# suljetaan tiedosto file
}
text .text -relief raised -bd 2 -yscrollcommand ".scroll set"
scrollbar .scroll -command ".text yview"
pack .scroll -side right -fill y
pack .text -side left
loadFile README
Tekstiohjaimen oikeaan laitaan tehdään liukutanko scrollbar-komennon avulla. Käyttäjä voi kirjoittaa ohjaimeen ja teksti voidaan erillisellä aliohjelmalla tallentaa takais in tiedostoon. Tekstiohjaimia käytetään yleensä käyttöliittymissä tekstieditoreina tai näyttämään tiedoston sisällön.
Kuva 5.15. Esimerkki tekstin käytöstä.
