text .t
button .bt -text "Ouvrir fichier" -command openfic
# Placement des widget text et bouton:
pack .t .bt -side top
# Procédure d'ouverture d'un fichier:
proc openfic { } {
set fic [tk_getOpenFile -title "Sélectionnez le fichier a ouvrir" -parent .]
if {[file exists $fic]} {
# Lecture du fichier:
set f [open $fic r]
# Insertion dans le widget text:
.t insert end [read $f]
close $f
}
}
