There have been several posts recently on clt, concerning the use
of the text widget.  Since I couldn't readily find the links to the
existing examples that I have seen before, well here goes:
----
 menu .menubar -type menubar
 .menubar add cascade -label File -menu .menubar.file -underline 0

 #file menu
 menu .menubar.file -tearoff 0
 .menubar.file add command -label "New" -underline 0 \
 -command { new } 
 .menubar.file add command -label "Open..." -underline 0 \
 -command { file_get }
 .menubar.file add command -label "Save" -underline 0 \
 -command {  save}
 .menubar.file add command -label "Save As..." -underline 5 \
 -command { file_save_as }
 .menubar.file add separator
 .menubar.file add command -label Exit -underline 1 -command { exit}
 #end file menu

 . configure -menu .menubar

 set filename "Untitled"

 frame .text
 text .text.t -wrap none \
 -yscrollcommand ".text.v_scroll set" \
 -xscrollcommand ".text.h_scroll set"

 scrollbar .text.v_scroll -command ".text.t yview"
 scrollbar .text.h_scroll -command ".text.t xview" -orient horizontal
 pack .text.v_scroll -side right -fill y
 pack .text.h_scroll -side bottom -fill x
 pack .text.t -side left -fill both -expand 1
 pack .text -fill both -expand 1

 proc new { } {
 .text.t delete 1.0 end
 set filename "Untitled"
 wm title . $filename
 }

 proc file_get { } {
 .text.t delete 1.0 end
 set file_types {
  {"Tcl Files" { .tcl .TCL .tk .TK} }
  {"Text Files" { .txt .TXT } }
  {"All Files" * }
 }
 set filename [tk_getOpenFile -filetypes $file_types -initialdir pwd]
 set filesize [file size $filename]
 set fileid [open $filename r]
 set data [read $fileid $filesize]
        close $fileid
 .text.t insert end $data
 wm title . $filename
 }

 proc save { } {
 set data [.text.t get 1.0 {end -1c}]
 set fileid [open $filename w]
 puts -nonewline $fileid $data
 close $fileid
 }

 proc file_save_as { } {
 global filename
 set data [.text.t get 1.0 {end -1c}]
 set file_types {
  {"Tcl Files" { .tcl .TCL .tk .TK} }
  {"Text Files" { .txt .TXT} }
  {"All Files" * }
 }

 set filename [tk_getSaveFile -filetypes $file_types\
 -initialdir pwd -initialfile $filename\
 -defaultextension .tcl]
 wm title . $filename
 set fileid [open $filename w]
 puts -nonewline $fileid $data
 close $fileid
 }

 tk appname "Edit"
----
I know this could have been even more minimalist, but thought this
would answer most of the recent questions I have seen.  Left one
little glitch in here on purpose... Also, no error handling.

Hope this is helpful to someone.  I remember (not too long ago), how
long it took me to get this far working out of a book :^) ''so''
----
Also, please note that the menu in the above script requires tcl/tk
8.0 or higher.  There are some grab problems with this type of a menu
when running Gnome. ''so"

----
[Category GUI]