Any hint?
Thanx.
--
+---------------------------------+-------------------------------------------+
! Y. Victor Yang                  ! Graphics, Visualization & Usability Center!

! Lab:    404-894-9634            ! Georgia Institute of Technology           !
!                                 ! Atlanta, Georgia 30332-0280               !
+---------------------------------+-------------------------------------------+

textwidget delete 1.0 end
textwidget insert end [cat "filename"]

If you want to do it right, here's an example:

# usage: read_text <filename> <textwidget>

proc read_text { filename t } {
  if {! [file exists $filename]} then {
    $t delete 1.0 end
    $t mark set insert 1.0
  } else {
    # should do error checking
    set file [open $filename {r}]
    $t delete 1.0 end
    $t insert end  [read $file]
    $t mark set insert 1.0
    close $file
  }

text .t -height 5 -width 80; # plus any other parameters like -wrap & -yscroll
set F [open $filename "r"]
gets $F Line
while {! [eof $F]} {
  .t insert end $Line
  gets $F Line

Simple, eh?  Now, if you want scrollbars...

text .t -yscroll ".ysb set" -xscroll ".xsb set" ...
scrollbar .ysb -relief sunken -command ".t yview"
scrollbar .xsb -relief sunken -command ".t xview" -orient horiz

pack append . \
  .ysb {right filly} \
  .xsb {bottom fillx} \
  .t    fill

Hope that helps...
--
  Norm.

+-----------------------------------------------------------------------+
 Norm MacNeil                     Phone: (613) 763-3372
 Data Systems                     Fax:   (613) 765-2854

 #include <disclaimer.std>       "Roller bladers do it in-line!"

   Simple, eh?  Now, if you want scrollbars...
   ...
   (rest of the useful code in the message deleted)
------------
There is actually an even simpler way to do this.

        set F [open $filename "r"]
        .t insert end [read $F]
        close $F

You should also add error handling to make sure the open file gets
closed if you get an error while reading.

        set F [open $filename "r"]
        if [catch {.t insert end [read $F]} error] {
            # Close the open file and then report original error
            catch {close $F}
            error $error
        }
        close $F

-Sanjay

.t insert end [read $F]
close $F

This reads the whole file into a string and inserts it into the widget at
once (and so you save the time wasting tcl loop you have).

Nadav Har'El.

if [catch {set F [open $filename]} error] {
        error $error